Hallo,
ich hab mal wieder ein kleines Problem. Ich habe ein Formular mit
3 Textfeldern und einem Button. Wenn der Butto gedrückt wird, soll
ein Ereignis ausgeführt werden.
Im VB Code für den Button sieht das bei mir so aus:
Case "Bitte wählen"
MsgBox ("Bitte wählen Sie aus, was Sie ändern möchten")
Case "Teilenummer1"
'hier will ich die werte der Textfelder in variablen speichern
Dim ecode, endcode, neuerWert As String
ecode = Text13.Text
endcode = Text16.Text
neuerWert = Text19.Text
'Verbindung zur Datenbank
Dim db As DAO.Database
Set db = CurrentDb
'UPDATE Anweisung
db.Execute "UPDATE tabelle1 SET tabelle1.teilenummer1='neuerWert' WHERE tabelle1.ecode='ecode' and tabelle1.endcode='endcode'", dbFailOnError
Set db = Nothing
End Select
Beim drücken des Buttons erhalte ich folgende Fehlermeldung:
Laufzeitfehler 2185: Sie können die eigenschaften oder Methoden eines Steuerelements nur dann auswerten, wenn das Steuerelemt den Fokus hat.
Danke schon einmal für Eure Hilfe
ich hab mal wieder ein kleines Problem. Ich habe ein Formular mit
3 Textfeldern und einem Button. Wenn der Butto gedrückt wird, soll
ein Ereignis ausgeführt werden.
Im VB Code für den Button sieht das bei mir so aus:
Case "Bitte wählen"
MsgBox ("Bitte wählen Sie aus, was Sie ändern möchten")
Case "Teilenummer1"
'hier will ich die werte der Textfelder in variablen speichern
Dim ecode, endcode, neuerWert As String
ecode = Text13.Text
endcode = Text16.Text
neuerWert = Text19.Text
'Verbindung zur Datenbank
Dim db As DAO.Database
Set db = CurrentDb
'UPDATE Anweisung
db.Execute "UPDATE tabelle1 SET tabelle1.teilenummer1='neuerWert' WHERE tabelle1.ecode='ecode' and tabelle1.endcode='endcode'", dbFailOnError
Set db = Nothing
End Select
Beim drücken des Buttons erhalte ich folgende Fehlermeldung:
Laufzeitfehler 2185: Sie können die eigenschaften oder Methoden eines Steuerelements nur dann auswerten, wenn das Steuerelemt den Fokus hat.
Danke schon einmal für Eure Hilfe
Comment