I've been trying to show an IsValid flag on the main form using the following code (and several variations)and can't seem to get it to work. Any ideas what I'm doing wrong or leaving out?
Dim strValidFormCount
strValidFormCount = "SELECT tbl_FormValidity.Form_nm, tbl_FormValidity.Form_vdt, " & _
"FROM tbl_FormValidity" & _
"WHERE (((tbl_FormValidity.Form_nm) = Me.Form_nm) And ((tbl_FormValidity.Form_vdt) = Me.Form_vdt) " & _
"And ((tbl_FormValidity.EffDate) Is Not Null) And ((tbl_FormValidity.ExpDate) Is Null))" & _
"GROUP BY tbl_FormValidity.Form_nm, tbl_FormValidity.Form_vdt;"
Dim intFormCount As Integer
intFormCount = DCount("[Form_nm] & [Form_vdt]", "tbl_FormValidity")
If intFormCount > 0 Then
Me.IsValid.Value = -1
Else
Me.IsValid.Value = 0
End If
Dim strValidFormCount
strValidFormCount = "SELECT tbl_FormValidity.Form_nm, tbl_FormValidity.Form_vdt, " & _
"FROM tbl_FormValidity" & _
"WHERE (((tbl_FormValidity.Form_nm) = Me.Form_nm) And ((tbl_FormValidity.Form_vdt) = Me.Form_vdt) " & _
"And ((tbl_FormValidity.EffDate) Is Not Null) And ((tbl_FormValidity.ExpDate) Is Null))" & _
"GROUP BY tbl_FormValidity.Form_nm, tbl_FormValidity.Form_vdt;"
Dim intFormCount As Integer
intFormCount = DCount("[Form_nm] & [Form_vdt]", "tbl_FormValidity")
If intFormCount > 0 Then
Me.IsValid.Value = -1
Else
Me.IsValid.Value = 0
End If