Form & subform Validation issue on Send Email button click

[Cyberwolf0000]

Hi All,
I am trying to figure a way to validate data before it is sent in a report
form. I currently can validate the main form easily using the following Code
that I got from Dirk Goldgar:
<Code Snippet Begin>
Function fncRequiredFieldsMissing(frm As Form) As Boolean

Dim ctl As Access.Control
Dim strErrCtlName As String
Dim strErrorMessage As String
Dim lngErrCtlTabIndex As Long
Dim blnNoValue As Boolean

lngErrCtlTabIndex = 99999999 'more than max #controls

For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup
If .Tag = "Validate" And .Visible And .Enabled Then
blnNoValue = False
If IsNull(.Value) Then
blnNoValue = True
Else
If .ControlType = acTextBox Then
If Len(.Value) = 0 Then
blnNoValue = True
End If
End If
End If
If blnNoValue Then
.BackColor = vbRed
strErrorMessage = strErrorMessage & vbCrLf & _
" " & .Name
If .TabIndex < lngErrCtlTabIndex Then
strErrCtlName = .Name
lngErrCtlTabIndex = .TabIndex
End If
End If
End If
Case Else
' Ignore this control
End Select
End With
Next ctl

If Len(strErrorMessage) > 0 Then
Call MessageBox("The following fields are required:" & vbCrLf & _
strErrorMessage & "|False|&OK|False|Required Fields Are
Missing")
'frm.Controls(strErrCtlName).SetFocus
fncRequiredFieldsMissing = True
Else
fncRequiredFieldsMissing = False
End If

End Function
<Code Snippet End>

When I try to validate the subform using this, I get errors. I have tried
referencing the subform, but naturally Access doesn't recognize it as being
open.

The error I get is that the object can't be found.

Any help would be appreciated.

--
James B Gaylord
For the Wolf comes the strength of the Pack,
For the Pack comes the strength of the Wolf,
-R. Kipling
Office 2003 on Win XP SP2