APPLICATIONS   Access

INFORMATIQUE

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 :
- Après les barres anti-slash, il y a un espace
- Constaté dans Access7 : Les barres s'enlèvent automatiquement et ne laissent que les 0 et l'espace. Si on essaye de retoucher la formule, Access refait un format automatique non convenable. Il faut alors le refaire et ne plus y retoucher !

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:

Propriété

Valeur

Nom txtCouleur
Source Contrôle =IIf([Don]>1000;[Don];"")
Activé Non
Verrouillé Oui
Couleur texte 16711808
Style fond Transparent
 
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
d'une date mais pas d'un chiffre représentant le mois...il faut faire une date bidon...

à 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")