Kod:
Private Sub Komut0_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rst2 As DAO.Recordset
Set dbs = CurrentDb
sql1 = "SELECT* FROM Tablo1"
dbs.Execute ("DELETE * FROM Tablo2")
Set rst = dbs.OpenRecordset(sql1)
Do While Not rst.EOF
alan = alan & "," & "#" & rst("aylar") & "," & rst("alan1")
rst.MoveNext
Loop
alan = Mid(alan, 2)
alan = Split(alan, ",")
For i = 0 To UBound(alan)
If Left(alan(i), 1) = "#" Then
ay = Mid(alan(i), 2)
Else
dbs.Execute ("INSERT INTO Tablo2 ( aylar, Alan1, Alan2 ) VALUES('" & ay & "', '" & alan(i) & "', " & 1 & ")")
End If
Next
DoCmd.OpenQuery "sor", acViewNormal, acEdit
End Sub