B
Bob V
I want to make a control to become Visible if in the third Column of my list
box[lstModify] shows an "e" ,when I select a row I want the control to be
visible
The Control now is set no Visible/No
Me.cmdEmail.Visible = IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(3), 0)) _
And IsEmailOn, True, False)
Case Else
Me.cmdEmail.Visible = False
-------------------------------------
I have already a togggle button to email or not:
Private Sub cmdSendMail_Click()
If cmdSendMail.value = True Then
cmdSendMail.Caption = "Send Email"
Else
cmdSendMail.Caption = "Do Not Send Email"
End If
CurrentDb.Execute "update tblAdminSetup set MailFlag = " & cmdSendMail.value
End Sub
box[lstModify] shows an "e" ,when I select a row I want the control to be
visible
The Control now is set no Visible/No
Me.cmdEmail.Visible = IIf(IsOwnerWithEmail(Nz(Me.lstModify.Column(3), 0)) _
And IsEmailOn, True, False)
Case Else
Me.cmdEmail.Visible = False
-------------------------------------
I have already a togggle button to email or not:
Private Sub cmdSendMail_Click()
If cmdSendMail.value = True Then
cmdSendMail.Caption = "Send Email"
Else
cmdSendMail.Caption = "Do Not Send Email"
End If
CurrentDb.Execute "update tblAdminSetup set MailFlag = " & cmdSendMail.value
End Sub