Sayın malidolu,

Alıntı:liste0 kutusunda coklu secim yaparsak kod nasıl olacak

ifadenize yönelik olarak;aslında sizin tam olarak yapmayı istediğiniz işlem:


listeden seçili olan kayıt ya da kayıtları, ozeller adlı tabloda siparişyollandı adlı alan üzerinde onaysız olan durumunu onaylatmak.

Bu nedenle,direkt bir GÜNCELLEME (UPDATE) Sql sorgu komutu ile yapmanız yeterlidir,aslında.


Bunun için de,ilgili butonun içeriğini

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.



Dim i As Variant



If MsgBox("Onaylamak istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then



DoCmd.SetWarnings False





For Each i In Me.Liste0.ItemsSelected

   DoCmd.RunSQL "UPDATE ozeller SET [siparişyollandı]=-1" & " WHERE [id]=" & Me.Liste0.ItemData(i)

Next





DoCmd.SetWarnings True



Else

Me.Undo

End If



Forms!ozellerhatırlatma!Liste0.Requery

yukarıdaki kodlar ile değiştirerek deneyiniz.Bilginize…iyi çalışmalar,saygılar.