Скопируйте строку из таблицы в другую таблицу в Access

Question

Это мой первый опыт работы с Access, поэтому я сейчас немного смущен. Вот мой код, и я не знаю, какая часть ошибочна. Существует не ошибка, но ничего не происходит после нажатия кнопки. Благодаря! Вот код:

Private Sub Command12_Click() 

Dim db As Database 
Dim rs As DAO.Recordset 
Dim rs2 As DAO.Recordset 
Set db = CurrentDb() 
Set rs = db.OpenRecordset("Amity") 
Set rs2 = db.OpenRecordset("Opportunity") 
With rs2 
.AddNew 
.Fields("Donor_Code") = rs!Donor_Code 
.Update 
.Close 
End With 
rs.Close 

End Sub 

Answer 1

Вы можете попробовать это с петлей Do:

Private Sub Command12_Click() 

    Dim db As Database 
    Dim rs As DAO.Recordset 
    Dim rs2 As DAO.Recordset 

    Set db = CurrentDb()  
    Set rs = db.OpenRecordset("Amity") 
    Set rs2 = db.OpenRecordset("Opportunity") 

    Do While (Not rs.EOF) 
    rs2.AddNew 
    rs2.Fields("Donor_Code").Value = rs!Donor_Code.Value 
    rs2.Update 
    rs.MoveNext 
    Loop 
' 
    rs2.Close 
    Set rs2 = Nothing 
    rs.Close 
    Set rs = Nothing 
    Set db = Nothing 
' 
End Sub