[AC-2010] problème "invalid qualifier" [Résolu]

[david89]

Bonjour,

j'essaye de faire tourner ce code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Frame1178_AfterUpdate()
    Select Case Me.Frame1178.Value
        Case 1
            Me.Label1175.BackColor = Color.green
        Case 2
            Me.Label1175.BackColor = Color.red
        Case 3
            Me.Label1175.BackColor = Color.yellow
        Case Else
            Me.Label1175.BackColor = Color.white
    End Select
End Sub

Frame1178 est un option group (créé avec le Wizard, 3 choix Done = 1, Undone = 2 etc.), Label 1175 est une label quelconque sur la page.
L'ensemble est dans le même formulaire (ALL), dans la même table d'onglet (TabCtl0) et dans le même onglet (WPERSONNEL).

OBJECTIF : lorsqu'un option bouton est coché, la couleur de fond du label change en fonction du bouton coché.
Au début Access m'affichait : run-time error 424 : Object required. Et sélectionnait le case correspondant à celui que je venais de cocher. J'ai rajouter des "me." dans le code pour obtenir celui ci-dessus. Et depuis Acces m'affiche : error invalid qualifier en sélectionnant la première ligne.

Access m'avait déjà fait le coup lorsque j'avais essayé de faire la même manip mais à partir d'un menu déroulant (voir un post précédent) mais je n'avais pas réussi à régler le problème (d'où le changement d'approche)

Si vous avez des idées ou une solution svp, je suis preneur. Cela fait plusieurs jours que je suis sûr le problème et je n'en vois plus le bout :s
David

[david89]

je viens de tenter une troisième approche (inspiré du site du zéro), le fait de cliquer sur un boutton extérieur fait appliquer la couleur choisie

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub BT_AA_Click()
     If Me.Option1181.Enabled Then
'optionBT.checked doesn't work
                  Me.Label1175.BackColor = Color.Blue
        End If
    If Me.Option1183.Enabled Then
                  Me.Label1175.BackColor = Color.Yellow
        End If
    If Me.Option1185.Enabled Then
                  Me.Label1175.BackColor = Color.Green
        End If
End Sub

--> INVALID QUALIFIER
Donc même problème qu'avec les approches précédentes.
svp HELPPPPP

est-ce que par hasard je ne dois pas mettre quelque chose dans les () de : Private Sub BT_AA_Click() ??

[Philippe JOCHMANS]

Bonjour

Plusieurs choses d'abord

Donnez des noms à vos contrôles et ne laissez pas les noms donnés par Access : http://argyronet.developpez.com/office/vba/

Les attributs de couleurs n'existent pas sur Access tel que tu les écris (je ne sais pas où tu as pu trouver ce genre de code sur Access), soit tu prends du code RGB, soit des constantes VB.

Voici ton code revu :

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub CadreChoix_Click()
    Select Case CadreChoix
        Case 1
            Me.Rectangle.BackColor = vbGreen
        Case 2
            Me.Rectangle.BackColor = vbRed
        Case 3
            Me.Rectangle.BackColor = vbYellow
    End Select
End Sub

A toi de mettre des noms corrects

Philippe

[david89]

ok merci je vais essayer de suite

[david89]

Re,

Merci pour ton aide mais il reste un petit "mais" ^^'
Les color.xxx j'avais trouvé ça sur le site du zéro mais pour Visual Basic Express.
J'ai appliqué ton code et modifié les noms en fonction.
A priori ça tourne MAIS les couleurs ne changent pas, je vois juste le texte que j'ai mis dans le label clignoté au moment où j'appuis. Je pense que ça montre que le label se rafraichit mais par contre la couleur de fond ne change pas....
une idée?

Update : TROUVEZ !! le backstyle était en mode transparent!

MERCI MILLES FOIS!!!!!! (j'en avais tellement marre ^^)

[Philippe JOCHMANS]

Re

Pour info VisualBasicExpress c'est du VB.net, rien à voir avec le VBA pour Access.

Philippe

[david89]

Rebonjour,

Encore merci pour ton coup de main sur le forum ^^.
Désolé, je n'avais pas vraiment compris la distinction entre VBA et vb.NET