Skip to main content

AccessTr.neT


açılan kutudan listeye ekle çıkar

açılan kutudan listeye ekle çıkar

Çözüldü #1
merhaba arkadaşlar, Access kullandıkça her türlü çalışamda kullanası geliyor insanın Img-grin

sonum şu şekilde ekte F_SIHIRBAZ_EGITMEN adlı formda
egitmeni açılan kutudan seçip ekel dediğimde LSTEGITMEN listesine ekleyecek,
çıkar dediğimde listeden çıkacak....
böyle 4-5 tane eğitmen seçtikten sonra kaydet tıkladığımızda T_EGITMENLER tablosuna alt alta hepsini kaydedicek... daha önce böyle çalışmalar gördüm ama iş stresi olsa gerek kafamı bir türlü veremedim yardımcı olursanız sevinirim... iyi çalışmalar...
.rar LİSTE.rar (Dosya Boyutu: 15,66 KB | İndirme Sayısı: 16)
Cevapla
Çözüldü #2
Ekle butonuna
Visual Basic Code
Me.LSTEGITMEN.AddItem (AKEGITMEN.Column(1))
çıkar butonuna
Visual Basic Code
Me.LSTEGITMEN.RemoveItem (LSTEGITMEN)

kaydet butonuna
Visual Basic Code
Dim ListeSira As Integer

For ListeSira = 0 To Me.LSTEGITMEN.ListCount - 1
    strSQL = "SELECT * FROM T_EGITMENLER "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
            .AddNew
            .Fields("DONEMID") = Me.Açılan_Kutu8
            .Fields("EGITMENID") = DLookup("[EGITMENID]", "T_EGITMEN", "[EGITMEN]=" & "'" & Me.LSTEGITMEN.ItemData(ListeSira) & "'")
            .Update
        End With
Next
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
teşekkürler hocam oldu... ek olarak ekle derken aynı isim olduğunda ekleme yapmaması mümkün mü?

birde ekle olayı tek açılan kutuya göre yaptık bunu mesela
MTNADSOYAD,AKUNVAN,AKISTASYON gibi çoklu yaptığımızda ekleye ne yazmamız gerek?
Son Düzenleme: 17/05/2013, 00:53, Düzenleyen: mhmtogz.
Cevapla
Çözüldü #4
Örnek uygulamanızı ekleyerek yeni konu açınız.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task