Conditional Required Fields

[dannyocean]

Hi all,

I have a an entry form in my db. I am needing help to make fields required based upon previous data entry.

ex - If the product is Medicare then I need to make sure that they fill out the Critieria met field and then if this is false then I need to require the Criteria Not Met Letter Feild.

TIA,

Danny

 

[coco86]

You could try something like this:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.field1 = "Criteria" Then
        If Trim(Nz(Me.field2)) = "" Then
            MsgBox "Field2 is required when Field1 = Criteria"
            Cancel = True
            Me.field2.SetFocus
        End If
    End If
End Sub

 

[dannyocean]

Where exactly would I put this. Would I build one for each field?

 

[coco86]

You'd put the code in the BeforeUpdate event of the form.

Select "[event procedure]" from the dropdown list and click the "..." button to get to the code window.

You would need to create and if-then statement for each field you want to check.

 

[judgehopkins]

dannyocean, look at thread702-516948 for some ideas. Judge Hopkins

"...like hunting skunks underwater...."
John Steinbeck, The Grapes of Wrath