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

Try:

If IsNull(vlastname) then
   MsgBox "Enter a Last Name" , vbInformation + vbOKOnly, "Enter Last Name"
Else
   Do Whatever
End IF

great stuff...cheers

Cheers
Tony