Wie kann ich am einfachsten überprüfen ob ein neu angelegter Datensatz auch in der Tabelle existiert. Mein Sorgenkind ist „If Not IsNull(Me!id)“, funktioniert nur, solang ich nichts am Datensatz geändert habe, sprich er leer ist. Sobald ich einen Wert in ein Feld eintrage wird im Objekt eine ID vergeben, wodurch der Code versucht den Datensatz beim klicken zu verjoinen, aber der Datensatz existiert reell noch garnicht.
Der Ganze Code des Listenfelds:
Private Sub Institut\_box\_Click()
Dim I As Long, RS As DAO.Recordset
With Me!Institut\_box
If Not IsNull(Me!id) Then
CurrentDb.Execute "DELETE FROM Bewerbung\_Institut WHERE id\_bewerbung = " & Me!id
Set RS = CurrentDb.OpenRecordset("Bewerbung\_Institut", dbOpenDynaset)
For I = 0 To .ListCount - 1
If .Selected(I) Then
RS.AddNew
RS!id\_institut = Nz(.Column(0, I), -1)
RS!id\_bewerbung = Me!id
RS.Update
End If
Next I
RS.Close
End If
End With
End Sub
MfG