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"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Me.Caption In a Form 1
Visible Problem! 3
Add 2 Conditions together 1
Visible Question 1
Adding a CC to email code! 7
Emailing Question from my DB 2
Enter Date on Emailing 6
Adding 2 Scripts together! 0

Top