merhaba arkadaşlar, Access kullandıkça her türlü çalışamda kullanası geliyor insanın
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...
açılan kutudan listeye ekle çıkar
Ekle butonuna
kaydet butonuna
Me.LSTEGITMEN.AddItem (AKEGITMEN.Column(1))
çıkar butonunaMe.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
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?
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.
Örnek uygulamanızı ekleyerek yeni konu açınız.
Konuyu Okuyanlar: 1 Ziyaretçi