Inhalt von Tabellenfeldern bei Button-Klick verändern

[Paule]

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:

Code [Auswählen] Erweitern

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:

Code [Auswählen] Erweitern

Private Sub Befehl14_Click()
-Zeile

Kann mir da jemand einen Hinweis geben?

[DF6GL]

Hallo,


und wo(mit) änderst Du das Feld?

Code [Auswählen] Erweitern

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
.
.


[Paule]

Mit Klick auf den Button.
Hab ich eingebaut und funktioniert.
Super, danke!!!