Duplicare record access 2016

di
Piero-Bo
il
2 risposte
P
Piero-Bo
Nuovo utente
Iscritto da
mar, 2024
Messaggi:
2

Duplicare record access 2016

Buonasera/Buongiorno, 

chiedo se qualcuno riesce ad aiutarmi con un problemino che ho da quando al lavoro mi hanno sostituito il pc che aveva Win7 con access 2010 con Win11 o access 2016.

Non riesco più a far duplicare un record sia con la modalità guidata che non il codice che usavo in vba.

errore run-time 2046, comando o azione incolla attualmente non disponibile.

Allego la foto del codice, non avendo il file con me non riesco a incollarlo come testo.

2 Risposte

  • M
    Mailman
    Utente Attivo
    Iscritto da
    mag, 2022
    Messaggi:
    217

    Re: Duplicare record access 2016

    Ho avuto anche io per diverso tempo questo tipo di problemi con il wizard del pulsante duplica. Prova con il codice seguente (ringrazio @Alex):

    Dim rst  As DAO.Recordset
Dim fld As DAO.Field
Dim vID As Variant
  
   Set rst = DBEngine(0)(0).OpenRecordset("SELECT * FROM tuatabella WHERE IDtuatabella=" & Me.controlloID, dbOpenSnapshot, dbReadOnly)
   With Me.RecordsetClone
       .AddNew
       For Each fld In rs.Fields
           If fld.Name <> "IDtuatabella" Then
               .Fields(fld.Name) = fld
           End If
       Next
       .Update
       .Bookmark = .LastModified
       vID = .Fields("IDtuatabella")
       Me.Requery
       .FindFirst "IDtuatabella=" & vID
       Me.Bookmark = .Bookmark
   End With
   rs.Close
   Set rs = Nothing
  • P
    Piero-Bo
    Nuovo utente
    Iscritto da
    mar, 2024
    Messaggi:
    2

    Re: Duplicare record access 2016

    Grazie 1000, 

    provo anche a vedere se mi ricordo qualcosa, sono anni che non metto mani a un codice vba, grazie di nuovo

Devi accedere o registrarti per scrivere nel forum
2 risposte