Forms, text box only visible when yes/no field checked

[Remillard]

VERY amateur access user here with hopefully an easy question to answer. I have a database tracking staff vehicle information. I have a "Yes/No" field that, depending on its state, I want to display different fields.
The Yes/No Field is "Warranty". If checked the date field "WarrantyExpires" should be available to complete. If unchecked the date field "SafetyInspection" should be available to complete.
I was thinking it would start something along the lines of (in the yes/no field's "BeforeUpdate" event):

Private Sub WarrantyExpire_BeforeUpdate(Cancel As Integer)
If Warranty = True Then WarrantyExpires.IsVisible = True AND SafetyInspection.IsVisible = False
If Warranty = False Then WarrantyExpires.IsVisible = False AND SafetyInspection.IsVisible = True
End Sub

I have no doubt my syntax is wrong (only scripting I have some level of comfort is Powershell), I just give this as an example of my thinking/logic. I know there's a lot more code that would need to be written, such as "AfterUpdate" events to reflect the change when edited.
I'm guessing it would also need to be placed in the forms "OnCurrent" event so it changes with each record.

Thanks!

[pbaldy]

This should get you started:

http://www.baldyweb.com/ConditionalVisibility.htm

[Remillard]

Thanks for the heads up pbaldy. I put the following code in the form's "OnCurrent" event procedure but it's not working right. Should it be in a different field's BeforeUpdate event or AfterUpdate event? Do you use AND statements like I have? Thanks!

Private Sub Form_Current()
If Me.Warranty = "True" Then
Me.WarrantyExpire.Visible = True And Me.SafetyInspection_Date.Visible = False
Else
Me.WarrantyExpire.Visible = False And Me.SafetyInspection_Date.Visible = True
End If
End Sub

[pbaldy]

Try

If Me.Warranty = True Then
  Me.WarrantyExpire.Visible = True
  Me.SafetyInspection_Date.Visible = False
Else
  Me.WarrantyExpire.Visible = False
  Me.SafetyInspection_Date.Visible = True
End If

[pbaldy]

By the way, you can also use Boolean logic:


Me.WarrantyExpire.Visible = Me.Warranty
Me.SafetyInspection_Date.Visible = Not Me.Warranty

[Remillard]

By the way, you can also use Boolean logic:


Me.WarrantyExpire.Visible = Me.Warranty
Me.SafetyInspection_Date.Visible = Not Me.Warranty

NICE! This worked well. Thanks so much for the support.

[pbaldy]

Happy to help. I wanted to show you the normal way so you'd see the correct structure.