Toggle buttons

[samotek]

I have two command buttons, CmdNew and CmdOld, where by clicking the first i make the second visible and vice versa for example
Private Sub CmdNew_Click()
Me!CmdOld.Visible = True
End Sub
I want to use only one toggle button instead,with two captions"Old" and "New".
I have difficulties with making the buttons visible and invisible.Also.if i click New, the caption Old must appear and stay until i have clicked it.If i click Old, the caption Old must appear and stay until i click it.

How could i do that ?

 

[TheAceMan1]

How are ya samotek . . .

Have a look at the [blue]Caption[/blue] property of the button.

[blue]   Dim prp As Property
   
   Set prp = Me![CommandButtonName].Properties("Caption")
   
   If prp = "New" Then
      [green]'Code for New[/green]
      prp = "Old"
   Else
      [green]'Code for Old[/green]
      prp = "New"
   End If

   Set prp = Nothing[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]