Prevent Data Entry Base Upon Control Value

[Glenn White]

Please help! I am trying to validate the data select in a control. If the control in null, then I do not want the user to not be able to do anything else except select the value of the control I am checking

I can check to see if the control is null but I cannot keep the user for selecting another control on a tabbed form. How do I go about doing this? I have tried a loop and repainting the object, but nothing works

Any direction or advice will be greatly appreciated. My code is listed below

Thanks

********************************* CODE BEGINS **********************************
Dim strMsg As Strin

If IsNull(Forms![frmOne].[ControlOne]) The
Bee
MsgBox "You must make a selection", vbQuestion, "Invalid Choice

‘ Code to keep user from doing anything by making a choice

Els
‘If value is not Null, send report
Me.Refres

‘Code added here to send report to various people

DoCmd.Close acForm, "frmOne", acSaveN
End I
********************************** CODE ENDS ************************************

 

[Art]

Hi Glenn,
You could disable the other controls on the
form until there is a value selected in the control youo
are checking. Something like(air code):

Dim strMsg As String

If IsNull(Forms![frmOne].[ControlOne]) Then
Beep
MsgBox "You must make a selection", vbQuestion, "Invalid

Choice"

txtControl2.Enabled = false
txtControl3.Enabled = false etc
ControlOne.setFocus
If not IsNull(ControlOne) Then
txtControl2.Enabled = true etc

END OF AIR CODE

The Easy Day

-----Original Message-----
Please help! I am trying to validate the data select in

a control. If the control in null, then I do not want the
user to not be able to do anything else except select the
value of the control I am checking.

I can check to see if the control is null but I cannot

keep the user for selecting another control on a tabbed
form. How do I go about doing this? I have tried a loop
and repainting the object, but nothing works.

Any direction or advice will be greatly appreciated. My code is listed below:

Thanks!

********************************* CODE BEGINS ***********************************
Dim strMsg As String

If IsNull(Forms![frmOne].[ControlOne]) Then
Beep
MsgBox "You must make a selection", vbQuestion, "Invalid Choice"

â?~ Code to keep user from doing anything by making a choice.

Else
â?~If value is not Null, send report.
Me.Refresh

â?~Code added here to send report to various people.

DoCmd.Close acForm, "frmOne", acSaveNo
End If
********************************** CODE ENDS ************************************
.

 

[Pavel Romashkin]

Use on Lost Focus event of the control to validate the data. If the
value is invalid, set the focus back to the same control.
I would also display a dialog message that would inform the user about
what needs to be done to avoid making them mad beyond belief when they
are unable to do anything, stuck on the same control all the time.

Pavel