Salve a tutti,
Ho la necessità di copiare alcuni record in una stessa tabella (Prova) tramite pulsante in una maschera.


Ho cercato in rete ed ho trovato un codice del tipo:

Private Sub Comando25_Click()

Dim DBCorrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim Tabella1 As DAO.Recordset

'Apro la tabella
Set DBCorrente = CurrentDb
Set Tabella = DBCorrente.openrecodset("Prova", opendbdynaset) <----qui va in blocco
Set Tabella1 = DBCorrente.openrecodset("Prova")

'Cerco il dato
Tabella.FindFirst "ID=2"

'Se non lo trovo non non duplica il dato
If Tabella.nomacth = False Then
Tabella1.AddNew
Tabella1.Fields("Nome") = Tabella.Fields("Nome")
Tabella1.Fields("Cognome") = Tabella.Fields("Cognome")
Tabella1.Fields("età") = InputBox("Inserire Età", "Richiesta Età", Tabella.Fields("Eta"))
Tabella1.Update
End If

'Chiusura tabelle
Tabella.Close
Tabella1.Close
DBCorrente.Close

End Sub


Ma mi va in blocco dove segnalato.
Qualcuno sa spiegarmi il perchè?

Premetto che ho caricato dagli strumenti di VBA:
Microsoft DAO 3.6 Object Library


Grazie in anticipo.
Saluti