[RESOLVED] Command Button Help

[Jamie_Garland]

See if i had one command button how would i get it to change captions when it has been clicked and when its been clicked it changed name and also opens up another new form i had this code in mind but it dosent seem to work.

Private Sub Command2_Click()
If Command2.Caption = "Search" Then
Form2.Show
ElseIf
If Command2.Caption = "Stop Search" Then
Form3.Show
End If
End Sub

[DigiRev]

Private Sub Command2_Click()
If Command2.Caption = "Search" Then
[B]Command2.Caption = "Stop Search"[/B]
Form2.Show
ElseIf
If Command2.Caption = "Stop Search" Then
[B]Command2.Caption = "Search"[/B]
Form3.Show
End If
End Sub

[Pradeep1210]

Private Sub Command2_Click()
If Command2.Caption = "Search" Then
Form2.Show
'ElseIf  <-- This should be End If
End If
 
If Command2.Caption = "Stop Search" Then
Form3.Show
End If
End Sub

[the182guy]

Private Sub Command2_Click()
If Command2.Caption = "Search" Then
Command2.Caption = "Stop Search"
Form2.Show
End If
If Command2.Caption = "Stop Search" Then
Command2.Caption = "Search"
Form3.Show
End If
End Sub

Its because you wern't setting the caption after it had been clicked.

edit: also the end if is missing as pradeep said

[DigiRev]

Oops missed the ElseIf part

[Pradeep1210]

Oops missed the ElseIf part

And I missed the caption part

Anyways, You don't need 2 If's, one is sufficient.

Private Sub Command2_Click()
    If Command2.Caption = "Search" Then
        Command2.Caption = "Stop Search"
        Form2.Show
    Else
        Command2.Caption = "Search"
        Form3.Show
    End If
End Sub

Pradeep

[Jamie_Garland]

thanks guys