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"
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"