Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor=9671679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor=16754386
Else
Me.Détail.BackColor=16777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections
sont tous les même couleur de couleur bordure.
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
Fabien
FujitsuChaos a écrit :
Bonjour à tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco, c'est pas la bonne solution pour un formulaire en continu :-( Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm et il y en a d'autre ... @+
FujitsuChaos a écrit :
Bonjour à tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les
sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco,
c'est pas la bonne solution pour un formulaire en continu :-(
Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm
et il y en a d'autre ...
@+
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco, c'est pas la bonne solution pour un formulaire en continu :-( Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm et il y en a d'autre ... @+
Fabien
Fabien a écrit :
FujitsuChaos a écrit :
Bonjour à tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco, c'est pas la bonne solution pour un formulaire en continu :-( Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm et il y en a d'autre ... @+
Bonjour voici une autre version http://www.mvps.org/accessfr/bugs/index.htm
Fabien a écrit :
FujitsuChaos a écrit :
Bonjour à tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les
sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco,
c'est pas la bonne solution pour un formulaire en continu :-(
Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm
et il y en a d'autre ...
@+
Bonjour
voici une autre version
http://www.mvps.org/accessfr/bugs/index.htm
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les même couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Salut marco, c'est pas la bonne solution pour un formulaire en continu :-( Passe plutôt par là http://www.lebans.com/alternatecolordetailsection.htm et il y en a d'autre ... @+
Bonjour voici une autre version http://www.mvps.org/accessfr/bugs/index.htm
FujitsuChaos
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a
cause de font "Terminal"
Dans le module
...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours
affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de groupe de
discussion : 52FA7F38-9892-44FF-A5A4-FC60B79DE998@microsoft.com...
Bonjour a tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections
sont tous les meme couleur de couleur bordure.
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Fabien
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a
cause de font "Terminal"
Dans le module
...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours
affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de groupe
de discussion : 52FA7F38-9892-44FF-A5A4-FC60B79DE998@microsoft.com...
Bonjour a tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les
sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour,
et en laissant la zone vide, sans rien dedans ?
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?
FujitsuChaos
Bonjour
Dans le module : Function getColor(A As Long, B As Long) As String If Me.Wert > A And Me.Wert <= B Then getColor = "222222222222222222222222" End Function
Dans le formulaire : deux Zone de texte : Rouge et Bleu Nom : Rouge Source contrôle : =getColor(0;1) Police : Terminal Taille de la police : 14
et
Nom: Bleu Source contrôle : = getColor(1;2) Police : Terminal Taille de la police : 14
Ca marche bien Si Wert=0 aucun les deux Si Wert=1 Zone de texte en rouge Si Wert=2 Zone de texte en bleu
Mais, toujours affiche 22222222222222222222 (pas de pleins des points) Et aussi je ne comprend pas que je télécharge l'exemple de base donnée que celui ça marche en suite je fais copier le formulaire et coller a autre base de donnée, l'affiche de formulaire est 2222222222222222222
Merci
"Fabien" a écrit dans le message de groupe de discussion :
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?
Bonjour
Dans le module :
Function getColor(A As Long, B As Long) As String
If Me.Wert > A And Me.Wert <= B Then getColor = "222222222222222222222222"
End Function
Dans le formulaire :
deux Zone de texte : Rouge et Bleu
Nom : Rouge
Source contrôle : =getColor(0;1)
Police : Terminal
Taille de la police : 14
et
Nom: Bleu
Source contrôle : = getColor(1;2)
Police : Terminal
Taille de la police : 14
Ca marche bien
Si Wert=0 aucun les deux
Si Wert=1 Zone de texte en rouge
Si Wert=2 Zone de texte en bleu
Mais, toujours affiche 22222222222222222222 (pas de pleins des points)
Et aussi je ne comprend pas que je télécharge l'exemple de base donnée que
celui ça marche en suite je fais copier le formulaire et coller a autre base
de donnée, l'affiche de formulaire est 2222222222222222222
Merci
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de groupe de
discussion : ez9iL9K6IHA.2240@TK2MSFTNGP02.phx.gbl...
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a
cause de font "Terminal"
Dans le module
...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours
affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de groupe
de discussion : 52FA7F38-9892-44FF-A5A4-FC60B79DE998@microsoft.com...
Bonjour a tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les
sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour,
et en laissant la zone vide, sans rien dedans ?
Dans le module : Function getColor(A As Long, B As Long) As String If Me.Wert > A And Me.Wert <= B Then getColor = "222222222222222222222222" End Function
Dans le formulaire : deux Zone de texte : Rouge et Bleu Nom : Rouge Source contrôle : =getColor(0;1) Police : Terminal Taille de la police : 14
et
Nom: Bleu Source contrôle : = getColor(1;2) Police : Terminal Taille de la police : 14
Ca marche bien Si Wert=0 aucun les deux Si Wert=1 Zone de texte en rouge Si Wert=2 Zone de texte en bleu
Mais, toujours affiche 22222222222222222222 (pas de pleins des points) Et aussi je ne comprend pas que je télécharge l'exemple de base donnée que celui ça marche en suite je fais copier le formulaire et coller a autre base de donnée, l'affiche de formulaire est 2222222222222222222
Merci
"Fabien" a écrit dans le message de groupe de discussion :
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?
FujitsuChaos
Bonjour
C'est bon
Merci a tous
Bonne journée
"Fabien" a écrit dans le message de groupe de discussion :
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?
Bonjour
C'est bon
Merci a tous
Bonne journée
"Fabien" <UrbaniakFabienxxxx@Neuf.fr> a écrit dans le message de groupe de
discussion : ez9iL9K6IHA.2240@TK2MSFTNGP02.phx.gbl...
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a
cause de font "Terminal"
Dans le module
...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours
affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" <fujitsuchaos@msn.com> a écrit dans le message de groupe
de discussion : 52FA7F38-9892-44FF-A5A4-FC60B79DE998@microsoft.com...
Bonjour a tous,
Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor71679
Else Not IsNulle(Me.MedDaErr) Then
Me.Détail.BackColor754386
Else
Me.Détail.BackColor777215
End If
Pas de message d'erreur mais, dans le formulaire "continu", les
sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour,
et en laissant la zone vide, sans rien dedans ?
"Fabien" a écrit dans le message de groupe de discussion :
FujitsuChaos a écrit :
Bonjour
Je te remercie a Fabien que vous m'avez proposer mais je n'arrive pas a cause de font "Terminal" Dans le module ...................."2222222222222222222"
lancer le formulaire, ça marche en deux différent couleur mais toujours affiche 222222222222222222
Merci d'avance
Marco
"FujitsuChaos" a écrit dans le message de groupe de discussion :
Bonjour a tous,
Private Sub Form_Current() If Not IsNulle(Me.MedDaArr) Then Me.Détail.BackColor71679 Else Not IsNulle(Me.MedDaErr) Then Me.Détail.BackColor754386 Else Me.Détail.BackColor777215 End If
Pas de message d'erreur mais, dans le formulaire "continu", les sélections sont tous les meme couleur de couleur bordure.
Je croie qu'il faut utiliser "FOR"...
Merci beaucoup par avance.
Marco
Bonjour, et en laissant la zone vide, sans rien dedans ?