Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!
Private Sub TxFANr_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Auftrag, Pos, LWNr " _
& "FROM Tabelle1 " _
& "WHERE FA = '" & Me.TxFANr & "'")
If Not (rs.BOF And rs.EOF) Then
Me.Tx1 = rs!Auftrag
Me.Tx2 = Nz(rs!Pos, "")
Me.Tx3 = Nz(rs!LWNr, "")
Me.Tx4 = "FA " & Me.TxFANr
End If
Ende:
On Error Resume Next
rs.Close
Set rs = Nothing
Exit Sub
Fehler:
Fehlerprot Err.Number, Err.Description
Resume Ende
End SubSetze ich eine Haltemarke auf Exit Sub, kann ich sehen, dass alle Einträge vorgenommen wurden. Drücke ich dann F8, verschwinden alle Einträge und die Eingaben wurden gespeichert.