If Then - for a control on form and control on subform?

[Kevo]

Hi,
I want an If then that fires a MsgBox if a control on my mainform is null and a control on the subform is not null.

Any help would be appreciated


Here is what I have tried:



If Not IsNull(Forms!frmLoad!frmLoadDetails_subform.cboImp lants) And Me.btnPCD = No Then
MsgBox "Implants - Must include PCD in load!", vbExclamation

[Bob Fitz]

Try:

If Not IsNull(Me.frmLoadDetails_subform.Form.[cboImp lants]) And IsNull(Me.btnPCD) Then
MsgBox "Implants - Must include PCD in load!", vbExclamation
EndIf

[Kevo]

Try:

If Not IsNull(Me.frmLoadDetails_subform.Form.[cboImp lants]) And IsNull(Me.btnPCD) Then
MsgBox "Implants - Must include PCD in load!", vbExclamation
EndIf

Sorry, this isn't working for me.

The [cboImplants] is a combo box on the subform. Should I be "checking" the table column for the Not IS NUll instead?

I have this already on the click event of the "close" button on the main form
If Me.LoadNumber = "1" And Me.BI = NO Then
MsgBox "Biological Indicator Needed - 1st Load of Day!", vbExclamation
DoCmd.CancelEvent
Else
DoCmd.Close
End If

This works great, but of course it is referencing 2 controls that are on the main form.

I now want the additional function from my original post. I also have a third If then I will eventually want to add as well...

1) The part that is working (above), is checking to see if this is the first load of the day and if so, is the BI (Biological Indicator) button checked.

2) I also want to check to see if there are any "Implants" in the load (which is on the subform) and if so, is the PCD button checked.

3) Lastly check to see if any of the "Instruments" in the load require a special cycle, check cycle parameter combobox.

These last 2 things require checking either subform or checking record in table itself (neither of which I seem to know how to do) as well as checking control on main form (easy part)

Sorry so long, thought it might help.

[Bob Fitz]

What kind of control is Me.btnPCD

[Kevo]

Thanks for the reply Bob!

btnPCD is a checkbox on the main form.

[Bob Fitz]

Thanks for the reply Bob!
btnPCD is a checkbox on the main form.

Then try:

If Not IsNull(Me.frmLoadDetails_subform.Form.[cboImplants]) And Me.btnPCD = False Then
MsgBox "Implants - Must include PCD in load!", vbExclamation
EndIf