AccessTr.neT
açılan kutudan listeye ekle çıkar - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: açılan kutudan listeye ekle çıkar (/konu-acilan-kutudan-listeye-ekle-cikar.html)



açılan kutudan listeye ekle çıkar - mhmtogz - 16/05/2013

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...


Cvp: açılan kutudan listeye ekle çıkar - ozanakkaya - 16/05/2013

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



Cvp: açılan kutudan listeye ekle çıkar - mhmtogz - 17/05/2013

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?


Cvp: açılan kutudan listeye ekle çıkar - ozanakkaya - 17/05/2013

Örnek uygulamanızı ekleyerek yeni konu açınız.