if change selection then go to specific tex box

[Dennis Wolf]

Hi,
I have a drop down box which gives me two options- "admitted" and
"discharged". Default is "admitted"- if the user changes the option to
"discharged" I want the user to be forced to enter the discharge date (which
is a date picker) before being able to carry on.
Thanks
Dennis

 

[John W. Vinson]

Hi,
I have a drop down box which gives me two options- "admitted" and
"discharged". Default is "admitted"- if the user changes the option to
"discharged" I want the user to be forced to enter the discharge date (which
is a date picker) before being able to carry on.
Thanks
Dennis

You can use the Form's BeforeUpdate event to check the state of the combo:

Private Sub Form_BeforeUpdate(Cancel as Integer)
Dim iAns As Integer
If Me!comboboxname = "Discharged" Then
If IsNull(Me!datepickername) Then
IAns = MsgBox("Enter discharge date or click Cancel", vbOKCancel)
Cancel = True
If iAns = vbCancel Then ' wipe the form if the user selects Cancel
Me.Undo
Else
Me.datepickername.SetFocus
End If
End If
End If
End Sub

John W. Vinson [MVP]