Required field on subform VBA

[Slab_Rankle]

Hey guys,

I'm having problems trying to make a required field pop up a message when it's left blank. It's for a subform and I don't think the code I'm using as the destination is right. Here's what I have at the moment:

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(Forms![TabForm]![Notes subform].Form.txtNarrative) Then
MsgBox "Field needs to be filled in"
Me.txtNarrative.SetFocus
End If

End Sub

Can anyone point me in the right direction?

 

[bob fitz]

Hi
The code below should work if this the BeforeUpdate event of the SUB form.

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(Me.txtNarrative) Then
MsgBox "Field needs to be filled in"
Me.txtNarrative.SetFocus
End If

End Sub

 

[Slab_Rankle]

Well, that's what I originally had and it didn't seem to work. I'm really confused as to why it's not working. I'm 100% sure that txtNarrative is the name of the text box that needs checking. I thought maybe because I wasn't specifying the sub form it wasn't finding the field but it's definitely on the subform and the field is there....any ideas as to why this isn't working?

 

[bob fitz]

Hi
You could try replacing:

If IsNull(Me.txtNarrative) Then

with

If IsNull(Me.txtNarrative) or Me.txtNarrative = "" Then

just in case the control is a zero length string.

 

[Slab_Rankle]

I tried that too...however, even when the field is empty it still allows it to be submitted and no error message pops up. I'm probably doing something really stupid because I know this has worked for other people after doing a fair bit of research online...

 

[bob fitz]

Hi

I'm probably doing something really stupid

ME TOO
We have forgotten to cancel the update!
After the line

Me.txtNarrative.SetFocus

put this line:

Cancel = True

Sometimes we miss the obvious.

 

[Slab_Rankle]

Hi Bob,

That sorted it! Thank you!