APPLICATIONS Access | |
Formats |
Accueil site > Accueil applications informatique > Accueil Access |
N'hésitez pas à m'écrire pour compléter ou modifier ou me dire bonjour...
Formats | |||||||||||||||||
Format N° de CP 57 10 590 N |
Format([NCP];"00\ 00\
000") & Format([Lettre];">")
Remarques : |
||||||||||||||||
Affichage conditionnel
des couleurs dans un formulaire en mode continu http://mypage.bluewin.ch/w.stucki/Formulaires.htm#Couleurs |
C'est un moyen efficace pour promouvoir les tâches à accomplir ou mettre l'accent sur un élément d'information. Il est relativement simple d'utiliser l'affichage conditionnel des couleurs quand l'affichage est réalisé en mode formulaire, comme le montre l'exemple suivant : Il illustre le fait que si le montant d'un don est supérieur à 1000 francs, il est affiché en couleur pourpre. La procédure est associée à l'événement Sur activation du formulaire pour qu'elle s'exécute à chaque fois qu'un nouvel enregistrement est lu. |
Private Sub Form_Current() If Me![txtDon] > 1000 Then Me![txtDon].ForeColor = 16711808 Else Me![txtDon].ForeColor = 0 End If End Sub |
|||||||||||||||
Cette technique ne fonctionne pas si le formulaire est affiché en mode continu, car Access va appliquer le test de condition à tous les enregistrements. Il faut donc recourir à une astuce faisant intervenir une autre zone de texte superposée à la première, qui affichera la couleur conditionnelle ou rien du tout. Sa propriété Style de fond sera renseignée à transparent. Ainsi, quand la condition est satisfaite, la zone de texte superposée va afficher la valeur dans la couleur spécifiée. Quand la condition n'est pas vérifiée, la zone de texte superposée sera vide et laissera apparaître le contenu de la zone de texte normale placée en arrière-plan, qui affichera le montant dans la couleur par défaut (noir).. |
La zone de texte superposée aura les propriétés suivantes:
|
||||||||||||||||
Majuscules/Minuscules Voir d'autres fonctions sur le site à Raymond |
LCase ([mon contrôle]) | Transforme en minuscules | Prénom = prénom | ||||||||||||||
UCase ([mon contrôle]) | Transforme en majuscules | Prénom = PRÉNOM | |||||||||||||||
< dans la propriété
Format d'un contrôle ou =Format([Prenom];"<") comme formule. |
Visualise en minuscules |
Prénom = prénom (Reste Prénom comme donnée enregistrée) |
|||||||||||||||
> dans la propriété
Format d'un contrôle ou =Format([Prenom];">") comme formule. |
Visualise en majuscules |
Prénom = PRÉNOM (Reste Prénom comme donnée enregistrée) |
|||||||||||||||
[mon contrôle] = ucase(left([mon contrôle],1)) & mid([mon contrôle],2) | Met la première lettre en majuscule | prénom = Prénom | |||||||||||||||
StrConv([MonChamp], vbProperCase) | |||||||||||||||||
Valeurs (Value) | Vraie / True / -1 / Oui / Case activée / Bouton bascule enfoncé | ||||||||||||||||
Faux / False / 0 / Non / Case désactivée / Bouton bascule relâché | |||||||||||||||||
Mois Mettre en toute lettre le mois à partir d'uniquement le N° de mois
La fonction format permettant d'afficher le mois |
à partir d'une fonction |
Public Function
fMonthName(intMonth
As Integer) '** Retourne le nom d'un mois par rapport à son numéro fMonthName = Format(DateSerial(Year(DATE), intMonth, 1), "mmm") End Function A l'appel, il suffit de faire : =fmonthname MinDom("LeMois";"T_Date") |
Télécharger un exemple en Access97 | ||||||||||||||
En "direct" dans le contrôle | =Format("01/" & MinDom("MonChampMois";"MaTable") & "/" & Year(Now);"mmmm") |