Hello Mr.Viescas
Thank you very much.
The "RunCommand acCmdSelectRecord DoCmd.SetWarnings False RunCommand acCmdDeleteRecord DoCmd.SetWarnings True" works very good.
However I tried replacing the RecordsetClone with the OpenRecordset method (see the below procedure). It seems to be working ok so far, but is it a good practice to do it in this way?
Thank again
Phucon.
Private Sub cmdNext_Click()
On Error GoTo ErrorHandler
Set db = CurrentDb
Set rs = db.OpenRecordset("tblContracts", dbOpenDynaset)
If Not (rs.EOF And rs.BOF) Then
MoveNext
Else
MovePrevious
End If
rs.Close
ExitProcedure:
Exit Sub
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Description
Resume ExitProcedure
Resume
End Sub
__._,_.___
Posted by: saigonf7q5@yahoo.com
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (4) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar