Un code VBA pour récupérer un type de donnée ?

**KEROZEN** · 13/04/2006, 10h20

Bonjour à tous,

J'ai encore une question de débutant pour vous !

Voila, je suis en prise avec un excellent tutoriel publié sur ce même site permettant de créer un formulaire de recherche multi-critères (merci à son auteur, Fabrice CONSTANS).

J'en suis à la partie où il s'agit de rentrer du code VB dans un module pour déterminer le type de données entrées dans une table.

J'ai donc insérer le code suivant dans un module :

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
Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String)
' Renvoie le numéro du type du champ
'lfNameTbl = nom de la table
'lfNameFld = nom du champ
 
    Dim dbs As Database             ' Objet de la base
    Dim tbl As TableDef             ' Objet de définition de table
 
    Set dbs = CurrentDb             ' ouvre la base courante
    Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table
 
    lf_GetTypeField = tbl.Fields(lfNameFld).Type  ' renvoie le type de champ
 
    Set tbl = Nothing               ' libération des objets
    Set dbs = Nothing
 
End Function

... puis dans la fenêtre d'exécution VB j'ai placé l'instruction :

Code :

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

? If_GetTypeField("Matable", "Monchamp")

J'ai bien entendu pensé à remplacer dans le code et l'instruction les termes Matable et Monchamp par les données appropriées. Malgré tout, voici le message d'erreur produit :

"Erreur de compilation : Sub ou Function non définie"

Quelqu'un(e) voit-il quelque chose dans le code ou l'instruction qui puisse générer cette erreur ?

Merci pour vos réponses !

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

**loufab** · 13/04/2006, 10h27

Bonjour et merci d'utiliser mon tuto.

Attention il s'agit de la fonction nommé LF_get... et non iF_get... comme l'appel que tu fais.

Les majuscules ne sont pas significative mais c'est pour t'indiquer l'erreur.

Cordialement,

PS : n'oublie pas les balises Code lorsque tu postes du code c'est plus lisible.

**random** · 13/04/2006, 10h28

tu as ajouté la ref dao à ton projet ?

**loufab** · 13/04/2006, 10h29

Envoyé par random

tu as ajouté la ref dao à ton projet ?

A ce stade du tuto le DAO est depuis longtemps obligatoire.

**KEROZEN** · 13/04/2006, 10h51

Merci pour ta réponse loufab !

J'ai apporté les corrections mais VB m'indique une autre erreur :
"Erreur 3265 / Elément non trouvé dans cette collection" et pointe sur la ligne :

Code :

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

Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table

Peux-tu m'aider ?

**random** · 13/04/2006, 11h07

Envoyé par loufab

A ce stade du tuto le DAO est depuis longtemps obligatoire. :wink:

pardonje ne pouvais pas savoir
(ici smiley avec sourire)

**cafeine** · 13/04/2006, 11h11

Envoyé par KEROZEN

Merci pour ta réponse loufab !

J'ai apporté les corrections mais VB m'indique une autre erreur :
"Erreur 3265 / Elément non trouvé dans cette collection" et pointe sur la ligne :

Code :

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

Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table

Peux-tu m'aider ?

Code :

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

1
2
3
4
5
6
    Dim dbs As DAO.Database             ' Objet de la base
    Dim tbl As DAO.TableDef             ' Objet de définition de table
 
    Debug.Print "la table est : " & lfNameTbl
    Set dbs = CurrentDb             ' ouvre la base courante
    Set tbl = dbs.TableDefs(lfNameTbl)  ' ouvre la définition table

**KEROZEN** · 13/04/2006, 11h33

Merci caféine pour tes précisions, mais VB m'affiche toujours le même message d'erreur ...

**cafeine** · 13/04/2006, 11h34

Oui, certes, mais que donne le debug.print ?

**KEROZEN** · 13/04/2006, 11h37

le debug.print me renvoie le nom de la table dans la fenêtre d'exécution

**random** · 13/04/2006, 11h45

ajoute cette boucle
dim parcourt as variant
for each parcourt in tbl
debug.print parcourt.name, parcourt.name=lfNameTb
next parcourt
tu devrais trouver ton erreur

**KEROZEN** · 13/04/2006, 11h49

Dans la fenêtre d'exécution ou dans le code ?

**random** · 13/04/2006, 11h52

dans le code après la définition de la collection tbl

**KEROZEN** · 13/04/2006, 11h59

Désolé, mais VB m'indique "Attendu : fin d'instruction" et semble pointer sur la fenêtre d'exécution.

**cafeine** · 13/04/2006, 12h00

Montre nous le code, il y a peut être une erreur de frappe ou autre coquille ...

**KEROZEN** · 13/04/2006, 13h00

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
Option Compare Database
Function lf_GetTypeField(lfNameTbl As String, lfNameFld As String)
' Renvoie le numéro du type du champ
'lfNameTbl = nom de la table
'lfNameFld = nom du champ
 
    Dim dbs As DAO.Database                            ' Objet de la base
    Dim tbl As DAO.TableDef                            ' Objet de définition de table
 
    Debug.Print "la table est : " & lfNameTbl
    Set dbs = CurrentDb                            ' ouvre la base courante
    Set tbl = dbs.TableDefs(lfNameTbl)             ' ouvre la définition table
    Dim parcourt As Variant
    For Each parcourt In tbl
    Debug.Print parcourt.Name, parcourt.Name = lfNameTb
    Next parcourt
 
 
    lf_GetTypeField = tbl.Fields(lfNameFld).Type   ' renvoie le type de champ
 
    Set tbl = Nothing                              ' libération des objets
    Set dbs = Nothing
 
End Function

Et voici les lignes insérées dans la fenêtre d'exécution :

Code :

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

1
2
? lf_GetTypeField("Saisie_des_operations", "Nom_titulaire")
la table est : Saisie_des_operations

Merci à tous pour votre aide.

**loufab** · 13/04/2006, 13h28

Code :

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

1
2
3
4
    Dim parcourt As Variant 
    For Each parcourt In tbl 
         Debug.Print parcourt.Name, parcourt.Name = lfNameTb  'il manque le L de la fin
    Next parcourt

**KEROZEN** · 13/04/2006, 13h35

Oups !

J'ai apporté la correstion mais le message reste le même : "Attendu : fin d'instruction"...

**loufab** · 13/04/2006, 14h38

Je ne comprend pas pourquoi après

Code :

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

parcourt.Name,

Tu fais l'affectation suivante ?

Code :

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

parcourt.Name = lfNameTbl

**KEROZEN** · 13/04/2006, 14h42

J'ai utilisé la partie du code que l'on m'a conseillé :

Envoyé par random

ajoute cette boucle
dim parcourt as variant
for each parcourt in tbl
debug.print parcourt.name, parcourt.name=lfNameTb
next parcourt
tu devrais trouver ton erreur

Un code VBA pour récupérer un type de donnée ?

VBA Access

Discussions similaires

Partager

Partager