How do I Lock text boxes so I cant complete the record unless they are all filled out

[smc678]

I have a form that has a event proceadure after I select a name it refreshes the record and a DLook up fills out all of the associates info from another table. I have 5-15 text boxes that need to be filled out after that happens and I want it to not allow the user to skip a box with out filling out the box. I tried a validation rule not null and validation text which works only if I fill out the text box then deleted the text, then it won't let me go foward. Any Ideas out there?

[ssanfu]

Well, first off, you don't want to lock the text boxes, because then you cannot enter anything into the text boxes.

Second, I would use the form Before Update event to check that the required controls have data entered. If all of the required controls do not have the data, cancel the update and display a message. You can also position the focus to the control and/or display a message to cancel the record.

And third, if you are using a combo box to select the name, instead of using DLookup(), I would try and use the combo box row source to get all of the associates info and push it into the associated controls. Much faster and I think would be less code.

[smc678]

Your right I dont want to Lock the text box wrong word SO how to you do the 2nd thing?

[ssanfu]

You could use a series if IF statements to check if the control has data and cancel the update if the control was Null amd/or ask if the record should be canceled.

(use your control names)

Sub Form_BeforeUpdate(Cancel as Integer)

'check Last Name control
If Len(Trim(Me.LName))=0 Then
   Msgbox "Please enter the Last name", vbOKOnly, "Missing Last Name"
   Me.LName.SetFocus
   Cancel = True
End If

'check first Name control
If Len(Trim(Me.FName))=0 Then
   Msgbox "Please enter the First name", vbOKOnly, "Missing First Name"
   Me.FName.SetFocus
   Cancel = True
End If

etc..


End Sub