Require fields

  • Thread starter Thread starter Jessica
  • Start date Start date
J

Jessica

I have two fields one call exit date and the other one exit reason. If a date
is enter in the exit date field i want the exit reason to be a require field.
How can i do that
 
In the forms Before Update event;

Private Sub Form_BeforeUpdate (Cancel As Integer)

If Not IsNull(Me![ExitDate]) Then
If Nz(Me![ExitReason], "") = "" Then
MsgBox "You must enter an exit reason"
Cancel = True
Me![ExitReason].SetFocus
End If
End If

End Sub
 
I have two fields one call exit date and the other one exit reason. If a date
is enter in the exit date field i want the exit reason to be a require field.
How can i do that
Click to expand...

If the date is Null, the reason can be null also?

If so, open the form in design view; view its properties; find the
BeforeUpdate event on the Events tab. Click the ... icon by it and choose
"Code Builder". Edit it to something like the following (use your own textbox
names of course):

Private Sub Form_BeforeUpdate(Cancel as Integer)
If Not IsNull(Me!txtExitDate) Then
If IsNull(Me!txtExitReason) Then
Cancel = True
MsgBox "Please enter an exit reason", vbOKOnly
Me!txtExitReason.SetFocus
End If
End If
End Sub
 
I enter the code below, it does ask me to enter an exit reason. But after i
get that message i also get an error message: stating the Object doesn't
suppor this property or method run time error 438. Do i suppose to get that
message.

Beetle said:
In the forms Before Update event;

Private Sub Form_BeforeUpdate (Cancel As Integer)

If Not IsNull(Me![ExitDate]) Then
If Nz(Me![ExitReason], "") = "" Then
MsgBox "You must enter an exit reason"
Cancel = True
Me![ExitReason].SetFocus
End If
End If

End Sub

--
_________

Sean Bailey


Jessica said:
I have two fields one call exit date and the other one exit reason. If a date
is enter in the exit date field i want the exit reason to be a require field.
How can i do that
Click to expand...
Click to expand...
 
when i click debug it Highlights the Me![Exit Reason].setfocus part.

Beetle said:
In the forms Before Update event;

Private Sub Form_BeforeUpdate (Cancel As Integer)

If Not IsNull(Me![ExitDate]) Then
If Nz(Me![ExitReason], "") = "" Then
MsgBox "You must enter an exit reason"
Cancel = True
Me![ExitReason].SetFocus
End If
End If

End Sub

--
_________

Sean Bailey


Jessica said:
I have two fields one call exit date and the other one exit reason. If a date
is enter in the exit date field i want the exit reason to be a require field.
How can i do that
Click to expand...
Click to expand...
 
when i click debug it Highlights the Me![Exit Reason].setfocus part.
Click to expand...

If your textbox is named txtExitReason use it instead. You can set the focus
to a textbox, but not to a table field:

Me![txtExitReason].SetFocus
 
Is not working i get the message Run Time Error 438 Object Doesn't Suppor
this property or method Me![Closing Reason].SetFocus

Beetle said:
In the forms Before Update event;

Private Sub Form_BeforeUpdate (Cancel As Integer)

If Not IsNull(Me![ExitDate]) Then
If Nz(Me![ExitReason], "") = "" Then
MsgBox "You must enter an exit reason"
Cancel = True
Me![ExitReason].SetFocus
End If
End If

End Sub

--
_________

Sean Bailey


Jessica said:
I have two fields one call exit date and the other one exit reason. If a date
is enter in the exit date field i want the exit reason to be a require field.
How can i do that
Click to expand...
Click to expand...
 
Is not working i get the message Run Time Error 438 Object Doesn't Suppor
this property or method Me![Closing Reason].SetFocus
Click to expand...

What is [Closing Reason]?

Is it the name of a field in your table? You can't set focus to a field in a
table, only to a Control on a Form.

What is the Name property of the textbox on the form which is bound to the
Closing Reason field?
 
Back
Top