If..Then null (2002)

[paulbien]

I am trying to write an IF..Then code that will make a message appear if a textbox is not filled in or empty or save the file if the textbox has data in it. Below is what I was started out with and then got stuck. Can anyone help. Thanks Paul

If Me.Class = "" Then
MsgBox "You must enter this student's graduation year.", vbOKOnly
Me.Class.SetFocus
Else

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
Me.txtname.SetFocus

End If

[HansV]

There is usually no need to save a record explicitly, since Access will do this automatically when you move to another record.

Try using the Before Update event of the form to check Class:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Class) Then
MsgBox "You must enter this student's graduation year!", vbExclamation
Me.Class.SetFocus
Cancel = True
End Sub

I'm not sure it's a good idea to start a new record - what if the user wants to go back to a previous record? If the user is already on the last record, tabbing out of the last control will take him/her to a new record anyway.