Null Werte - Datensatz nicht gefunden > Default Werte setzen

Hallo,

habe folgende SubFunktion, die an einer KombiBox gebunden ist.
Die einzelnen Positionen (Artikel) werden auch korrekt angezeigt,
sofern die msgbox "datensatz vorhanden" angezeigt wird.
Ist dem nicht so, sollen die Felder auf dem Formular Standard
bzw. Defaultwerte annehmen - machense leider nicht ...
Alle Felder sind nun mit der Tabelle "Buchungen" verbunden.
Stimmt die "AddNew" Methode nicht?

Private Sub ComboBox2_Change()
Set tmprs = CurrentDb.OpenRecordset("Buchungen", dbOpenDynaset)

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

t = "Buchungen"
s = "[ArtikelText]='" & Me.ComboBox2.Column(1) & "'"

If Nz(DLookup("ArtikelText", t, s), "") <> "" Then
MsgBox "Datensatz bereits vorhanden"

rs.Edit
rs.FindLast "ArtikelText = '" & Me!ComboBox2.Column(1) & "'"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
End If

Set rs = Nothing
Else
'Teil2
rs.AddNew
rs.Fields("Datum").Value = Date
rs.Fields("WarenEingang").Value = 0
rs.Fields("Lieferdatum").Value = Date
Me.txtDatum.SetFocus
rs.update
End If
End Sub

Gruß
Jens

[ Auf dieses Posting antworten ]

Antworten

Karl Donaubauer (06.11.2009 21:25)