Hallo,
ich habe eine Tabelle CF_InstallmentsT mit allen Raten und folgenden Feldern:
- InstallmentID
- ReferingSale
- InstallmentSum
- Notes
- Depreciated
Das letzte Feld ist ein Ja/Nein-Feld mit dem Standart-Wert "Nein".
Nun möchte ich über ein Listenfeld mit Mehrfachauswahl entsprechende Installments auswählen und bei diesen mit Klick auf den Button das Ja/Nein-Feld auf "Ja" ändern. Ist dies möglich?
Ich habe es versucht mit:
Private Sub Befehl14_Click()
Dim LbElem As Variant
Dim SelInstID As Long
If Me.lstInstallments.ItemsSelected.Count = 0 Then
MsgBox "Please Choose Installments to delete", _
vbInformation, Me.Caption
Exit Sub
End If
For Each LbElem In Me!lstInstallments.ItemsSelected
SelInstID = Me!lstInstallments.Column(0, LbElem)
CF_InstallmentsT.Depreciated = Yes WHERE "[InstallmentID]=" & Str(SelInstID)
Next LbElem
Me!lstInstallments.Requery
End Sub
lstInstallments = Listenfeld
Bei mir werde ich in den vba-Editor zurückgeschickt und ein Syntaxfehler moniert. Gelb markiert wird die:
Private Sub Befehl14_Click()
-Zeile
Kann mir da jemand einen Hinweis geben?
Hallo,
und wo(mit) änderst Du das Feld?
Dim db as database
set db=Currentdb
.
.
.
SelInstID = Me!lstInstallments.Column(0, LbElem)
db.execute "Update CF_InstallmentsT set Depreciated = -1 WHERE [InstallmentID]=" & SelInstID
Next LbElem
.
.
set db=Nothing
.
.
Mit Klick auf den Button.
Hab ich eingebaut und funktioniert.
Super, danke!!! :)