Copiare Record in Access con VBA

[jury79]

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

[optime]

"openrecoRdset" invece di "openrecodset" ?

[jury79]

ops...

hai ragione.

GrazieMille

[jury79]

Ho un'altro problemino,

con il codice che conosco posso duplicare dei record dopo averli cercati.
Adesso ho la necessità di duplicare un record cercandolo per un campo numerico.
Mi va in blocco quando cerco un campo generato da un' autonumerazione (id-chiave).

id_numero = InputBox("Inserire ID_RNCP", "Richiesta ID_RNCP")
Tabella.FindFirst "ID_record = '" & id_numero & "'" <---si blocca

Consigli???
Grazie

[optime]

imho, altro problema, altro thread. e poi (ma me lo dirai nell'altro thread) "si blocca"= ti dà errore?

[jury79]

Si, mi da errore nel caso di un numero.
Apro un'altra discussione così ti posto l'esempio.
Grazie ancora x l'aiuto.