Quel est le probleme de ce code VBA?

Version imprimable

Bonjour,
j'ai fait un code avec check box, mais quand je clique sur le bouton commande, un message me dit que "la valeur entrée est vide". Voici le code:
----------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Command114_Click()
On Error GoTo Err_Command114_Click
DoCmd.SetWarnings False
 
If Check123.Value = True And Combo119.Value <> "All Div" Then
 
DoCmd.OpenQuery "DD " & Combo119.Value & " Material Details In Global", acNormal, acEdit
 
ElseIf Check125.Value = True And Combo119.Value <> "All Div" Then
DoCmd.OpenQuery "DD" & " " & Combo119.Value & " " & "Material Details Per Supplier", acNormal, acEdit
 
Else
 
End If
 
 
Exit_Command114_Click:
    Exit Sub
 
Err_Command114_Click:
    MsgBox Err.Description
    Resume Exit_Command114_Click
 
End Sub

-------------

Qui peut me dire svp pourquoi le bouton ne lance aucune query.
Merci

26/08/2009, 09h45
Tyria

Est ce que tu as fait fonctionné ton code en mode "pas à pas" ? Si oui, est ce que tu as isolé la ligne qui ne marche pas ?

Sinon j'ai du mal comprendre comment fonctionne certains passage...

Code:

DoCmd.OpenQuery "DD " & Combo119.Value & " Material Details In Global", acNormal, acEdit

Code:

DoCmd.OpenQuery "DD" & " " & Combo119.Value & " " & "Material Details Per Supplier", acNormal, acEdit

A quoi corresponds DD ?
26/08/2009, 10h02
argyronet

Bonjour,

Tyria, en toute apparence, il s'agit du nom de ses requêtes 8O 8O 8O !!!

SunRay, il serait bon pour toi de respecter les conventions typographiques du code...

Si tu as une erreur, c'est que le nom est incorrect !

Argy
26/08/2009, 10h07
SunRay

les DD sont juste une partie du nom de la requete à lancer

Citation:

Envoyé par Tyria

Est ce que tu as fait fonctionné ton code en mode "pas à pas" ? Si oui, est ce que tu as isolé la ligne qui ne marche pas ?

Sinon j'ai du mal comprendre comment fonctionne certains passage...

Code:

DoCmd.OpenQuery "DD " & Combo119.Value & " Material Details In Global", acNormal, acEdit

Code:

DoCmd.OpenQuery "DD" & " " & Combo119.Value & " " & "Material Details Per Supplier", acNormal, acEdit

A quoi corresponds DD ?

Oui je comprends que tu aies posé cette question.
mes requetes sont nommées:
DD PB01 Material Details In Global
DD PA01 Material Details In Global
...
donc tout est fixe sauf la partie après DD. les valeurs de Combo119 correspondent aux differents choix possibles.

Penses-tu que "checkbox.value = true" veut dire que si ma check box est cochée?
Merci
26/08/2009, 10h11
fgiambelluco

Bonjour à tous

Citation:

un message me dit que "la valeur entrée est vide"

On pourrait avoir le message exact d'access ?

Citation:

Penses-tu que "checkbox.value = true" veut dire que si ma check box est cochée?

ben, oui c'est le principe
26/08/2009, 10h24
SunRay

le message exacte es en anglais

Citation:

Envoyé par fgiambelluco

Bonjour à tous
On pourrait avoir le message exact d'access ?

ben, oui c'est le principe

on me dit: "You entered an expression that has no value", avec mon niveau cela se traduit par: vous avez entré une expression qui n'a pas de valeur.
26/08/2009, 10h29
fgiambelluco

Re
Ok
Est ce que tu pourrais mettre ton On Error en commentaire (')

Code:

'On Error GoTo Err_Command114_Click

et nous donner la ligne exacte qui plante?
26/08/2009, 10h41
SunRay

Ce qui plante c'est la condition If

Citation:

Envoyé par fgiambelluco

Re
Ok
Est ce que tu pourrais mettre ton On Error en commentaire (')

Code:

'On Error GoTo Err_Command114_Click

et nous donner la ligne exacte qui plante?

La ligne est:

Code:

If Check123.Value = True Then

Elle apparait en jaune après debugging et quand j'y bouge le curseur, ce message apparait: checkbox123.value=<you entered an expression that has no value.>
26/08/2009, 10h52
fgiambelluco

Re
Etant donné le message, on dirait que Check123 est une étiquette.

Vérifie la propriété Nom de ta case à cocher (fait un double clic sur la case, pas sur le libellé qui suit)

Bonjour,

les checkBox et les radioButton ont trois états Null, False et True. Ils sont Null tant qu'ils n'ont pas été cliqués ou initialisés.
Le plus simple serait de conditionner la possibilité de cliquer sur le bouton de commande quand les conditions requises pour ouvrir une requête sont remplies.

Ici, le bouton de commande Command114 n'est disponible que lorsq'une des checkBox est à True et que la comboBox est différente de "All Div".
Exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 Dim RqtName as String, RqtOption as String
 
Private Sub Form_Load()
 Check123.Value=False
 Check125.Value=False
 Combo119.Value="All Div"
 Command114.Enabled=False
 RqtName=""
 RqtOption=""
End sub
 
Private Sub Check123_Click()
 If Check123.Value Then
    Check123.Locked=True
    Check125.Locked=False
    Check125.Value=False
    RqtOption="In Global"
 End if
 Command114.Enabled=((Check123.Value Or Check125.Value) and Combo119.Value<>"All Div")
End if
 
Private Sub Check125_Click()
 If Check125.Value Then
    Check125.Locked=True
   Check123.Locked=False
   Check123.Value=False
   RqtOption="Per Supplier"
 End if
 Command114.Enabled=((Check123.Value Or Check125.Value) And Combo119.Value<>"All Div")
End Sub
 
Private Sub Combo119_AfterUpdate()
 If Combo119.Value<>"All Div" Then RqtName="DD " & Combo119.Value & " Material Details " 
 command114.Enabled=((Check123.Value Or Check125.Value) And Combo119.Value<>"All Div")
End Sub
 
Private Sub Command114_Click()
 Docmd.Openquery "[" & RqtName & RqtOption & "]",acViewNormal,acEdit
End sub

26/08/2009, 11h46
SunRay

Merci MAIS......

Je sais que c'est un travail génial ton code. Pourtant j'ai bien verifié le nom de mes deux check box, et ils sont corrects (et pas en étiquette).
Mais on me dit tjrs que Check123.value et check125.value n'ont pas de valeur.
Pourtant j'ai tapé ton code à la lettre près!

Par d'autres recherches, j'ai vu ce bou de code:
"checkBox.checked=True"
Est-ce correct?
Parce qu'à la place je mettrais "checkbox.value=true"

désolé de vous fatiguer comme ça.
26/08/2009, 11h58
fgiambelluco

Re
Là je vois plus trop.
Dans ton code essaye de taper Me.c, il doit te proposer check123, appuie sur le point .v, il doit te proposer value
Si c'est pas le cas (les propositions faites ne sont bas bonnes), c'est que le problème vient des cases à cocher qui ne sont pas considérer comme telles.
26/08/2009, 12h04
ilank

De quel type sont ces contrôles ? Ce sont bien des CheckBox Access placés sur un formulaire ?

Essaie de faire un:

Code:

msgbox TypeName(Me.Check123)

Pour afficher le type du contrôle Check123
26/08/2009, 12h10
SunRay

VBA les reconnait

Citation:

Envoyé par fgiambelluco

Re
Là je vois plus trop.
Dans ton code essaye de taper Me.c, il doit te proposer check123, appuie sur le point .v, il doit te proposer value
Si c'est pas le cas (les propositions faites ne sont bas bonnes), c'est que le problème vient des cases à cocher qui ne sont pas considérer comme telles.

Quand je fais Me.c, on me propose la check123, pareil avec .v (-->Value).
J'ai bcp appris les gars.
Je crois que je vais creer deux commandes pour remplacer les check box.

Bonne journée à tous.