Office: (Office 2013) Wenn Textfeld leer, dann 0 in Tabelle schreiben

Mach mal folgendes:
Code:

Das Debug.Print gibt dir den SQL-String im Direktfenster aus (Strg + G zum Anzeigen).
Durch dbFailOnError erhältst du möglicherweise auch noch eine verwertbare Fehlermeldung.
maike

 

so, das ist schon mal super:


INSERT INTO Suche (Posten1, Posten2, Posten3) VALUES (1, , 1)

Das kommt bei STRG + G


ICh habe also:

Feld 1 = 1
Feld 2 = leer
Feld 3 = 1

leider schreibt er nicht in die Tabelle und anscheinden wandelt er leer auch nicht in eine 0 um. Ich hoffe mein Verständniss ist da richtig.

 

Dann mach es wie Eberhard gesagt hat und gib den Formular-Feldern einen Standardwert 0. Vermutlich ist da nicht leer (Null) sondern ein Leerstring drin.
maike

 

Private Sub Eingabe3_Exit(Cancel As Integer)
On Error Resume Next

strSQL = "INSERT INTO Suche (Posten1, Posten2, Posten3) " & _
"VALUES (" & Nz(Me.Eingabe1, 0) & ", " & Nz(Me.Eingabe2, 0) & ", " & Nz(Me.Eingabe3, 0) & ")"
Debug.Print strSQL
CurrentDb.Execute strSQL, dbFailOnError

On Error Resume Next
Me!Eingabe1 = ""
Me!Eingabe2 = ""
Me!Eingabe3 = ""
CurrentDb.Execute "abfAusgewählt"


Me.Refresh

End Sub

 

Da haben wir ihn ja schon verhaftet *wink.gif* . Da muss
Code:

stehen, sonst wirkt die Nz-Funktion nicht.
Und "On Error Resume Next" nimm wieder raus. Das verhindert u.a., das Fehler angezeigt werden.
maike

 

Vielen Vielen Dank!!!

Wart Ne Große Hilfe!!

ES GEHT!