<p> <p> Ein Formular ist an eine Abfrage gebunden. Im Datensatz des Formulars werden zwei Werte ge&auml;ndert und der Datensatz soll zu den bestehenden Datens&auml;tzen der Abfrage hinzugef&uuml;gt werden, damit man sp&auml;ter nachverfolgen kann, welche &Auml;nderungen gemacht wurden.</p> <p> Die Seriennummer ist das Prim&auml;rschl&uuml;sselfeld und ein Kombinationsfeld. Die Werte sind ebenfalls in der Abfrage.</p> <p> Leider funktioniert mein VBA-Code nicht.&nbsp;&nbsp;</p> <div> Private Sub Befehl54_Click()</div> <div> DoCmd.RunCommand acCmdSelectRecord</div> <div> &nbsp; &nbsp; DoCmd.RunCommand acCmdCopy</div> <div> &nbsp;</div> <div> &nbsp;DoCmd.RunCommand acCmdUndo&nbsp;</div> <div> &nbsp;</div> <div> &nbsp; &nbsp; DoCmd.RunCommand acCmdRecordsGoToNew</div> <div> &nbsp; &nbsp;</div> <div> &nbsp; &nbsp; DoCmd.RunCommand acCmdSelectRecord</div> <div> &nbsp; &nbsp; DoCmd.RunCommand acCmdPaste</div> <div> &nbsp;</div> <div> &nbsp;</div> <div> &nbsp; &nbsp; Me.Seriennummer = CStr(cbxSeriennummer)</div> <div> &nbsp; &nbsp; RunCommand acCmdSaveRecord</div> <div> End sub</div> <div> &nbsp;</div> <div> <div> Private Sub cbxSeriennummer_AfterUpdate()</div> <div> Me.Requery</div> <div> &nbsp;</div> <div> Private Sub Form_Current()</div> <div> &nbsp;</div> <div> End Sub</div> </div> <div> &nbsp;</div> <div> &nbsp;</div> <div> &nbsp;</div> <div> &nbsp;</div> <div> Es kommt&nbsp; bei CmdUndo die Fehlermeldung&nbsp; &quot;Projekt oder Bibliothek nicht gefunden&quot;.</div> <div> L&ouml;sche ich die Zeile, habe ich bei Me.Requery die Fehlermeldung 3314.</div> <div> &nbsp;</div> <div> &nbsp;</div> <div> &nbsp;</div> <div> &nbsp;</div></p>
|