form için veri aktarımı

1 2 3 4 5 6
28/04/2010, 15:46

hasan17

arkadaşlar "sledgeab" hocanın yaptığı çalışma vardı veri aratma için textboxlı falan aklıma birşey geldi ben listeden aratsam istedğimi bulunca 1 butona bassam allta başka bir liste kutusuna atsa veya başka butonla tekrar çıkarsa olurmu?

yani listemden istediğim veriler alsam sadece
28/04/2010, 16:13

Puletin

28/04/2010, 16:13

hasan17

teşekkürler
28/04/2010, 16:16

Seruz

Örnekte, hem tek tek, hem de çoklu olarak 2 listbox arası seçim örnekleri bulabilirsiniz.
28/04/2010, 16:50

hasan17

üstad peki ben bu listeye ilk listeden veriyi aktardıktan sonra ayrı bi sütun ekleyebilirmiyim
örneğin
adet başka bir tablodaki bir sutun tutar sutunu ise deyim oluşturucuyla yaptığım bir sutun eklenebiliyormu ve arasında tekrar işlem yaptırabilirmiyim?

bu arada örnek çok güzel olmuş teşekkürler
son sorduğumu boşverin ürünü aktarma nasıl yapılıyor butonla onu anlatırmısınız acaba ?
28/04/2010, 18:05

Seruz

Ö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.
1 2 3 4 5 6