je suis entain de faire une base de donné en accès mais ,je n'arrive pas à
bien ecrire un code pour la gestion des couleurs selon les professions.
couleur fait partir des non de champs de ma table , j'ai fait un état à
partir des champs de ma table , et j'ai ajouté une boîte (rectangle du
toolbc) où je souhaiterai que la couleur de fond se fasse automatiquement
selon selon ce qui est indiqué sur le champs couleur.
exemple: couluer=rouge, je souhaiterai avoirautomatiquement dans ce
rectange le backcolor rouge.
espérant resoudre ce problème , merci d'avance.
"natouflora" | je suis entain de faire une base de donné en accès mais ,je n'arrive pas à | bien ecrire un code pour la gestion des couleurs selon les professions. | | couleur fait partir des non de champs de ma table , j'ai fait un état à | partir des champs de ma table , et j'ai ajouté une boîte (rectangle du | toolbc) où je souhaiterai que la couleur de fond se fasse automatiquement | selon selon ce qui est indiqué sur le champs couleur. | exemple: couluer=rouge, je souhaiterai avoirautomatiquement dans ce | rectange le backcolor rouge. | espérant resoudre ce problème , merci d'avance.
"Rouge" n'est pas forcément un mot reconnu par le VBA (qui cause english...)
Mais, tu pourrais ajouter dans ta table un champ qui contiendrait la valeur numérique de la couleur que tu souhaite donner au textbox... ("rouge" = 255 ) Cela deviendrai facile, dans l'événement "Au formatage" de la section détail, tu mets qque chose comme:
Me.NomDuTextBox.Backcolor = Me.CouleurNumerique
le champ "CouleurNumerique" ne doit pas être affiché, mais simplement faire partie de la source de l'état.
Option Compare Database Private Const colorrouge As Integer = 255 Private Const colororange As Integer = 4227327 Private Const colorjaune As Integer = 65535 Private Const colorvert As Integer = 32768 Private Const colorbleu As Integer = 12615680 Private Const colorrose As Integer = 12615935 Private Const colormarron As Integer = 128
Private Sub bx_color(Cancel As Integer, FormatCount As Integer)
If Couleur = "Rouge" Then bx_color.BackColor = colorrouge Else If Couleur = "orange" Then bx_color.BackColor = colororange Else If Couleur = "jaune" Then bx_color.BackColor = colorjaune Else If Couleur = "vert" Then bx_color.BackColor = colorvert Else If Couleur = "bleu" Then bx_color.BackColor = colorbleu Else If Couleur = "rose" Then bx_color.BackColor = colorrose Else If Couleur = "marron" Then bx_color.BackColor = colormarron End If End If End If End If End If End If End If
End Sub
Salut,
"natouflora"
| je suis entain de faire une base de donné en accès mais ,je n'arrive pas à
| bien ecrire un code pour la gestion des couleurs selon les professions.
|
| couleur fait partir des non de champs de ma table , j'ai fait un état à
| partir des champs de ma table , et j'ai ajouté une boîte (rectangle du
| toolbc) où je souhaiterai que la couleur de fond se fasse automatiquement
| selon selon ce qui est indiqué sur le champs couleur.
| exemple: couluer=rouge, je souhaiterai avoirautomatiquement dans ce
| rectange le backcolor rouge.
| espérant resoudre ce problème , merci d'avance.
"Rouge" n'est pas forcément un mot reconnu par le VBA (qui cause english...)
Mais, tu pourrais ajouter dans ta table un champ qui contiendrait la valeur numérique
de la couleur que tu souhaite donner au textbox... ("rouge" = 255 )
Cela deviendrai facile, dans l'événement "Au formatage" de la section détail,
tu mets qque chose comme:
Me.NomDuTextBox.Backcolor = Me.CouleurNumerique
le champ "CouleurNumerique" ne doit pas être affiché, mais simplement
faire partie de la source de l'état.
Option Compare Database
Private Const colorrouge As Integer = 255
Private Const colororange As Integer = 4227327
Private Const colorjaune As Integer = 65535
Private Const colorvert As Integer = 32768
Private Const colorbleu As Integer = 12615680
Private Const colorrose As Integer = 12615935
Private Const colormarron As Integer = 128
Private Sub bx_color(Cancel As Integer, FormatCount As Integer)
If Couleur = "Rouge" Then bx_color.BackColor = colorrouge
Else
If Couleur = "orange" Then bx_color.BackColor = colororange
Else
If Couleur = "jaune" Then bx_color.BackColor = colorjaune
Else
If Couleur = "vert" Then bx_color.BackColor = colorvert
Else
If Couleur = "bleu" Then bx_color.BackColor = colorbleu
Else
If Couleur = "rose" Then bx_color.BackColor =
colorrose
Else
If Couleur = "marron" Then
bx_color.BackColor = colormarron
End If
End If
End If
End If
End If
End If
End If
"natouflora" | je suis entain de faire une base de donné en accès mais ,je n'arrive pas à | bien ecrire un code pour la gestion des couleurs selon les professions. | | couleur fait partir des non de champs de ma table , j'ai fait un état à | partir des champs de ma table , et j'ai ajouté une boîte (rectangle du | toolbc) où je souhaiterai que la couleur de fond se fasse automatiquement | selon selon ce qui est indiqué sur le champs couleur. | exemple: couluer=rouge, je souhaiterai avoirautomatiquement dans ce | rectange le backcolor rouge. | espérant resoudre ce problème , merci d'avance.
"Rouge" n'est pas forcément un mot reconnu par le VBA (qui cause english...)
Mais, tu pourrais ajouter dans ta table un champ qui contiendrait la valeur numérique de la couleur que tu souhaite donner au textbox... ("rouge" = 255 ) Cela deviendrai facile, dans l'événement "Au formatage" de la section détail, tu mets qque chose comme:
Me.NomDuTextBox.Backcolor = Me.CouleurNumerique
le champ "CouleurNumerique" ne doit pas être affiché, mais simplement faire partie de la source de l'état.
Option Compare Database Private Const colorrouge As Integer = 255 Private Const colororange As Integer = 4227327 Private Const colorjaune As Integer = 65535 Private Const colorvert As Integer = 32768 Private Const colorbleu As Integer = 12615680 Private Const colorrose As Integer = 12615935 Private Const colormarron As Integer = 128
Private Sub bx_color(Cancel As Integer, FormatCount As Integer)
If Couleur = "Rouge" Then bx_color.BackColor = colorrouge Else If Couleur = "orange" Then bx_color.BackColor = colororange Else If Couleur = "jaune" Then bx_color.BackColor = colorjaune Else If Couleur = "vert" Then bx_color.BackColor = colorvert Else If Couleur = "bleu" Then bx_color.BackColor = colorbleu Else If Couleur = "rose" Then bx_color.BackColor = colorrose Else If Couleur = "marron" Then bx_color.BackColor = colormarron End If End If End If End If End If End If End If
End Sub
3stone
Salut,
"natouflora" | | en voici ce que j'avais fait: avec [...]
