forcing the user to choose a value

[fabiobarreto10]

friends,


I have a subform. When the last field of a record is completed, shows a message to the user and moves the focus to the first field of the next record, this field has a list box. How do I force the user chooses a value. Do not leave the field without assigning a value.


Thank you.

[Bob Fitz]

Not Is Null and <> 0
Try this in the Validation Rule property of the control.

[ssanfu]

Be careful. If a user is forced to choose a value, how do you ever exit the form?

I would use the form Before Update event to validate the record. Check if there is a value, if not ask if you really want to save this record. If yes, tell them they need to enter a value from the list box. If not, cancel the new record.

[Bob Fitz]

Be careful. If a user is forced to choose a value, how do you ever exit the form?

I would use the form Before Update event to validate the record. Check if there is a value, if not ask if you really want to save this record. If yes, tell them they need to enter a value from the list box. If not, cancel the new record.

I think this is a good point, well made.

[fabiobarreto10]

Friends thank you for help.


In the field, I tried the event before updating:


Private Sub Passo_BeforeUpdate(Cancel As Integer)


If IsNull(Me.Passo) Then
MsgBox "Por favor, indique o próximo passo"
Me.Passo.SetFocus
Else
Exit Sub


End If


End Sub


But it did not work.

[ssanfu]

Try:

Private Sub Passo_BeforeUpdate(Cancel As Integer)
   If IsNull(Me.Passo) Then
     MsgBox "Por favor, indique o próximo passo"
     Cancel = TRUE
     Me.Passo.SetFocus
  End If

End Sub

Don't need the "Else" and "Exit sub" lines.

[fabiobarreto10]

ssanfu Thank you.

I tried as you posted, but did not work.

[ssanfu]

OK, what do you mean by "...but did not work." ??

Is this in the FORM before update event or the CONTROL before update event??

[fabiobarreto10]

I tried this:


Private Sub Passo_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Passo) Then
MsgBox "Por favor, indique o próximo passo"
Cancel = True
Me.Passo.SetFocus
End If


End Sub

Thank You.

[ssanfu]

Is "Passo" a control or a form???

What is not "working"??

[fabiobarreto10]

"Passo" is the name of the field where I'm trying not to stay empty.


But no effect.

[ssanfu]

You should be using the FORM Before Update event

[fabiobarreto10]

In the event before updating the form I put:


Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Passo) Then
MsgBox "Por favor, indique o próximo passo"
Cancel = True
Me.Passo.SetFocus
End If
End Sub


Had no effect.

[Kirsti]

Hi there,

Just an idea - but the way I got around this issue in my form was by:

1. "Limit To List" = Yes in the Data Properties of the combo box in the form

And then,

In the Table properties set "Required" to "Yes" and set your Validation Text there.

Kirsti

[fabiobarreto10]

Kirsti, thank you for help.
I did as you said, but did not work. Had no effect.