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

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

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

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:

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:

? 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 ! :merci:

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

13/04/2006, 10h27
loufab

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.
13/04/2006, 10h28
random

tu as ajouté la ref dao à ton projet ?
13/04/2006, 10h29
loufab

Citation:

Envoyé par random

tu as ajouté la ref dao à ton projet ?

A ce stade du tuto le DAO est depuis longtemps obligatoire. :wink:
13/04/2006, 10h51
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:

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

Peux-tu m'aider ?
13/04/2006, 11h07
random

Citation:

Envoyé par loufab

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

pardonje ne pouvais pas savoir
(ici smiley avec sourire)

Citation:

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:

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

Peux-tu m'aider ?
Code:

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

13/04/2006, 11h33
KEROZEN

Merci caféine pour tes précisions, mais VB m'affiche toujours le même message d'erreur ... :ouin:
13/04/2006, 11h34
cafeine

Oui, certes, mais que donne le debug.print ?
13/04/2006, 11h37
KEROZEN

le debug.print me renvoie le nom de la table dans la fenêtre d'exécution
13/04/2006, 11h45
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
13/04/2006, 11h49
KEROZEN

Dans la fenêtre d'exécution ou dans le code ?
13/04/2006, 11h52
random

dans le code après la définition de la collection tbl
13/04/2006, 11h59
KEROZEN

Désolé, mais VB m'indique "Attendu : fin d'instruction" et semble pointer sur la fenêtre d'exécution.
13/04/2006, 12h00
cafeine

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

Voici le code :

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

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

Merci à tous pour votre aide.

Code:

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

13/04/2006, 13h35
KEROZEN

:oops: Oups !

J'ai apporté la correstion mais le message reste le même : "Attendu : fin d'instruction"...
13/04/2006, 14h38
loufab

Je ne comprend pas pourquoi après

Code:

parcourt.Name,

Tu fais l'affectation suivante ?

Code:

parcourt.Name = lfNameTbl
13/04/2006, 14h42
KEROZEN

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

Citation:

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

Voir 40 message(s) de cette discussion en une page