Datasheet Subform - return cursor to problem entry 1

[crystalreporting]

Hi - I have a subform that is a datasheet for collecting serial numbers. I want to check that a serial number is entered, and that the serial number does not already exist. I have the following code in the 'After Update' event:

Private Sub Serial_Number_AfterUpdate()
Dim str_serial_number As String

If (IsNull(Me.Serial_Number)) Or Me.Serial_Number = "" Then
MsgBox "Must enter a valid serial number", vbInformation, "IM Enter Receipts"
Cancel = True
Me.Serial_Number.SetFocus
Exit Sub
End If

str_serial_number = Me.Serial_Number

If Not (IsNull(DLookup("[ser_lot_no]", "dbo_imlsmst_sql", "[ser_lot_no] = '" & str_serial_number & "'"))) Then
MsgBox "Serial number already exists", vbInformation, "IM Enter Receipts"
Cancel = True
Me.Serial_Number.SetFocus
Exit Sub
End If

End Sub

The problem is that after acknowledging the message, the cursor moves to the next line in the datasheet, instead of staying on the line with the problem. Any ideas?

Peter Shirley

http://www.srhconsulting.com

 

[PHV]

If you want to have a Cancel argument then use the BeforeUpdate event !

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[crystalreporting]

Thank you - using the right event made all the difference.

Peter Shirley

http://www.srhconsulting.com