Private Sub MychkBox_AfterUpdate()
Select Case Me.MychkBox.Value
Case -1
Me.TextBox.Value = "True"
Case 0
Me.TextBox.Value = "False"
End Select
End Sub
Code:
Private Sub MychkBox_AfterUpdate()
If Me.MychkBox.Value = True Then
Me.TextBox.Value = "True"
Else
Me.TextBox.Value = "False"
End If
End Sub
hope this helps
________________________________________
Zameer Abdulla Visit Me A child may not be able to lift too much.
But it can certainly hold a marriage together
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.