Merhabalar;
Örnek dosyada liste kutusundan seçilen kayıtlara oluşan sorguya göre
Kod:
UPDATE sorgu SET sorgu.DURUMU = 2;Butonunun olayında
Kod:
Dim Q As QueryDef
Dim v As Variant
Dim sql, kiriter As String
For Each v In Me.Liste0.ItemsSelected
kiriter = kiriter & Me.Liste0.Column(0, v) & ","
Next
kiriter = "(" & Left(kiriter, Len(kiriter) - 1) & ")"
Set DB = CurrentDb()
Set Q = DB.QueryDefs("sorgu")
Q.sql = "Select * From T_VERILER Where [ID] In" & kiriter & ";"
Q.Close
DoCmd.OpenQuery "yeni oluşturduğum sorgu" 'UPDATE sorgu SET sorgu.DURUMU = 2;