button caption not working..

[davide128]

Why is this not changing the caption when the button is clicked..I want it to change from "Continue" to "Processing..." and it does not work...

this is in a form called PCRForm

Private Sub CommandButton1_Click()
    If LabelNumberTextBox.Value = "" Then
       MsgBox "Enter a LabelNumber"
    ElseIf ComboBoxFrameType.Value = "" Then
        MsgBox "Select a Frame Type"
    ElseIf ProductTypeComboBox.Value = "" Then
        MsgBox "Select a Product Type"
    Else ' begin processing
        PCRForm.CommandButton1.Caption = "Processing..."
        ConvertToPCRFormat
        PCRForm.Hide
    End If
End Sub

 

[Andrew Poulsom]

This worked for me:

Me.CommandButton1.Caption = "Processing..."

If it doesn't work for you try:

Me.Repaint

on the next line.

 

[davide128]

Me.repaint did it..Thx

 

[Avatar]

Not meaning to highjack this thread but; how would you repaint if the button was on a worksheet instead of a form so "Me" couldn't be used?

 

[davide128]

Not to sure cause I don't use vba that often but I think you may need to clear the contents first and then do your changing

http://en.kioskea.net/forum/affich-40356-repainting-a-cell-using-excel-vba

 

[Andrew Poulsom]

You don't need to repaint if the CommandButton is on a worksheet:

Private Sub CommandButton1_Click()
    With CommandButton1
        If .Caption = "Go" Then
            .Caption = "Stop"
        Else
            .Caption = "Go"
        End If
    End With
End Sub