[federchicco]

Io dovrei incrementare il campo dataricerca in modo che mi faccia uno step di 7 giorni.
come posso fare ?

Public Sub AddRecords(ID As Long)
'id è la chiave primaria di tabella1
'questa sub richiede DAO
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim i As Integer



'crea recordset su TABELLA1
Set rs1 = CurrentDb.OpenRecordset("tabella1", dbOpenDynaset)

'cerca il record in TABELLA1
rs1.FindFirst "ID = " & CStr(ID)

'se trova il record...
If Not rs1.NoMatch Then

'crea recordset su tabella2
Set rs2 = CurrentDb.OpenRecordset("TABELLA2", dbOpenDynaset)
'ciclo sul totale di giorni
'per ogni giorno aggiunge un record alla tabella2
For i = 1 To rs1("scadenza")
rs2.AddNew
'elenco di campi da copiare o da impostare

rs2("ID") = rs1("ID")
rs2("macchina") = rs1("macchina")
rs2("tipo") = rs1("tipo")
rs2("reparto") = rs1("reparto")
rs2("installazione") = rs1("installazione")
rs2("scadenza") = rs1("scadenza")
rs2("controllo") = rs1("controllo")
rs2("Dataricerca") = rs1("Dataricerca")
'scrive record
rs2.Update
Next

MsgBox "Records creati!"

'... altrimenti...
Else
MsgBox "Record origine non trovato"
End If

'chiude gli oggetti
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
End Sub