[VBA-A] méthode Value pour un control

Version imprimable

Bonjour j'ai une erreur, dans mon code, qui me dit "propriété ou méthode non géré par cet objet."
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Load() Dim ctl As Control For Each ctl In Me.Controls Select Case Left(ctl.Name, 3) Case "chk" ctl.Value = -1 erreur à ce niveau Case "txt" ctl.vivible = False ctl.Value = "" Case "cmb" ctl.Visible = False End Select Next ctl Me.lstCollaborateurs.RowSource = "SELECT Secteur, Fonction, Fiche_de_poste, Nom FROM Collaborateurs;" Me.lstCollaborateurs.Requery End Sub
Pourtant ce bout de code vient d'un tutoriel du site, celui sur la recherche multicritere.

Merci de m'aider si possible.

Walden.

31/05/2006, 10h57
malhivertman1

En mettant un point d'arrét, ou est ton erreur?
31/05/2006, 10h58
walden

j'ai écris "erreur a ce niveau" à la ligne où se produit mon erreur.
31/05/2006, 10h59
malhivertman1

ah oui dsl :P

et ben c'est parce que l'objet ctl ne gere pas la propriété .value comme l'indique le message d'erreur

met plutot .text
31/05/2006, 11h09
Theocourant
Bonjour,

Tout d'abord un Checkbox ne peut pas avoir une valeur de -1 c'est
- 0 : non cochée
- 1 : cochée
- 2 : non disponible
Ensuite contrôle que tu n'as pas un autre contrôle qui aurait malheureusement récolté les lettre "chk" en début de nom ...

Bonne continuation

Théo
31/05/2006, 11h10
jmfmarques

Je ne vois pas de Tag VBA .... tu es donc pour moi sous VB et :

Si comme je le pense les contrôles commençant par chk sont des checkboxes, ils ont une propriété value = 0 (non coché) ou 1 (coché) ou 2 (grisé) et donc pas -1

pour les contrôles commençant pat txt : je suppose qu'il s'agit de texboxes et dans ce cas, ils n'ont pas de propriété value mais une propriété text !

La propriété vivible n'existe pas (je suppose que tu veux dire visible)

Je ne saurais trop de déconseiller d'utiliser l'événement Load pour faire celà !
Au chargement, on ne sait pas encore quels contrôles ont été chargés complètement !
Utilise plutôt Form_Activate
31/05/2006, 11h11
walden

Merci pour vos nombreuses réponses, je vais tester tout cela, merci à vous tous, je vous tiens au courant.

Bonjour, doncvoila les avancées.

Pour le "vivible" en effet, c'est un erreur, c'est " visible".

J'avoue jmfmarques que je ne sais meme pas la différence exacte entre VB et VBA , perso je bosse avec l'éditeur visual Basic de Access 2000.

J'ai changé le form_load en activate, ca marche mieux en effet.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Form_Activate() Dim ctl As Control For Each ctl In Me.Controls Select Case Left(ctl.Name, 3) Case "chk" ctl.Value = 0 Case "txt" ctl.Visible = False ctl.Value = "" Case "cmb" ctl.Visible = False End Select Next ctl Me.lstCollaborateurs.RowSource = "SELECT Secteur, Fonction, Fichedeposte, Nom FROM Collaborateurs;" Me.lstCollaborateurs.Requery End Sub
Ca n'a pas fondamentalement changé mais ca marche. :lol:

Sinon j'ai fais des requetes SQL sur mes combos box mais je comprends pas, rien ne s'affiche dans la combo... je vous en donne une :
SELECT [Collaborateurs].[Secteur] FROM Collaborateurs GROUP BY [Collaborateurs].[Secteur] ORDER BY [Collaborateurs].[Secteur];

Y a t il une option à cocher un tit bidule que j'ai pas vu c pas impossible.

Merci si vous pouvez m'aider.

Walden.

01/06/2006, 10h49
malhivertman1

Si tu boss sous access, c'est du VBA

Salut,

Je te rappelle ce qu'a dit jmfmarques il y a une erreur au niveau du contrôle Textbox qui n'a pas de propriété Value mais Text. J'ai d'ailleurs du mal à comprendre comment ça marche sachant cette erreur ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Form_Activate() Dim ctl As Control For Each ctl In Me.Controls Select Case Left(ctl.Name, 3) Case "chk" ctl.Value = 0 Case "txt" ctl.Visible = False ctl.Text = "" Case "cmb" ctl.Visible = False End Select Next ctl ...
Bonne continuation

Théo

01/06/2006, 11h45
walden

OK merci, théocourant et malhivertman, mais j'ai toujours rien qui s'affiche dans mes combo box je continue ma recherche
01/06/2006, 11h58
ThierryAIM

Théo, la propriété value existe bel et bien en VBA, ce qui n'est pas le cas en VB6; c'est même la propriété par défaut pour une zone de texte
Attention donc à tous de ne pas dire de bétises, sans savoir ou avoir vérifié ;)
01/06/2006, 12h03
ThierryAIM

de même, en relisant ce sujet depuis le début, en VBA Access, une case à cocher à la valeur True ou False, soit -1 ou 0
01/06/2006, 12h11
walden

OK merci thierry AIM, où puis je moi meme vérifier ce genre d'information, comem ca je ferais gagner du temps à tout le monde ;)
01/06/2006, 12h25
ThierryAIM

Dans l'aide de VBA Access, pardi
01/06/2006, 13h42
Theocourant

Citation:

Envoyé par ThierryAIM

de même, en relisant ce sujet depuis le début, en VBA Access, une case à cocher à la valeur True ou False, soit -1 ou 0

D'après le tag du sujet, on se trouvait en VB et non en VBA.

Citation:

Envoyé par ThierryAIM

Théo, la propriété value existe bel et bien en VBA, ce qui n'est pas le cas en VB6; c'est même la propriété par défaut pour une zone de texte
Attention donc à tous de ne pas dire de bétises, sans savoir ou avoir vérifié ;)

J'étais resté sur l'idée du travail avec VB (et non VBA) donc je pensais qu'il s'agissait d'une erreur car j'ai "survolé" le message où il disait qu'il travaillait avec VBA :oops:

:dehors:

Théo
01/06/2006, 13h49
ThierryAIM

je sais que le tuto de recherche multi-critère dont parle notre ami dans son premier post est du VBA Access, je n'ai donc pas fait gaffe au tag ;)

Mais suite à confirmation ici
Tag modifié

tu n'es qu'à moitié pardonné, Théo, car tu aurais du vérifier ;)
01/06/2006, 14h09
walden

Oui en effet Thierry, l'aide VB de Access, mais j'avoue que je m'y perds un peu, je ne sais pas toujours où chercher.

Mes combobox restent désespéremment vide mais je ne renonce pas. :roll:

Bon et bien je continue de caler, je vais afficher le code de mon formulaire, si vous voyez ma boulette et bien je serais ravi de la modifier. La boulette étant des combox vides malgré une requete sur le contenu à afficher.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Form_Activate()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
        Case "cmb"
            ctl.Visible = False
    End Select
Next ctl
Me.lstCollaborateurs.RowSource = "SELECT Secteur, Fonction, Fichedeposte, Nom FROM Collaborateurs;"
Me.lstCollaborateurs.Requery
End Sub
Private Sub refreshQuery()
Dim SQL As String
SQL = "SELECT Secteur, Fonction, Fichedeposte, Nom FROM Collaborateurs"
If Me.chkFdP = -1 Then
SQL = SQL & "And Collaborateurs!Fichedeposte like '" & Me.cmbRechFdP & "' "
End If
If Me.chkSecteur = -1 Then
SQL = SQL & "And Collaborateurs!Secteur like '" & Me.cmbRechSecteur & "' "
End If
If Me.chkFonction = -1 Then
SQL = SQL & "And Collaborateurs!Fonction like '" & Me.cmbRechFonction & "' "
End If
If Me.chkNom = -1 Then
SQL = SQL & "And Collaborateurs!Nom like '*" & Me.txtRechNom & "*' "
End If
Me.lstCollaborateurs.RowSource = SQL
Me.lstCollaborateurs.Requery
End Sub
 
Private Sub chkFdP_Click()
Me.cmbRechFdP.Visible = Not Me.cmbRechFdP.Visible
refreshQuery
End Sub
 
Private Sub chkFonction_Click()
Me.cmbRechFonction.Visible = Not Me.cmbRechFonction.Visible
refreshQuery
End Sub
 
Private Sub chkNom_Click()
Me.txtRechNom.Visible = Not Me.txtRechNom.Visible
refreshQuery
End Sub
 
Private Sub chkSecteur_Click()
    Me.cmbRechSecteur.Visible = Not Me.cmbRechSecteur.Visible
    refreshQuery
End Sub
 
Private Sub cmbRechFdP_BeforeUpdate(Cancel As Integer)
refreshQuery
End Sub
 
Private Sub cmbRechFonction_BeforeUpdate(Cancel As Integer)
refreshQuery
End Sub
 
Private Sub cmbRechSecteur_BeforeUpdate(Cancel As Integer)
refreshQuery
End Sub
 
Private Sub txtRechNom_BeforeUpdate(Cancel As Integer)
refreshQuery
End Sub

Voila merci.