Private Sub btnDuplicate_Click()
Dim dbs As Database, Rst As Recordset
Dim F As Form
Set dbs = CurrentDb
Set Rst = Me.RecordsetClone
With Rst
.AddNew
!Nazione = Me!Nazione
!Department = Me!Department
!Mittente = Me!Mittente
.Update
.Move 0, .LastModified
End With
Me.Bookmark = Rst.Bookmark
End Sub
Dalla guida di Access:
Proprietà RecordsetClone
[CUT]
Tale proprietà è disponibile solo utilizzando Visual Basic ed è di sola
lettura in tutte le visualizzazioni.
[CUT]
Il RecordsetClone è di sola lettura, non puoi farci un .AddNew.
Namor
Pertanto si apre un recordset anche sulla tabella dei dati vera e propria e
ci incolla il valore dei campi del recordset ottenuto dal recordsetclone
Antonio
Ah, già, dimenticavo!
Grazie Antonio.
:-)
Namor
[cut]
>Dalla guida di Access:
>
>Proprietą RecordsetClone
>[CUT]
>Tale proprietą č disponibile solo utilizzando Visual Basic ed č di sola
>lettura in tutte le visualizzazioni.
>
>[CUT]
>
>Il RecordsetClone č di sola lettura, non puoi farci un .AddNew.
>Namor
C'č scritto, č vero ... perņ questa sub funziona...
Private Sub cmdCancella_Click()
With Me.RecordsetClone
.Bookmark = Me.Bookmark
.Edit
.blnCancellata = True
.Update
End With
Me.Requery
End Sub
Ho preso lo spunto da un esempio analogo di Roberto (a dire la veritą
anch'io prima pensavo che non fosse possibile).
Ciao
--
Alberto
No alle guerre