Skip to main content

AccessTr.neT


form için veri aktarımı

form için veri aktarımı

Çözüldü #1
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
.rar FormdaArama.rar (Dosya Boyutu: 11,93 KB | İndirme Sayısı: 16)
Son Düzenleme: 28/04/2010, 15:47, Düzenleyen: hasan17.
Cevapla
Çözüldü #2
İnceleyiniz...
Düğme ile listbox'lar arası veri taşıma
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #3
teşekkürler
Cevapla
Çözüldü #4
Örnekte, hem tek tek, hem de çoklu olarak 2 listbox arası seçim örnekleri bulabilirsiniz.
.rar ListBox_Secim.rar (Dosya Boyutu: 75,39 KB | İndirme Sayısı: 25)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #5
ü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 ?
Son Düzenleme: 28/04/2010, 17:22, Düzenleyen: hasan17.
Cevapla
Çözüldü #6
Ö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.
.rar 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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task