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
Me.LSTEGITMEN.AddItem (AKEGITMEN.Column(1))
çıkar butonuna
Me.LSTEGITMEN.RemoveItem (LSTEGITMEN)

kaydet butonuna
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
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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task