add record fra et udvalg over i anden tabel

Lav en tilføjelsesforespørgsel med et kriterie:

Forespørgsler > Ny > tilføj den tabel der skal levere data > Forespørgsler og vælg Tilføjelsesforespørgsel.

ja mugs>> det er jeg med på men se lige her

Private Sub Kommandoknap10_Click()
Dim db As Recordset
Dim VARa As String
Set rs = CurrentDb.openrecordset("domain")

Dim pay As Date
pay = Me.txtPayedUntil


Do Until rs.EOF
    If rs("payeduntil") <= pay Then
      checktermin (rs("paytermin"))
****** her ønsker jeg at smide denne record over i tabellen tblpays med de tilhørende felter         

newpayfrom = DateAdd("d", 1, pay)
newpayto = DateAdd("m", test, pay)


    MsgBox rs("domain")
    MsgBox newpayfrom
    MsgBox newpayto

End If

rs.MoveNext
Loop
rs.Close
Set rs = Nothing

End Sub

der må være en add et eller andet

F.eks.:

DoCmd.RunSQL "INSERT INTO Tabel1 ( dato )SELECT Date()+3"

eller:

DoCmd.RunSQL "INSERT INTO Tabel1 SELECT Tabel2.felt2,felt1,dato FROM Tabel2 Where Tabel2.dato < #2003-01-01#"

Eller med VBA (Kræver reference til DAO:

Dim Rst As Recordset, Db As Database 'Variabelerklæringer'
Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("Tabel3") 'Definerer Rst som tabellen "Tabel3"
'og åbner tabellen'
    With Rst 'With benyttes for at spare tastetryk'
    .AddNew 'Gør tabellen klar til ny post'
    .Fields![Felt2] = felt1 'Feltet [felt2] sættes = felt1 i formularen Opret person'
    .Update 'Den nye post gemmes i tabellen'
End With
MsgBox "Posten er tilføjet i tabel3."
'Hvis den nye post skal tilføjes i flere tabeller, kan der her defineres en ny Rst