Formulaire continu

Le
FujitsuChaos
Bonjour à tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #16331911
FujitsuChaos a écrit :
Bonjour à tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Le #16337491
Fabien a écrit :
FujitsuChaos a écrit :
Bonjour à tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Le #16357941
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" discussion :
Bonjour a tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Le #16358231
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" de discussion :
Bonjour a tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Le #16359781
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" 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" de discussion :
Bonjour a tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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
Le #16380131
Bonjour

C'est bon

Merci a tous

Bonne journée

"Fabien" 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" de discussion :
Bonjour a tous,

Private Sub Form_Current()
If Not IsNulle(Me.MedDaArr) Then
Me.Détail.BackColor–71679
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 ?


Publicité
Poster une réponse
Anonyme