Required field (Access 2000)

Topic

New Reply

I have a form that has a button which creates a report from fields on the form

Is it possible to say if a specific text box is empty, an error will come up and the report will not be generated. Then when they click ok, fill in that field, then they can make a report

Reply | Quote

Replies

In your button’s Click event, you merely need something like this:

If isnull(txtCertainField) then
msgbox “Hey, you need to fill in this Certain Field!”,vbexclamation
exit sub
end if
docmd.openreport ……..etc…….

Reply | Quote

Just prior to the exit sub I would add

    txtCertainField.SetFocus

to take the user to the incomplete field.

Reply | Quote

The First Part worked Great Thanks Mark

The Setfocus did not work, could it be because the button is in the footer and the text field is in the header??

Reply | Quote

Also, Is there a way I can code it to open up the report or tell it to run a specific macro after this, i guess macro would be easier

Reply | Quote

Can you rephrase that? I don’t understand what you want to happen.

Reply | Quote

well first i would like the setfocus command to work, any tips??

Second I want to run a macro that is in my program in the same event

Reply | Quote

Can you post the On Click event procedure of the command button as it stands now? (You don’t have to post the entire form module, just the code for the command button)

Reply | Quote

Actually, the way I normally handle it is to make the background red for any fields that are incomplete, then have a single message box that says “Hey, you’ve got incomplete fields”. Moving to ay field sets its backcolor to normal.

Reply | Quote

Private Sub Print_Click()
If IsNull(Text_Notification_Number) Then
MsgBox “Notification No is a Required Field!”, vbExclamation
Exit Sub
Text_Notification_Number.SetFocus
End If

End Sub

Reply | Quote

At the moment, you exit the procedure before setting focus to the text box, so the SetFocus is not executed.

Change it as follows:

Private Sub Print_Click()
‘ Check if Text_Notification_Number has been filled in
If IsNull(Text_Notification_Number) Then
‘ Inform user
MsgBox “Notification No is a Required Field!”, vbExclamation
‘ First set focus to empty text box
Text_Notification_Number.SetFocus
‘ and then get out
Exit Sub
End If

‘ Code to open report goes here, for example
DoCmd.OpenReport “rptMyReport”, acViewPreview
‘ Instead of the above instruction, you can call another procedure here
‘ or execute a macro using code like DoCmd.RunMacro “MyMacro”
End Sub

Reply | Quote

that worked quite well, thank you to everyone who helped

Reply | Quote

Regarding the subject of required fields; however what if you want to check mutilpe fields and anyone of the fields are Null; I still would want the MsgBox to be displayed. How would you write the If IsNull Statement.

Reply | Quote

If you want to check several fields, just use an If IsNull(…) Then statement for each of the variables. Using the example from higher up in this thread:

Private Sub Print_Click()
‘ Check if Text_Notification_Number has been filled in
If IsNull(Text_Notification_Number) Then
‘ Inform user
MsgBox “Notification No is a Required Field!”, vbExclamation
‘ First set focus to empty text box
Text_Notification_Number.SetFocus
‘ and then get out
Exit Sub
End If

‘ Check if Second_Field has been filled in
If IsNull(Second_Field) Then
‘ Inform user
MsgBox “Second_Field is a Required Field!”, vbExclamation
‘ First set focus to empty text box
Second_Field.SetFocus
‘ and then get out
Exit Sub
End If

‘ Check if Another_Field has been filled in
If IsNull(Another_Field) Then
‘ Inform user
MsgBox “Another_Field is a Required Field!”, vbExclamation
‘ First set focus to empty text box
Another_Field.SetFocus
‘ and then get out
Exit Sub
End If

‘ Code to open report goes here, for example
DoCmd.OpenReport “rptMyReport”, acViewPreview
End Sub

Reply | Quote

HansV;
Your the man; it worked like a charm. If fact; I really used the code system to open a subform not a report. I really will need to look at the rest of your posting. Who knows how many nuggets of gold are just laying around for the picking.

Thanks;
MigAnt

Reply | Quote