Pessoal , gostaria de saber se é possível criar um botão em um formulário com um código para duplicar o registro atual, não teria problema ser uma nova ID.
Grato !
Grato !
Private Sub btCopiar_Click()
dim strCampos as string
strCampos = "nomeCampoA,nomeCampoB"
CurrentDb.Execute "INSERT INTO NomeTabela (" & strCampos & ") SELECT " & strCampos & " FROM Nometabela WHERE id =" & Me!id & ";"
End Sub