Quel est le probleme de ce code VBA?

**SunRay** · 26/08/2009, 09h38

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Tyria** · 26/08/2009, 09h45

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A quoi corresponds DD ?

**argyronet** · 26/08/2009, 10h02

Bonjour,

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

!!!

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

**SunRay** · 26/08/2009, 10h07

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**fgiambelluco** · 26/08/2009, 10h11

Bonjour à tous

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

On pourrait avoir le message exact d'access ?

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

ben, oui c'est le principe

**SunRay** · 26/08/2009, 10h24

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.

**fgiambelluco** · 26/08/2009, 10h29

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'On Error GoTo Err_Command114_Click

et nous donner la ligne exacte qui plante?

**SunRay** · 26/08/2009, 10h41

Envoyé par fgiambelluco

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'On Error GoTo Err_Command114_Click

et nous donner la ligne exacte qui plante?

La ligne est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.>

**fgiambelluco** · 26/08/2009, 10h52

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)

**ilank** · 26/08/2009, 11h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**SunRay** · 26/08/2009, 11h46

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.

**fgiambelluco** · 26/08/2009, 11h58

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.

**ilank** · 26/08/2009, 12h04

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

Essaie de faire un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox TypeName(Me.Check123)

Pour afficher le type du contrôle Check123

**SunRay** · 26/08/2009, 12h10

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.

Quel est le probleme de ce code VBA?

VBA Access

Discussions similaires

Partager

Partager