Checkbox

[James007]

Just wondering how I could use a checkbox to double a number in a txt box when it is clicked.

Thanks for your help.

 

[Beetle]

Air code example (checkbox After Update event);

Private Sub chkYourCheckBox_AfterUpdate()

With Me
    If !chkYourCheckBox = True Then
        If IsNumeric(!txtYourTextBox) Then
            If !txtYourTextBox > 0 Then !txtYourTextBox = !txtYourTextBox * 2
        End If
    End If
End With

End Sub

 

[James007]

This works good, but what if it is unchecked and you want it to go back to the original number is there a workaround for that problem.

 

[Beetle]

Try this modified version of the procedure.

Private Sub chkYourCheckBox_AfterUpdate()

With Me
    If IsNumeric(!txtYourTextBox) And !txtYourTextBox > 0 Then
        If !chkYourCheckBox  Then
            !txtYourTextBox = !txtYourTextBox * 2
        Else
            !txtYourTextBox = !txtYourTextBox / 2
        End If
    End If
End With

End Sub

 

[James007]

This worked great!!!! Thanks for the help, you saved my hair. Thanks....