If problem

[DAHMB]

I have a toggle button with a control source called active that is a yes/no field.

On my form I put a rectangle colored red with a label with the words Inactive on it.
My toggle button says Active on the button. I have placed the button on top of the rectangle. I want to make the button be invisible when it is toggled off and visible when toggled on. So far I have the following but it is not working:

Private Sub tglActive_AfterUpdate()
Dim strControl As String
strControl = tglActive
    If strControl = Yes Then
        DoCmd.SetProperty strControl, acPropertyVisible = True
    Else
    If strControl = No Then
        DoCmd.SetProperty strControl, acPropertyVisible = False
    End If
    End If
End Sub

Any ideas?
Thanks Dan

[Stewart Ross]

Hi Dan. A toggle returns a boolean value (False/True, represented as 0 and -1) which can be tested directly. Yes/No fields are booleans internally.
I do not know the name of the label on your form that you want to show/hide, as it is not listed in your code. There are some issues in your code where you are treating controls as strings (which won't work). What is listed below should work once you substitute the actual name of the label or control you want to show or hide.

 Private Sub tglActive_AfterUpdate() 
    Me.[name of the label or control].visible = not(Me.tglActive)
End Sub
 

However, you don't need to overlay another label on top - you can simply change the caption on the toggle to "Inactive" as follows:

 Private Sub tglActive_AfterUpdate() 
  If Me.tglActive then
    Me.tglActive.Caption = "Active"
  else
    Me.tglActive.caption = "Inactive"
  endif
End Sub
 

Hope this helps.
-Stewart

[DAHMB]

Hi Dan. A toggle returns a boolean value (False/True, represented as 0 and -1) which can be tested directly. Yes/No fields are booleans internally.
I do not know the name of the label on your form that you want to show/hide, as it is not listed in your code. There are some issues in your code where you are treating controls as strings (which won't work). What is listed below should work once you substitute the actual name of the label or control you want to show or hide.

 Private Sub tglActive_AfterUpdate() 
    Me.[name of the label or control].visible = not(Me.tglActive)
End Sub
 

However, you don't need to overlay another label on top - you can simply change the caption on the toggle to "Inactive" as follows:

 Private Sub tglActive_AfterUpdate() 
  If Me.tglActive then
    Me.tglActive.Caption = "Active"
  else
    Me.tglActive.caption = "Inactive"
  endif
End Sub
 

Hope this helps.
-Stewart

Thank you for the information, I am learning alot in here. I took your advice and this is what I did and it works great, if something is bad please let me know.
in my forms on current:

Private Sub Form_Current()
  If Me.tglActive Then
    Me.tglActive.Caption = "Active"
    Me.tglActive.ForeColor = vbGreen
  Else
    Me.tglActive.Caption = "Inactive"
    Me.tglActive.ForeColor = vbRed
  End If
End Sub
 

In the on click event for the toggle button:

Private Sub tglActive_Click()
Form_Current
End Sub
 

Thanks
Dan

[Stewart Ross]

Glad to be able to help, Dan, and thanks for letting me know how you got on. Your code looks fine - well done!
-Stewart

[NeoPa]

Looks good Dan :)
I would make one suggestion :
It's not good policy to call event procedures directly. A better way to get the same effect is as follows :

Private Sub Form_Current()
  Call Sub_A()
End Sub
 
Private Sub tglActive_Click()
  Call Sub_A()
End Sub
 
Private Sub Sub_A()
  'Your code here that was in Form_Current()
End Sub