:banghead: I have only been working with VBA for 1 week and I am stumped at this point. I have a form where I want 2 text boxes to become visible and enabled when a selection is made on a combo box. I am working in 2013. This is what I have.
Private Sub ComboViolation_Performance_AfterUpdate()
If ComboViolation_Performance.Value = "Verbal Safety Warning" Then
Me.TxtVerbal_Warning_Violation_Performance.Visible = True
Me.LabelVerbalWarning_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TxtVerbal_Warning_Violation_Performance.Visible = False
Me.LabelVerbalWarning_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
If ComboViolation_Performance.Value = "Write-Up Safety Warning" Then
Me.TextWriteUpSafetyWarning_Violation_Performance.Visible = True
Me.LabelWriteUpSafetyWarning_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TextWriteUpSafetyWarning_Violation_Performance.Visible = False
Me.LabelWriteUpSafetyWarning_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
If ComboViolation_Performance.Value = "OSHA Write-Up" Then
Me.TextOSHAWriteUp_Violation_Performance.Visible = True
Me.LabelOSHAWriteUP_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TextOSHAWriteUp_Violation_Performance.Visible = False
Me.LabelOSHAWriteUP_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
End Sub
The first text box & label appear with the corresponding selection, however, the End Result text box & label only appear when "OSHA Write-Up" is selected. The idea is to have this be a fillable form that will create a new record on the table.
Private Sub ComboViolation_Performance_AfterUpdate()
If ComboViolation_Performance.Value = "Verbal Safety Warning" Then
Me.TxtVerbal_Warning_Violation_Performance.Visible = True
Me.LabelVerbalWarning_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TxtVerbal_Warning_Violation_Performance.Visible = False
Me.LabelVerbalWarning_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
If ComboViolation_Performance.Value = "Write-Up Safety Warning" Then
Me.TextWriteUpSafetyWarning_Violation_Performance.Visible = True
Me.LabelWriteUpSafetyWarning_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TextWriteUpSafetyWarning_Violation_Performance.Visible = False
Me.LabelWriteUpSafetyWarning_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
If ComboViolation_Performance.Value = "OSHA Write-Up" Then
Me.TextOSHAWriteUp_Violation_Performance.Visible = True
Me.LabelOSHAWriteUP_Violation_Performance.Visible = True
Me.TextEndResult_Violation_Performance.Visible = True
Me.LabelEndResult_Violation_Performance.Visible = True
Else
Me.TextOSHAWriteUp_Violation_Performance.Visible = False
Me.LabelOSHAWriteUP_Violation_Performance.Visible = False
Me.TextEndResult_Violation_Performance.Visible = False
Me.LabelEndResult_Violation_Performance.Visible = False
End If
End Sub
The first text box & label appear with the corresponding selection, however, the End Result text box & label only appear when "OSHA Write-Up" is selected. The idea is to have this be a fillable form that will create a new record on the table.