Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access 3 questions au sujet des rapports

3 questions au sujet des rapports

11 réponses
Avatar
Sophie
Bonjour,

-Dans un rapport j'ai beaucoup de groupements et parfois un groupement
peut-être invisible, est-il possible d'insérer 2 lignes blanches dans un
groupement lorsqu'il est visible?

-J'ai un Pied état qui permet d'afficher un Total, peut-on empêcher le Total
de s'afficher sur une page seule?

-J'aimerais que dans un champ Note que toutes les premières lettres de
chaque mot soient en lettre majuscule et le reste en lettre minuscule.

Merci beaucoup d'avance,


Sophie
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Raymond [mvp]
Bonjour.

1-
un regroupement n'est jamais invisible pour toi. L'entête ne comporte pas de
données , c'est tout. dans l'entête de groupe tu mets deux espaces environ
en faisant glisser la section détail vers le bas.
2-
tu peux empécher d'afficher le total par une fonction vba dans l'événement
Detail_Format:
Me.total.Visible = (Page <> Pages) ou
Me.total.Visible = (Page <> 1)
etc... etc ....
3- dans le source controle de ton contrôle Note, tu mets:
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2))
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sophie" a écrit dans le message de news:
u1%23V1a%
Bonjour,

-Dans un rapport j'ai beaucoup de groupements et parfois un groupement
peut-être invisible, est-il possible d'insérer 2 lignes blanches dans un
groupement lorsqu'il est visible?

-J'ai un Pied état qui permet d'afficher un Total, peut-on empêcher le
Total
de s'afficher sur une page seule?

-J'aimerais que dans un champ Note que toutes les premières lettres de
chaque mot soient en lettre majuscule et le reste en lettre minuscule.

Merci beaucoup d'avance,


Sophie




Avatar
Evaro
Bonjour,

3- dans le source controle de ton contrôle Note, tu mets:
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2))


Raymond est un peu distrait ce matin ;-)

=Majuscule(Gauche([Note];1)) & Minuscule(Droite([Note];Nbcar([Note])-1))

@+

Etienne.

Avatar
Raymond [mvp]
Bonjour.

et pourquoi ? le Mid ne te convient pas ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Evaro" a écrit dans le message de news:
O%
Bonjour,

3- dans le source controle de ton contrôle Note, tu mets:
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2))


Raymond est un peu distrait ce matin ;-)

=Majuscule(Gauche([Note];1)) & Minuscule(Droite([Note];Nbcar([Note])-1))

@+

Etienne.





Avatar
Evaro
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

et pourquoi ? le Mid ne te convient pas ?

Bonjour,


Le Mid me convient à condition qu'il ait 3 paramètres :
ExtracChaîne([Note];2;Nbcar([Note])-1)
Cordialement,
Etienne

Avatar
Raymond [mvp]
pas du tout.
le 3e argument (Length) est facultatif. Donnée de type Variant (Long).
Nombre de caractères à remplacer. si omis, la chaîne complète, à partir de
Start est utilisée.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Evaro" a écrit dans le message de news:


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

et pourquoi ? le Mid ne te convient pas ?

Bonjour,


Le Mid me convient à condition qu'il ait 3 paramètres :
ExtracChaîne([Note];2;Nbcar([Note])-1)
Cordialement,
Etienne




Avatar
Evaro
Je me coucherai encore moins bête que je ne me suis levé.
Merci
Etienne.

"Raymond [mvp]" a écrit dans le message de
news: %
pas du tout.
le 3e argument (Length) est facultatif. Donnée de type Variant (Long).
Nombre de caractères à remplacer. si omis, la chaîne complète, à partir
de Start est utilisée.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Evaro" a écrit dans le message de news:


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

et pourquoi ? le Mid ne te convient pas ?

Bonjour,


Le Mid me convient à condition qu'il ait 3 paramètres :
ExtracChaîne([Note];2;Nbcar([Note])-1)
Cordialement,
Etienne








Avatar
Raymond [mvp]
mais non, mais non.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Evaro" a écrit dans le message de news:

Je me coucherai encore moins bête que je ne me suis levé.
Merci
Etienne.


Avatar
Sophie
Bonjour,

Merci beaucoup pour votre aide, seulement la fonction
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2)) ou
=Majuscule(Gauche([Note];1)) & Minuscule(Droite([Note];Nbcar([Note])-1))
ne fonctionne pas, sa m'affiche #Erreur dans le champ Note.

Merci encore,

Sophie


"Sophie" a écrit dans le message de
news:u1%23V1a%
Bonjour,

-Dans un rapport j'ai beaucoup de groupements et parfois un groupement
peut-être invisible, est-il possible d'insérer 2 lignes blanches dans un
groupement lorsqu'il est visible?

-J'ai un Pied état qui permet d'afficher un Total, peut-on empêcher le
Total

de s'afficher sur une page seule?

-J'aimerais que dans un champ Note que toutes les premières lettres de
chaque mot soient en lettre majuscule et le reste en lettre minuscule.

Merci beaucoup d'avance,


Sophie




Avatar
Raymond [mvp]
2 choses:
1- il ne devrait pas y avoir #erreur. il y a autre chose. as-tu bien mis le
signe = ?
2- Ce n'est pas la bonne fonction, lecture trop rapide, j'ai lu première
lettre au lieu de première lettre de chaque mot. Excuses.

Rectification:
Dans le source contrôle du contrôle Note tu indiques (avec le signe =):
=MotsMajuscules([Note])

dans un module standard tu places ce code:
j'ai tout cadré à gauche pour ne pas faire de saut de ligne.

Public Function MotsMajuscules(Texte As String) As String
On Error GoTo Err_Property
Dim T As String
T = LCase$(Texte)
Dim I As Integer
Mid$(T, 1) = LCase$(Mid$(T, 1))
If T <> "" Then
Mid$(T, 1, 1) = UCase$(Mid$(T, 1, 1))
For I = 1 To Len(T) - 1
If Mid$(T, I, 2) = Chr$(13) + Chr$(10) Then
Mid$(T, I + 2, 1) = UCase$(Mid$(T, I + 2, 1))
End If
If Mid$(T, I, 1) = " " Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
If Mid$(T, I, 1) = "-" Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
Next
MotsMajuscules = T
End If
Exit Function
Err_Property:
MsgBox "Erreur N° " & Err.Number & ", " & _
"Texte.MotsMajuscules" & ", " & _
Err.Description, , Err.source
End Function

tu trouveras toutes les fonctions de majuscules et minuscules sur :
http://access.seneque.free.fr/majuscules.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sophie" a écrit dans le message de news:

Bonjour,

Merci beaucoup pour votre aide, seulement la fonction
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2)) ou
=Majuscule(Gauche([Note];1)) & Minuscule(Droite([Note];Nbcar([Note])-1))
ne fonctionne pas, sa m'affiche #Erreur dans le champ Note.

Merci encore,

Sophie


Avatar
Sophie
Un gros merci, ça fonctionne.

J'avais bien mis le signe = , j'avoue que je ne comprends pas pourquoi ça ne
fonctionne pas, j'ai réussi à le faire fonctionner en ajoutant une nouvelle
zone de texte dans mon rapport, l'autre zone de texte qui m'affiche #Erreur
avait été créée avec l'assistant pour les rapports .... est-ce-que ça
peut-être la cause???

Sophie

"Raymond [mvp]" a écrit dans le message de
news:%
2 choses:
1- il ne devrait pas y avoir #erreur. il y a autre chose. as-tu bien mis
le

signe = ?
2- Ce n'est pas la bonne fonction, lecture trop rapide, j'ai lu première
lettre au lieu de première lettre de chaque mot. Excuses.

Rectification:
Dans le source contrôle du contrôle Note tu indiques (avec le signe =):
=MotsMajuscules([Note])

dans un module standard tu places ce code:
j'ai tout cadré à gauche pour ne pas faire de saut de ligne.

Public Function MotsMajuscules(Texte As String) As String
On Error GoTo Err_Property
Dim T As String
T = LCase$(Texte)
Dim I As Integer
Mid$(T, 1) = LCase$(Mid$(T, 1))
If T <> "" Then
Mid$(T, 1, 1) = UCase$(Mid$(T, 1, 1))
For I = 1 To Len(T) - 1
If Mid$(T, I, 2) = Chr$(13) + Chr$(10) Then
Mid$(T, I + 2, 1) = UCase$(Mid$(T, I + 2, 1))
End If
If Mid$(T, I, 1) = " " Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
If Mid$(T, I, 1) = "-" Then
Mid$(T, I + 1, 1) = UCase$(Mid$(T, I + 1, 1))
End If
Next
MotsMajuscules = T
End If
Exit Function
Err_Property:
MsgBox "Erreur N° " & Err.Number & ", " & _
"Texte.MotsMajuscules" & ", " & _
Err.Description, , Err.source
End Function

tu trouveras toutes les fonctions de majuscules et minuscules sur :
http://access.seneque.free.fr/majuscules.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sophie" a écrit dans le message de news:

Bonjour,

Merci beaucoup pour votre aide, seulement la fonction
=Majuscule(Gauche([Note];1)) & Minuscule(ExtracChaîne([Note];2)) ou
=Majuscule(Gauche([Note];1)) & Minuscule(Droite([Note];Nbcar([Note])-1))
ne fonctionne pas, sa m'affiche #Erreur dans le champ Note.

Merci encore,

Sophie






1 2