| auteur : Demco | MaZoneTexte. ForeColor = QBColor (1 )
MaZoneTexte. ForeColor = QBColor (4 )
|
|
| auteur : Demco | MaZoneDeTexte. BackColor = QBColor (1 )
|
|
| auteurs : Lucifer, Tofalu |
Première solution :
Private Sub Form_Current ()
Dim ctl As Control
For Each ctl In frm. controls
If ctl. ControlType = acTextBox Then
If nz (ctl. Value ," " ) = " " Then
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
For Each ctl In frm. Controls
If TypeOf ctl Is TextBox Then
If Nz (ctl. Value ," " ) = " " Then
ctl. Visible = False
End If
End If
Next ctl
End sub
|
|
lien : Comment rendre des colonnes d'un formulaire invisibles ?
|
| 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 ?
|
| 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.
|
| 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)
With Me!txtAtteindre
If Not IsNumeric (. Value ) Then
MsgBox " Vous devez saisir un numéro d\'enregistrement valide. " , vbExclamation
. SelStart = 0
. SelLength = Len (. Value )
Cancel = True
End If
End With
End Sub
|
|
| 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
|
|
| 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 : Pour l'arrêter : |
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.
|