Force user to enter data in a text box?

[VBAExcellNoob]

Hello,

I want to force the user to enter data into a text box based on the answer to a question on the form.

For example if they answer a question "Yes" and try to exit and save without entering data in the text box a message would pop up telling them to do it.

Is that possible?

Thanks

 

[VBAExcellNoob]

I tried using code something like this but nothing is happening if I click a new record

Private Sub Text180_BeforeUpdate(Cancel As Integer)


If Me.Combo5 = "Yes" Then
MsgBox "You need to type comment"
Cancel = True
Me.Text180.SetFocus


End If
End Sub

 

[xenou]

On required form fields in general:
Requiring Data Entry into Form Fields | Database Solutions for Microsoft Access | databasedev.co.uk

It looks like you have it right, however, basically. Perhaps if your "yes" is a checkbox you are checking against the wrong data type. If the textbox is actually a text value field, then be careful because vba is case sensitive on string equality so "Yes" <> "yes" <> "YES"

Also be careful with comboboxes that you are using the true Value correctly, and not just the displayed text (i.e, the bound field vs. the field(s) shown in the dropdown).

 

[Micron]

The event chosen is of paramount importance as well. In your case, it probably should be on the form update event, not the control.
Or, the control you chose if it were the OnLostFocus event IF you had set the focus to that control upon combo update or could otherwise know that it had the focus.

 

[xenou]

it probably should be on the form update event, not the control.

doh!

Yes. See the example code from the link above as well.