açılan kutudan listeye ekle çıkar

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

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

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?

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