Buongiorno a tutti,
dovrei duplicare un record nello stesso recordset, in pratica dovrei creare in base ad alcune condizioni un pagamento di una scadenza es.

----------------------------------------------------------
Dim x As DAO.Recordset
Set x = Me.Sottomaschera_Pagamenti_Query.Form.Recordset
Dim c As Integer 'contatore


If x.EOF Then Exit Sub Else GoTo avanti
avanti:
' definiamo quanti record sono selezionati
x.MoveFirst
c = 0
' definisce se il record è selezionato
Do Until x.EOF
If x("selezione") = -1 Then GoTo s1 Else GoTo n1
s1:
c = c + 1
n1:
MoveNext
Loop
Select Case c

Case Is = 0 ' nessuna selezione
MsgBox "Nessuna selezione effettuata"

Case Is = 1 ' un solo record
' duplicare il record invertendo il segno di pagamento
-----------------------------------------------------------------
Ora per trovare il record potrei utilizzare "seek" oppure "findfirst" ma vorrei sapere se c'è la possibilità di duplicare il record trovato senza memorizzare campo per campo con le variabili (sono più di 20) e senza violare l'integrità del contatore.
Spero di essere stato chiaro.
Ringrazio tutti quelli che potranno aiutarmi.
Saluti
El Chorro