Check for NULL values on main form and sub-forms

[KMEscherich]

Microsoft Access '97
Main Form and 3 subforms.
Code = VBA

Hi there am wondering how I would be able to do the following:

I need to ensure the end-user makes an entry in controls on both the main form and the sub-forms. Should I just set each field to REQUIRED = YES??

I would like to have a window pop up and indicate which fields are missing once they get to the last data entry control. Not sure which way to go with this.

Your help with this will be GREATLY appreciated.

Thank you,

K Escherich

[JConsulting]

Microsoft Access '97
Main Form and 3 subforms.
Code = VBA

Hi there am wondering how I would be able to do the following:

I need to ensure the end-user makes an entry in controls on both the main form and the sub-forms. Should I just set each field to REQUIRED = YES??

I would like to have a window pop up and indicate which fields are missing once they get to the last data entry control. Not sure which way to go with this.

Your help with this will be GREATLY appreciated.

Thank you,

K Escherich

This bit of code will help you out. Put it in a code module and use it as described.
J

Function ValidateForm(strForm As String, Optional strSubform As String)
'This function Makes sure each field on a form is completed
'It is called this way from the form's before update event
' ValidateForm me.name  (if you're just doing the main form)
' ValidateForm me.name, me.subformname
 
Validate = False
Dim F As Form
Dim c As control
Dim cName As String
Dim strVal As String
Set F = Forms(strForm)(strSubform).Form
For Each c In F
    If TypeOf c Is TextBox Or TypeOf c Is ComboBox Then  ' You can add additional types here
        cName = c.Name
        If Nz(c.Value, 0) = 0 Then
            MsgBox "You must complete all fields"
            F(cName).SetFocus
            F(cName).BackColor = vbYellow
            Validate = True
            Exit Function
        Else
            F(cName).BackColor = vbWhite
        End If
    End If
Next c
End Function
 

[mberlack]

The code above seems to be exactly what I'm looking for with my form and datasheet subform, but I'm not sure how to use it could someone breakdown the steps?