Prevent user from submitting form until record has been filled out in subform

[banpreet]

Hi guys,



I have a form that needs certain fields to be filled out before being submitted to manager to approve. The problem is the submit button is on the the form and I can make all the fields required on the form to be filled out before being submitted. The problem is that I have a subform which is a table that needs atleast one record filled out before being submitted. But the main button to submit the form is on the main form and not on the subform. So I can't make the fields on the subform required on the main form because there is no association. Somebody mentioned that I should create a field in my main form that counts how many records has been entered on the subform, so it starts off at 0 then 1, and so on, and they could submit the form until the field is at 1. How do I do this? or does anybody have any better way.

[ranman256]

on the Submit button, have the code check all fields, then allow or prevent:

sub btnSubmit_click()
If IsValidForm() Then
        'post changes
   SaveData
   DoCmd.Close
End If

Private Function IsValidForm() As Boolean
Dim vMsg
Select Case True
   Case IsNull(forms!subform!form!dtpWeekOf)
      vMsg = "Date field missing"
   Case IsNull(forms!subform!form!cboUser)
      vMsg = "Teacher name is missing"
   Case IsNull(forms!subform!form!cboSubj)
      vMsg = "Subject field is missing"
End Select
If vMsg <> "" Then MsgBox vMsg, vbCritical, "Required Field"
IsValidForm = vMsg = ""
End Function