Intresting Visible problem

B

Bob Vance

When I select this control to open a form below and i select a record in my
List Box [lstModify] the label/combobox become visible if there an email
address

Private Sub cmdPrint_Click()
DoCmd.Close acForm, "frmModify"
DoCmd.OpenForm "frmModify", , , , , , "PrintInvoice"

End Sub

Private Sub lstModify_AfterUpdate()
Me.cmdEmail.Visible = IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(2), 0)) _
And IsEmailOn, True, False)
Me.lblEmailOption.Visible =
IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(2), 0)) _
And IsEmailOn, True, False)
Me.cmbEmailOption.Visible =
IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(2), 0)) _
And IsEmailOn, True, False)
Me.lblEmailAvailable.Visible =
IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(2), 0)) _
And IsEmailOn, True, False)
End Sub


**BUT if I use this control**

Private Sub cmdModifyIntermediateInvoice_Click()
DoCmd.Close acForm, "frmModify"
DoCmd.OpenForm "frmModify", , , , , , "ModifyHoldingInvoice"
End Sub

I am getting the reverse , when I select a record without an email address
the labels/combobox appear, I actually want any of the above to appear at
all on this "ModifyHoldingInvoice"
 
Top