ADO kullanmak daha mantıklı gibi.

Private Sub Komut2_Click()

DoCmd.SetWarnings False



Dim rs As New ADODB.Recordset, rs1 As New ADODB.Recordset



Dim Sql As String

sql = "TRANSFORM First(Ülke_Düzenle2.Ülke) AS İlkÜlke " & _

"SELECT Ülke_Düzenle2.sayı, Ülke_Düzenle2.Otel_Adı, Ülke_Düzenle2.tutar AS Tutar " & _

"FROM Ülke_Düzenle2 " & _

"GROUP BY Ülke_Düzenle2.sayı, Ülke_Düzenle2.Otel_Adı, Ülke_Düzenle2.tutar " & _

"PIVOT Ülke_Düzenle2.Ülke;"



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

rs1.Open "Ülke_Düzenle", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



With rs1

    If Not rs.EOF Then

    Do

    .AddNew

    .Fields("sayı") = rs(0)

    .Fields("Otel_Adı") = rs(1)

    .Fields("Ülke_1") = rs(3)

    .Fields("Ülke_2") = rs(4)

    .Fields("Ülke_3") = rs(5)

    .Fields("Ülke_4") = rs(6)

    .Fields("Ülke_5") = rs(7)

    .Fields("tutar") = rs(2)

rs.MoveNext

rs1.Update

Loop Until rs.EOF

End If

End With

rs1.Close: rs.Close: Set rs1 = Nothing: Set rs = Nothing



DoCmd.SetWarnings True

MsgBox "Aktarma İşlemi Tamamlandı"

End Sub