Discussion :

[walden]

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

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

[malhivertman1]

En mettant un point d'arrét, ou est ton erreur?

[walden]

j'ai écris "erreur a ce niveau" à la ligne où se produit mon erreur.

[malhivertman1]

ah oui dsl

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

[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

[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

[walden]

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

[walden]

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 :

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

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.

[malhivertman1]

Si tu boss sous access, c'est du VBA