verify data on forms subform

[oxicottin]

Hello, I have a form named "AccidentEntry" and on this form is a subform named "AccidentEntrySubForm". I have a button on the AccidentEntry Form that I need to verify that data is in a text box named "txtRootCause" on my subform before calling a procedure. what is wrong in my code because its going to the procedure then the text field is blank and its suposed to give a msg box and set focuse to the text box on my subform.

Private Function VerifyEmailData()
   
   If Forms("AccidentEntry")("AccidentEntrySubForm").Form.txtRootCause = "" Then
      MsgBox "You Must enter a Root Cause before proceeding! ", vbCritical, "Selection Error"

      Forms("AccidentEntry")("AccidentEntrySubForm").Form.txtRootCause.SetFocus

     Exit Function
  Else
     Call EmailData
  End If
End Function

 

[Kiwiman]

Howzit
You can try the following format (You will need to replace wiht your control names:

Me!Subform1.Form!ControlName

I use this site when figuring out how to reference controls on subforms etc.

http://www.mvps.org/access/forms/frm0031.htm

 

[oxicottin]

I have already looked there and tried.

Private Function VerifyEmailData()
   
   If Me.AccidentEntrySubform.Form!txtRootCause = "" Then
      MsgBox "You Must enter a Root Cause before proceeding! ", vbCritical, "Selection Error"

      Me.AccidentEntrySubform.Form!txtRootCause.SetFocus

     Exit Function
  Else
     Call EmailData
  End If
End Function

with the same results. Any Ideas?

Thanks!

 

[Kiwiman]

In the if statemetn I usually put the following to cater for a null field. At the moment you are looking at an empty string only:

If Me.AccidentEntrySubform.Form!txtRootCause = "" or isnull(Me.AccidentEntrySubform.Form!txtRootCause) Then

 

[oxicottin]

Thank god that was it.... Thank you!