MaZoneTexte.ForeColor = QBColor(1)  '(Pour le bleu)
MaZoneTexte.ForeColor = QBColor(4)  '(Pour le rouge) 

MaZoneDeTexte.BackColor = QBColor(1)  'pour du bleu

Private Sub Form_Current() 
Dim ctl As Control 

 'Pour chaque contrôle du formulaire
For Each ctl In frm.controls 
    ' On verifie que le contrôle soit bien une zone de texte
    If ctl.ControlType = acTextBox Then 
        ' On verifie le contenu du contrôle
        If nz(ctl.Value,"") = "" Then 
            ' Il est vide on le rend invisible
            ctl.Visible = False 
        End If 
    End If 
Next ctl 
End sub

Private Sub Form_Current()
Dim ctl As Control

 'Pour chaque contrôle du formulaire
For Each ctl In frm.Controls
    ' On verifie que le contrôle soit bien une zone de texte
    If TypeOf ctl Is TextBox Then
        ' On verifie le contenu du contrôle
        If Nz(ctl.Value,"") = "" Then
            ' Il est vide on le rend invisible
            ctl.Visible = False
        End If
    End If
Next ctl
End sub

Me!Input = Eval(Nz(Me!Input, 0))

Private Sub ControlNumerique_KeyPress(KeyAscii As Integer)
    If (KeyAscii > 31 And KeyAscii < 48) Or (KeyAscii > 59) Then
        Beep
        KeyAscii = 0
    End If
End Sub

Private Sub txtAtteindre_BeforeUpdate(Cancel As Integer)
 
 'Le code suivant sert à vérifie que la valeur spécifiée _
 'dans le contôle txtAtteindre est de type numérique :
  With Me!txtAtteindre
   
  'On applique la fonction IsNumeric à la propriété Value du contôle sélectionné _
    'afin de vérifier si le type est bien du numérique :
   
    If Not IsNumeric(.Value) Then     
    'On avertit l'utilisateur :     
      MsgBox "Vous devez saisir un numéro d\'enregistrement valide.", vbExclamation
     
    'On repositionne le curseur sur le contrôle sélectionné :     
      .SelStart = 0 ' Positionne le curseur au début du champ
      .SelLength = Len(.Value) ' Sélectionne l'ensemble des données affichées dans le champ
     
    'On annule la mise à jour de l'événement BeforeUpdate en utilisant son argument Cancel :   
      Cancel = True
    End If
  End With
End Sub

Private Sub Texte13_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Texte13) > 9 Then KeyCode = 0
End Sub

Private Sub MonTextBox_KeyPress(KeyAscii As Integer)
    If KeyAscii = 59 Then KeyAscii = 46
End Sub

Me.MonControl.Visible = Not (me.MonControl.Visible)

Me.TimerInterval = 1000

Me.TimerInterval = 0