Private Sub Poste1_AfterUpdate()
If Me.Poste1 = True Then
Me.TextBox2.Visible = True
Me.Label2.Visible = True
Me.TextBox1.SetFocus
End If
End Sub
Private Sub Poste2_AfterUpdate()
If Me.Poste2 = True Then
Me.TextBox2.Visible = False
Me.Label2.Visible = False
Me.TextBox1.SetFocus
End If
End Sub
Private Sub Poste3_AfterUpdate()
If Me.Poste3 = True Then
Me.TextBox2.Visible = False
Me.Label2.Visible = False
Me.TextBox1.SetFocus
End If
End Sub