Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment changer la couleur du texte d'une zone de texte ?
auteur : Demco
MaZoneTexte.ForeColor = QBColor(1)  '(Pour le bleu)
MaZoneTexte.ForeColor = QBColor(4)  '(Pour le rouge) 

Comment changer la couleur de fond d'une zone de texte ?
auteur : Demco
MaZoneDeTexte.BackColor = QBColor(1)  'pour du bleu

Comment masquer/rendre invisible toutes les zones de texte vides ?
auteurs : Lucifer, Tofalu
Première solution :
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
Une autre solution en utilisant TypeOf :

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
lien : Comment rendre des colonnes d'un formulaire invisibles ?

Comment masquer ce qui est tapé dans une zone de texte (pour un mot de passe) ?
auteur : Demco
Il faut utiliser le masque de saisie de la zone de texte. Tapez "password" ou "Mot de passe" (sans les guillemets) dedans.

lien : Comment éviter qu'Access ne corrige automatiquement les mots saisis dans un contrôle ?

Comment avoir un TextBox (zone de texte) multiligne ?
auteur : Tofalu
Allez dans les propriétés de la zone de texte :
Onglet Autres, effet touche entrée --> Nouvelle ligne dans le champ.

On peut également utiliser la propriété Onglet Toutes, Barre de défilement --> Verticale. Sinon il est toujours possible de passer à la ligne avec un simple Ctrl+Entrée.

lien : Comment afficher un texte d'info bulle sur plusieurs lignes ?

Comment utiliser une zone de texte comme un champ de calcul (comme dans Excel)
auteur : Faw
Par exemple vous voulez taper 3+4 dans une zone de texte et qu'elle vous affiche 7 : Utilisez un bouton dans lequel vous mettrez le code suivant (Input est la zone de texte) :
Me!Input = Eval(Nz(Me!Input, 0))
Sur pression du bouton, le calcul s'effectuera.


Comment s'assurer qu'un utilisateur n'a saisi que des chiffres et aucune lettre dans une zone de texte
auteur : Papy Turbo
Papy Turbo :
Private Sub ControlNumerique_KeyPress(KeyAscii As Integer)
    If (KeyAscii > 31 And KeyAscii < 48) Or (KeyAscii > 59) Then
        Beep
        KeyAscii = 0
    End If
End Sub
Cette solution empêche d'insérer autre chose qu'un chiffre dans la zone de texte. Les virgules sont acceptées.

Une autre solution consiste à laisser l'utilisateur saisir ce qu'il veut, puis avant de valider la saisie, d'en vérifier le contenu (FRED.G) :
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

Comment limiter le nombre de caractères saisis dans une zone de texte indépendante ?
auteur : Tofalu
Il faut traiter l'évènement KeyDown de la zone de texte et vérifier la taille du texte déjà inscrit. Ainsi, si le texte ne doit pas dépasser 10 caractères, on aura :
Private Sub Texte13_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Texte13) > 9 Then KeyCode = 0
End Sub
lien : Comment contrôler la saisie, empêcher la saisie de certains caractères ?

Comment remplacer la virgule par un point dans une zone de texte ?
auteur : Cafeine
Lorsque vous utilisez le point du pavé numérique, Access le convertit en virgule suivant les options régionales de Windows. Cela se transforme en France par une virgule.

Pour éviter cela, vous pouvez modifier le caractère saisi lors de la frappe de la zone de texte (évènement Touche appuyée)

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

Comment mettre un champ de type texte clignotant ?
auteur : Faw
Pour donner de l'effet à vos contrôle, vous pouvez le rendre clignotant :

Sur l'événement Sur minuterie de votre Formulaire mettez ce code :
Me.MonControl.Visible = Not (me.MonControl.Visible)
Ensuite il y a deux façons de lancer la minuterie :

En fixe :
sur l'événement Intervalle minuterie du Formulaire, la base de temps est en milisecondes
Exemple : 1000 provoque l'éxécution du code Sur minuterie toutes les secondes.

En VBA :
Le principe du code est de lancer la minuterie et de paramétrer le temps par code, ceci peut être pratique
pour lancer le code à un moment précis.

Pour le lancement :
Me.TimerInterval = 1000
Pour l'arrêter :
Me.TimerInterval = 0

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com