Hallo
Wie kann ich nach dem Speichern
Zeile 8 w isNull (keine weitere Zeile zu speichern)
die Formularfelder auf "leer" setzen?
1 For i = 0 To 20
2 n = "Name" & i
3 t = "TextE" & i
4 betr = "Betrag" & i
5 nr = "BelegNr" & i
6 bem = "Bemerkung" & i
7 w = Forms!frm_KassabuchE!Ufrm_KassaAE!(n).Column(1)
8 If IsNull(w) = True Then
9 '.........
End If
r.AddNew
r!IDN = Forms!frm_KassabuchE!Ufrm_KassaAE!(n).Column(0)
r!Name = w
r!Text = Forms!frm_KassabuchE!Ufrm_KassaAE!(t)
r!Datum = Text9
r!BetragAus = Forms!frm_KassabuchE!Ufrm_KassaAE!(betr)
r!BelegNr = Forms!frm_KassabuchE!Ufrm_KassaAE!(nr)
r!Bemerkung = Forms!frm_KassabuchE!Ufrm_KassaAE!(bem)
r.Update
Next
Danke für eure Hilfe
Wolfgang
Hallo,
vermutlich meinst Du sowas:
For i = 0 To 20
Me("Name" & i) = null
Me("TextE" & i) =null
.
.
.
next
btw: Forms!frm_KassabuchE!Ufrm_KassaAE ! (n).Column(1)
Hallo,
ich frage mich auch, warum Du nicht einfach mit einem gebunden Formular arbeitest. Dann musst Du gar nichts programmieren und leere Felder sind ein neuer Datensatz, alles ohne VBA, vollautomatisch mit den serienmäßigen Funktionen von Access.