Datenbank per SQL updaten

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute!

Ich habe ein Problem und hoffe ihr könnt mir helfen.
Ich habe ein Formular, indem ich Bauteilnummern angeben kann. Habe ich diese eingegeben und klicke auf das Feld so bekomme ich Informationen zu diesem Bauteil (Ersteller, Datum und den Status ob es verbaut ist oder nicht) die per VBA aus der Bauteildatenbank entnommen werden. Die Felder Ersteller und Datum sind gesperrt und können nicht geändert werden. Das „verbaut Feld“ ist ein Auswahlfeld. Ich würde nun gerne dort dann „verbaut“ auswählen und das dies dann in der Datenbank von „nicht verbaut“ auf „verbaut“ umgeändert wird. Also quasi das was ich vorher hatte (Informationen aus Datenbank an Formular) umgedreht.
Ich versuche es mit SQL. Anbei mal mein Code ich hoffe ihr könnt mir weiterhelfen:

Private Sub Befehl224_Click()
Dim db As DAO.Database

Set db = CurrentDb

db.Execute „Update tbl_auftrag“
Set montiert = Forms!frm_montage.Montiert_kk.Value
WHERE tbl_auftrag.auftrag_nr = Forms!frm_montage.teil_01.Value

End Sub

#2

Hallo,
da ich mich mit Access gar nicht auskenne, kann ich Dir leider nicht helfen.
Ich nehme an, Dein Problem hat weniger mit SQL sondern mit Access zu tun.
Gruß
Erhard

Ich habe ein Problem und hoffe ihr könnt mir helfen.
Ich habe ein Formular, indem ich Bauteilnummern angeben kann.
Habe ich diese eingegeben und klicke auf das Feld so bekomme
ich Informationen zu diesem Bauteil (Ersteller, Datum und den
Status ob es verbaut ist oder nicht) die per VBA aus der
Bauteildatenbank entnommen werden. Die Felder Ersteller und
Datum sind gesperrt und können nicht geändert werden. Das
„verbaut Feld“ ist ein Auswahlfeld. Ich würde nun gerne dort
dann „verbaut“ auswählen und das dies dann in der Datenbank
von „nicht verbaut“ auf „verbaut“ umgeändert wird. Also quasi
das was ich vorher hatte (Informationen aus Datenbank an
Formular) umgedreht.
Ich versuche es mit SQL. Anbei mal mein Code ich hoffe ihr
könnt mir weiterhelfen:

Private Sub Befehl224_Click()
Dim db As DAO.Database

Set db = CurrentDb

db.Execute „Update tbl_auftrag“
Set montiert = Forms!frm_montage.Montiert_kk.Value
WHERE tbl_auftrag.auftrag_nr = Forms!frm_montage.teil_01.Value

End Sub

#3

Hallo,

sorry, hab schon seit Jahren kein VBA mehr programmiert.

Wenn ich mir das SQL-Update so ansehe, schaut das aber schon recht gut aus.

schönen Gruß
Stefan