Forms and Conditions

[jlgray0127]

I have the below code to Deactivate the referred to text boxes when the Check box is clicked. I also want to have it add "Inactive" as the value in that field. Any thoughts on how to do this?



Private Sub Check284_AfterUpdate()
If [A4].Visible = True Then
[A4].Visible = False
Else
[A4].Visible = True
End If
If [A16].Visible = True Then
[A16].Visible = False
Else
[A16].Visible = True
End If

[pbaldy]

[A4] = "Inactive"

[jlgray0127]

I am fairly new to doing this, so I am not sure where to put that statement, is really what I should have asked. lol
Thank you for your quick response!

[pbaldy]

Wherever it logically fits. Along the lines of:

If [A4].Visible = True Then
[A4].Visible = False
[A4] = "Inactive"
Else
...

Access will process the lines in order.

[jlgray0127]

I can't seem to get it to work? It's not affecting the value of the field at all...

I tried it in each line, for that cell, including, just adding it. The fields default value is set to "Empty". Would this affect it, maybe? I'm not sure. I'm getting pretty complicated with all the different things I have this form doing.

[pbaldy]

This should override the default value, so that's not it. I assume the visibility part is working? Try this

Me.[A4] = "Inactive"

using the name of the textbox, if it's not A4.

[jlgray0127]

Still doesn't affect it. The Visibility portion is still working fine. Just won't change the value whether the box is checked or unchecked.
It's like there should be an And statement in there or something? I'm not sure...

[pbaldy]

No, there doesn't need to be an "And" between the lines; Access will go line by line. Can you post the db here?

[jlgray0127]

It worked. Moved the line up with the Me.A4 and it worked like a charm... It had to be placed as such... Just an FYI... thank you!

Private Sub Check300_AfterUpdate()
If [A12].Visible = True Then
[A12].Visible = False
Me.A12 = "Inactive"
Else
[A12].Visible = True

[pbaldy]

No problemo! Glad we got it sorted out.

[jlgray0127]

In this scenario, I got it to go inactive as I was trying, but if they inadvertly click the wrong box, and unclick it, I need it to go back to the Default value of "Empty". Help!

[pbaldy]

In your Else clause:

Me.A12 = ""
or
Me.A12 = Null