aus HF in UF schreiben

[chappi]

Hallo,
ich bräuchte eure Hilfe.
Ich möchte eine Fertigungsnummer verfolgen mit hilfe eines Barcodescanner.
Der Barcode wird in einem Formular in ein ungebundenes Suchfeld gescannt (soweit kein probelm) dann wird die Fertigungsnummer aufgerufen.
Jetzt soll aber gleichzeitig in ein Unterformular ein neuer Datensatz angelegt werden wo das Datum/Uhrzeit und der Mittabeiter eingetragen wird. Der Mitarbeiter wir durch eine Variabele beim öffnen des Formulars definiert.
Ich hatte es mir so gedacht doch leider kommt eine Fehlermeldung.

Code [Auswählen] Erweitern

Private Sub SucheFa_AfterUpdate()
DoCmd.GoToControl "ID"

    DoCmd.FindRecord SucheFa, acEntire, False, _
        acSearchAll, False, , True
       
Me.SucheFa = Null

With Forms(AqualucVonCld)(AqualucLieferungUnterfvonCLD).Form.Recordset[/color]
            .AddNew
            ![vonCLD] = now()
            .Update
        End With




Me.SucheFa.SetFocus
End Sub

fehler: With Forms(AqualucVonCld)(AqualucLieferungUnterfvonCLD).Form.Recordset

Danke schon mal

[chappi]

Habe den fehler gefunden

Es haben nur Ausrufezeichen gefehlt...........

Code [Auswählen] Erweitern

Private Sub SucheFa_AfterUpdate()
DoCmd.GoToControl "ID"

    DoCmd.FindRecord SucheFa, acEntire, False, _
        acSearchAll, False, , True
       
Me.SucheFa = Null

With Forms("AqualucVonCld")("AqualucLieferungUnterfvonCLD").Form.Recordset
            .AddNew
            !IDFA = Me.ID
            !vonCLD = Now()
            .Update
        End With

Me.SucheFa.SetFocus
End Sub