Private Sub BtnAktar_Click()

For x = 1 To 3

Controls("Mtn_" & x) = ""

    If IsNull(Controls("Ak_" & x)) = False Then

        Dim Dz() As Variant

        Dz = Controls("Ak_" & x)

        iLower = LBound(Dz)

        iUpper = UBound(Dz)

        son = ""

        For xL = iLower To iUpper

            son = son & ", " & Dz(xL)

        Next xL

        Controls("Mtn_" & x).Value = Mid(son, 2)

    End If

Next x

DoCmd.RunCommand acCmdSaveRecord

'hy__________________________________________Kayıt Ekle

SrgK = "SELECT * FROM tbl_yonler_aktarma"

Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset

rs.Open SrgK, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.AddNew

    rs("yon") = Me.yon

    rs("ort") = Me.ort

    rs("mat") = Me.mat

    xID = rs(0)

    rs.Update

    rs.Close

''''''''hy__________________________________________MVFEkle

Dim rs2 As DAO.Recordset

Dim strSQL As String



strSQL = "SELECT kimlik, metin1.Value As MVFYon, metin2.Value As MVFOrt, metin3.Value As MVFMat " & _

        "FROM tbl_yonler WHERE kimlik= " & Me.txtID

        

Set rs2 = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)



With rs2

On Error Resume Next

    Do While Not .EOF

        strSQL = "INSERT INTO tbl_yonler_aktarma (metin1.Value) VALUES ('" & !MVFYon & "') WHERE kimlik=" & xID

        CurrentDb.Execute strSQL, dbFailOnError

        strSQL = "INSERT INTO tbl_yonler_aktarma (metin2.Value) VALUES ('" & !MVFOrt & "') WHERE kimlik=" & xID

        CurrentDb.Execute strSQL, dbFailOnError

        strSQL = "INSERT INTO tbl_yonler_aktarma (metin3.Value) VALUES ('" & !MVFMat & "') WHERE kimlik=" & xID

        CurrentDb.Execute strSQL, dbFailOnError

        

        .MoveNext

    Loop

    .Close

End With



End Sub