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.
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
Habe den fehler gefunden
Es haben nur Ausrufezeichen gefehlt...........
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