Gustav Brock
Gustav at cactus.dk
Mon Feb 26 10:53:37 CST 2007
Hi Rocky
Try with:
If Me.RecordsetClone.NoMatch = True Then
MsgboxUni Me.hWnd, TranslateMsgbox("PartNumberNotFound"), ,
vbExclamation
Me.RecordsetClone.MoveFirst
End If
Me.Bookmark = Me.RecordsetClone.Bookmark
'Me.cmdExitDemandSide.SetFocus
'cboPartsList.Visible = False
Also, you should assign RecordsetClone to a Recordset and then manipulate that.
/gustav
>>> rockysmolin at bchacc.com 26-02-2007 17:39:07 >>>
Dear List:
Can anyone see why I should get an error "2001 - you cancelled the previous
operation" on the statement Me.Bookmark = Me.RecordsetClone.Bookmark in the
following?
Me.RecordsetClone.FindFirst "[PartNumber] = '" & Me.cboPartsList.Value &
"'"
MsgBox Me.RecordsetClone.NoMatch
If Me.RecordsetClone.NoMatch = True Then
MsgboxUni Me.hWnd, TranslateMsgbox("PartNumberNotFound"), ,
vbExclamation
DoCmd.GoToRecord , , acFirst
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
'Me.cmdExitDemandSide.SetFocus
'cboPartsList.Visible = False
End If
Interestingly, if I hit debug to the error message (and it opens the code
page with that statement highlighted) and I pressF5, it carries on just
fine.
MTIA,
Rocky