Formatage zone de texte dans un rapport
Résolu
cs_jyvaut75
Messages postés
9
Date d'inscription
mardi 26 juin 2007
Statut
Membre
Dernière intervention
15 février 2008
-
10 août 2007 à 14:07
cs_jyvaut75 Messages postés 9 Date d'inscription mardi 26 juin 2007 Statut Membre Dernière intervention 15 février 2008 - 13 août 2007 à 14:11
cs_jyvaut75 Messages postés 9 Date d'inscription mardi 26 juin 2007 Statut Membre Dernière intervention 15 février 2008 - 13 août 2007 à 14:11
A voir également:
- Formatage zone de texte dans un rapport
- Vba écrire dans un fichier texte - Conseils pratiques -Visual Basic / VB.NET
- Rapport keno ✓ - Forum ASP.NET
- Roulettechat texte - Forum Visual Basic
- Text Aleatoire - Forum C / C++ / C++.NET
- Comment ajouter une zone de texte sur canva - Forum C# / .NET
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
11 août 2007 à 09:05
11 août 2007 à 09:05
salut,
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim Ctrl As Control
For Each Ctrl In Me.Détail.Controls
If TypeOf Ctrl Is TextBox Then
Call CouleurTextBox(Ctrl.Name,
Ctrl)
End If
Next Ctrl
End Sub
Private Function CouleurTextBox(strEvent As
String, CtrlTextBox As
Control)
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Tbl_Evenement", dbOpenTable)
rst.Index = "CEvenement"
With rst
.Seek "=", strEvent
If .NoMatch Then
MsgBox ("Bug sur CodeEvent" & strEvent)
Else
CtrlTextBox.ForeColor = vbBlack
CtrlTextBox.BackColor = IIf(![Present], vbWhite, 12632256)
End If
End With
End Function
par contre je pige pas pourquoi tu gardes et regardes strEvent.
il va contenir le contenu de la textbox, pas sa nomenclature. est-ce le but?
dans tous les cas, comme tu passes Ctrl en paramètre tu n'as pas besoin de passer aussi strEvent qui est récupérable
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim Ctrl As Control
For Each Ctrl In Me.Détail.Controls
If TypeOf Ctrl Is TextBox Then
Call CouleurTextBox(Ctrl.Name,
Ctrl)
End If
Next Ctrl
End Sub
Private Function CouleurTextBox(strEvent As
String, CtrlTextBox As
Control)
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("Tbl_Evenement", dbOpenTable)
rst.Index = "CEvenement"
With rst
.Seek "=", strEvent
If .NoMatch Then
MsgBox ("Bug sur CodeEvent" & strEvent)
Else
CtrlTextBox.ForeColor = vbBlack
CtrlTextBox.BackColor = IIf(![Present], vbWhite, 12632256)
End If
End With
End Function
par contre je pige pas pourquoi tu gardes et regardes strEvent.
il va contenir le contenu de la textbox, pas sa nomenclature. est-ce le but?
dans tous les cas, comme tu passes Ctrl en paramètre tu n'as pas besoin de passer aussi strEvent qui est récupérable
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
cs_jyvaut75
Messages postés
9
Date d'inscription
mardi 26 juin 2007
Statut
Membre
Dernière intervention
15 février 2008
13 août 2007 à 14:11
13 août 2007 à 14:11
Bonjour PCPT,
Merci pour le code simplifié qui fonctionne parfaitement. Effectivement, strEvent n'a aucun intérêt.
Le détail qui "tuait" la mise en forme des zones de texte: Pour toutes les zones de textes dont le nom était >D6, la propriété, style de fond était à "Transparent" au lieu d'être à "Standard". Résultat, beau essayer de colorer, ça ne marchait pas!
Encore merci.
JYV
Merci pour le code simplifié qui fonctionne parfaitement. Effectivement, strEvent n'a aucun intérêt.
Le détail qui "tuait" la mise en forme des zones de texte: Pour toutes les zones de textes dont le nom était >D6, la propriété, style de fond était à "Transparent" au lieu d'être à "Standard". Résultat, beau essayer de colorer, ça ne marchait pas!
Encore merci.
JYV