Mesela SECILI diye bir alan ekleyelim, alan tipi Evet/Hayır, varsayılanı 0 olsun.
Formda; daha anlaşılır olması için üstteki liste kutusunun ismini "Kayit_Listesi",
alttaki liste kutusunun ismini "Secilen_Listesi" olarak değiştiriyoruz.
"Kayit_Listesi" 'nin satır kaynağında, SECILDI alanını ekleyip kritere No (veya 0) yazıyoruz.
"Secilen_Listesi" nin satır kaynağına, "Kayit_Listesi" 'nin satır kaynağını aynen kopyalayıp, arama kriterini kaldırıyoruz ve SECILDI alanının kriterini Yes (veya 1) olarak değiştiriyoruz.
Seçim yapma (Aşağı Ok) butonunun click olayına aşağıdaki kodu yazıyoruz.
Kod:
If Not IsNull(Me.Kayit_Listesi.Value) Then
CurrentDb.Execute "Update Tablo1 Set SECILI=1 Where SNUM=" & Me.Kayit_Listesi.Value
Me.Kayit_Listesi.Requery
Me.Secilen_Listesi.Requery
Me.Kayit_Listesi.Value = Null
End If--
Sonra seçileni kaldırma (Yukarı Ok) butonunun click olayına aşağıdaki kodu yazıyoruz.
Kod:
If Not IsNull(Me.Secilen_Listesi.Value) Then
CurrentDb.Execute "Update Tablo1 Set SECILI=0 Where SNUM=" & Me.Secilen_Listesi.Value
Me.Kayit_Listesi.Requery
Me.Secilen_Listesi.Requery
Me.Secilen_Listesi.Value = Null
End IfUmarım anlatabilmişimdir.
Örnek ektedir.
