Error handling
Hi
I'm trying to force a field to be input with some data ie test if its null, by using the code below. I'm fairly new to this game so please be gentle with the mickey-taking.
Sub checkerrors()
Dim vlastname As Variant
Set vlastname = Forms!frmInput1.[txtLastName]
If vlastname = ("") Then
GoTo testAH
End If
testAH:
MsgBox ("Please enter a Last Name")
End Sub
Cheers
Tony
__________________
Cheers
Tony
|