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