Text Box Assistance

[Kenny G]

I have the below listed code in a text box:

Private Sub TypeofSurgery_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim strTitle As String
Dim intStyle As Integer

If IsNull(Me.TypeofSurgery) Then
strMsg = "Pick A Value From The List Box."
strTitle = "This Is A Required Field"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Cancel = True
End If
End Sub

The problem is when I leave the text box empty I can go on to the next
field. I do not want the box empty. I do not want to leave this text
box until a selection is made.

Any help would be appreciated.

Kenny G

[PC Datasheet]

Put the following code in the OnEnter event of the next field:

If IsNull(Me!TypeOfSurgery) Then
MsgBox "Enter Type Of Surgery First",,"Missing Type Of Surgery"
Me!TypeOfSurgery.SetFocus
End If
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com
"Kenny G" <kg****@hotmail.com> wrote in message
news:81**************************@posting.google.c om...

I have the below listed code in a text box:

Private Sub TypeofSurgery_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim strTitle As String
Dim intStyle As Integer

If IsNull(Me.TypeofSurgery) Then
strMsg = "Pick A Value From The List Box."
strTitle = "This Is A Required Field"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Cancel = True
End If
End Sub

The problem is when I leave the text box empty I can go on to the next
field. I do not want the box empty. I do not want to leave this text
box until a selection is made.

Any help would be appreciated.

Kenny G

[U N Me]

I created a text field called Text0
In the OnExit event (which you can cancel) I entered
If IsNull(Me.Text0) Then
msgbox "Enter Data"
Cancel = True
Endif
Kenny G wrote:

I have the below listed code in a text box:

Private Sub TypeofSurgery_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim strTitle As String
Dim intStyle As Integer

If IsNull(Me.TypeofSurgery) Then
strMsg = "Pick A Value From The List Box."
strTitle = "This Is A Required Field"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Cancel = True
End If
End Sub

The problem is when I leave the text box empty I can go on to the next
field. I do not want the box empty. I do not want to leave this text
box until a selection is made.

Any help would be appreciated.

Kenny G

[Kenny G]

Many thanks for both of your assistance. This is the final sub that worked.

Private Sub TypeofSurgery_Exit(Cancel As Integer)
If IsNull(Me.TypeofSurgery) Then
MsgBox "Data Entry Required - Select From List Provided"
Cancel = True
End If
End Sub

Thanks again.

Kenny G

U N Me <un**@together.com> wrote in message news:<3F***************@together.com>...

I created a text field called Text0
In the OnExit event (which you can cancel) I entered
If IsNull(Me.Text0) Then
msgbox "Enter Data"
Cancel = True
Endif
Kenny G wrote:

I have the below listed code in a text box:

Private Sub TypeofSurgery_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
Dim strTitle As String
Dim intStyle As Integer

If IsNull(Me.TypeofSurgery) Then
strMsg = "Pick A Value From The List Box."
strTitle = "This Is A Required Field"
intStyle = vbOKOnly
MsgBox strMsg, intStyle, strTitle
Cancel = True
End If
End Sub

The problem is when I leave the text box empty I can go on to the next
field. I do not want the box empty. I do not want to leave this text
box until a selection is made.

Any help would be appreciated.

Kenny G