[VBA-A]Un code pour récupérer un type de donnée

Bonjour,

Je tente actuellement de développer une application Access pour mon boulot (je ne suis pas développeurs). Afin d'y insérer un outil de recherche réellement puissant, j'ai suivi un tutoriel très didactique et plutôt clair ( :wink: loufab). Seulement voila, j'en suis à la partie où il s'agit de rentrer du code VB pour déterminer un type de donnée dans une des tables du projet.

Et là ... patatra ! VB m'indique systématiquement la même erreur et ce malgré plusieurs modification du code sur les conseils de plusieurs autres membres du forum Access. Le message est : "élément non trouvé dans cette collection" et pointe sur la ligne :

Code:

---

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

---

Je me permets donc de vous soumettre le code en question pour que vous puissiez me dire ce qui semble clocher

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 = lfNameTbl 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 l'instruction qui est placé dans la fenêtre d'exécution

Code:

---

lf_GetTypeField("Saisie_des_operations", "Nom_titulaire")

---

Quelqu'un peut-il me venir en aide ? J'aurais besoin d'avancer assez rapidement sur cette application.
Merci par avance.

Désolé, il y a longtemps que je n'ai pas fait d'Access et ma dernière utilisation était en Access 97.

Je n'y utilisais donc pas ADO.

Voici comment j'ouvrais mes tables, à l'époque.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim WS As Workspace Dim DBIsa As Database, DBHead As Database Dim TIsa As Recordset, THead As Recordset, TTci As Recordset Dim TTemp As Recordset Set WS = DBEngine(0) Set DBIsa = WS.OpenDatabase(IsaPath) Set DBHead = WS.OpenDatabase(HeadPath) Set TIsa = DBIsa.OpenRecordset("Isabel") Set TTemp = DBIsa.OpenRecordset("Temp") Set THead = DBHead.OpenRecordset("Head_Off") Set TTci = DBHead.OpenRecordset("Tci")

---

On ne sait jamais que ça te donne une piste...

Merci quand même.

Mais cela ne semble pas fonctionner. :ouin:

Elle est bizarre, ta fonction : elle ne retourne rien !?!??
Quand tu écris une fonction, tu dois bien mettre:
Function Blabla(param1 As ???, param2 As ???) As String
Enfin, String, par exemple...

Dans ce cas-là, la fonction renvoie un Variant.

Pour être tout à fait honnête, je suis (très) novice en programmation ... mais je me soigne ! 3 pages de code matin, midi et soir pendant 3 mois :lol:

Plus sérieusement, je ne peux ni confirmer ni contre argumenter ce que tu dis Megaxel ... En fait, si j'ai bien compris la structure ou plutôt le cheminement de ce code, il s'agit, dans un premier temps de déclarer les variables (Dim) puis "d'ouvrir" l'objet table pour enfin en lire le type de donnée au niveau du champ prédéterminé.

Malheureusement, mes connaissances très limitées ne me permettent pas d'en comprendre davantage ... et donc encore moins de débuguer ce code.