Öncelikle seçilen kayıtları diğerlerinden ayırmak için, tabloya bir alan eklemek gerekiyor.
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
Kayit_Listesi 'nde bir satır seçili ise, tablodaki o satırın SECILI alanını (1) yani seçili olarak değiştir, sonra hem üstteki, hem alttaki listeleri güncelle.
--
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 If
Secilen_Listesi 'nde bir satır seçili ise, tablodaki o satırın SECILI alanını (0) yani seçili değil olarak değiştir, sonra hem üstteki, hem alttaki listeleri güncelle.
Umarım anlatabilmişimdir.
Örnek ektedir.
FormdaArama_Seruz.rar
(Dosya Boyutu: 21,14 KB | İndirme Sayısı: 33)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
#1
