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