-
hi! how to force the recordset not to move to the next record, if I check that in the 'rst_WillMove' event user made not valid input?
for example:
Private Sub rst_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If not blnTest then
' something wrong, the record must stay the same !!!
End If
End Sub
*** VB6+Ado ***
thank You !!!
-
Perhaps this will help.
Private Sub rst_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If not blnTest then
msgbox "Invalid Input"
exit sub
'text1.setfocus
End If
End Sub
-
nope, the solution was to write
"adstatus = adStatusCancel".
thanks!