Discussion :

[Baba75AB]

Bonjour,
J'ai un formulaire ayant comme source une requête multi-table pour la selection d'informations pour l'impression d'un document word qui récupèrera ces informations pour les insérer dans des signets.
Le problème à l'ouverture, il me charge systématiquement tous les contrôles avec les valeurs de la 1er ligne de la selection.
J'ai une liste déroulante basé sur cette même requête qui me permet ainsi de visualiser les informations sur la valeur d'un champ selectionné.
Donc a l'ouverture de ce formulaire de visualisations et non d'enregistrements de données, il faudrait pouvoir parcourir l'assemble des contrôles et de les vider un par un.
Je suis parti sur cette base, mais j'obtiens des messages d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
' Sur ouverture du formulaire, vider tous les champs
 
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If Len(Me.Controls) < 1 Then
    Me.Controls = ""
    End If
Next
 
End Sub

Ce que je n'arrive pas à faire c'est de déclarer la variable à prendre en compte pour determiner si le champs en cours de contrôle est vide ou pas, si il est non vide (donc remplis) le vider...

Merci de votre aide.

[jimay]

salut,

As-tu essayé de remplacer dans ta boucle les 'Controls' par 'Ctrl' ?

Code :

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

1
2
3
4
5
For Each Ctrl In Me.Controls
    If Len(Me.Ctrl ) <> 0 Then
    Me.Ctrl = ""
    End If
Next

[fgiambelluco]

Bonjour
Pour Access tous les éléments d'un formulaires sont des controles (zone de texte, étiquette, boutons,,..), donc il est normal d'avoir des messages d'erreur lorsque l'on essaye de vider tous les controles.

Il faut tester d'abors si le controle est une zone de texte.
Après recherche, j'ai trouvé la propriété qu'il faut tester

Code :

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

1
2
3
4
5
6
7
Ctrl.ControlType
' 109 zone de texte
' 104 bouton
' 111 combo
' 100 étiquette
' je n'ai pas recherché les autres types de contoles
'

edit: désolé jimay pour le télescopage

[Baba75AB]

Ok, je comprends mieux mon erreur, il s'agit en effet uniquement d'une dizaine de contrôles texte qui sont à prendre en compte dans mon formulaire.

109 zone de texte

Mais comment attribuer la vérification de cette propriété au sein de ma boucle ?

Merci, pour votre aide

[jimay]

re,

Code :

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

1
2
3
4
5
6
7
For Each Ctrl In Me.Controls
    If Ctrl.ControlType = 109 then
        If Len(Me.Ctrl ) <> 0 Then
            Me.Ctrl = "" 
        End If
    End If
Next

[Baba75AB]

Merci Jimay de ton aide, mais hélas, j'obtiens un msg d'erreur dès que j'ouvre mon forrmulaire : Membre de methode ou de données introuvable
Mais je pense que l'on approche du but...

[fgiambelluco]

Re
T'aurais pas oublié le

Code :

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

Dim Ctrl As Control

[jimay]

Code :

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

1
2
3
4
5
6
7
For Each Ctrl In Me.Controls
    If Ctrl.ControlType = 109 then
        If isnull(Len(Ctrl)) Then
            Ctrl = "" 
        End If
    End If
Next

j'avais mis des Me. en trop ^^

[fgiambelluco]

j'avais mis des Me. en trop ^^

J'avais même pas fait gaffe

[Baba75AB]

je viens scrupuleusement de recopier ton code dans ma procédure,
j'ai pas oublié le Dim

Code :

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

Dim Ctrl As Control

mais j'obtiens maintenant le message suivant :

Imposible d'attribuer une valeur à cet objet

Pourtant à l'instruction :

Code :

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

If isnull(Len(Ctrl)) Then

Ctrl est bien reconnue puisque le point d'arrêt se trouve sur la ligne suivante :

Code :

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

 Ctrl = ""

Je donne ma langue au chat...

[jimay]

re,

peut-être utiliser Ctrl.Value = "" au lieue de Ctrl = "" ?

[Baba75AB]

C'est super sympas Jimay de te pencher autant sur mon problème, mais je viens de faire un autre essai en déclarant le nom du contrôle contenant une chaine de caractère et de la remplacer par une chaine vide

Code :

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

me.NomCLient = ""

J'obtiens encore le même message : Imposible d'attribuer une valeur à cet objet
Mais cela proviens du fait que la source est une requête avec la jonction de 3 tables sur des champs en communs (CodeDossier, et CodeCLient)
Et que l'on ne peut modifier aucun enregistrement.
Je dois changer de stratégie :
Actuellement je lance un formulaire ou à l'aide d'une liste déroulante basée sur une requête avec un filtre sur une partie du CodeDossier
[Comme CAT*] sur ce champ...
Mais des l'ouverture de ce formulaire, comme les champs font références au champs de ma requête : ils sont chargées avec les données de la première ligne de cette requête sélection.
Donc c'est impossible de les mettre à blanc.
La nouvelle approche que je dois prendre, c'est de choisir le codeDossier à traiter à l'aide d'une liste déroulante.
Ne pas déclarer de source à ce formulaire, et de mettre des champs indépendant.
Ensuite en VBA dès le CodeDossier selectionné, remplir les champs en question à partir de la ligne provenant de la requête (le recordset ?)
Qu'en pensez-vous ? yà t'il plus simple ?

[jimay]

non, tu as raison, je pense que cette solution sera la plus simple à mettre en place
Au moins j'aurais au moins appris des trucs sur les recordsets et les sources d'enregistrements ^^


si tu as encore besoin d'aide, hésite pas

[Baba75AB]

Merci pour votre aide, et je considère le sujet 'résolu' en ce qui concerne la fonction de parcourir les contrôles d'un formulaire et de les mettre à 'blanc'

Mais juste une petite précision:j'ai crée un petit form test avec 4 contrôles textes indépendant et créer un bouton pour effacer le contenu des 4 champs.
mais cette instruction était sans effet :

Code :

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

 If isnull(Len(Ctrl)) Then

Mais ca marche impec avec cette instruction :

Code :

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

If Len(Ctrl ) <> 0 Then

Dans ce cas, j'obtiens bien mes 4 champs vide !