Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Recherche de Champs

Recherche de Champs

15 réponses
Avatar
fab
Bonjour à tous !!

Voila mon probleme :

Dans notre ERP nous avons un champ et nous tentons de le retrouver sur notre
base de donnée...

Connaissez vous ue macro qui fasse cette recherche ? ou une méthode pour
retrouver rapidement ce champ sans ouvrir les bases une par une...

Merci d'avance.
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Anor
Bonjour,

fab :
| Bonjour à tous !!
|
| Voila mon probleme :
|
| Dans notre ERP nous avons un champ

C'est une base Access que tu appelles ERP ?

| et nous tentons de le retrouver
| sur notre base de donnée...

ah non, ERP = un progiciel intégré et tu as fait une petite base avec quelques champs communs ?

| Connaissez vous ue macro qui fasse cette recherche ?

Balayer tous les champs de toutes les tables de la base de données je suppose

| ou une méthode
| pour retrouver rapidement ce champ sans ouvrir les bases une par
| une...

Ah mais tu ne disais pas jusqu'à présent qu'il y avait plusieurs bases ....
je ne comprends pas ...

j'ai vu passer ce code il y a quelques jours, peut-être que ....

Sub ListerChampTable(strNomTable As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tbl = db.TableDefs(strNomTable)

For Each fld In tbl.Fields
Debug.Print fld.Name
Next fld
End Sub

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
fab
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news:
Bonjour,

fab :
| Bonjour à tous !!
|
| Voila mon probleme :
|
| Dans notre ERP nous avons un champ

C'est une base Access que tu appelles ERP ?
Non bien sur...

J'ai lié les tables de l'ERP a une base access pour faciliter la navigation
et la recherche...


| et nous tentons de le retrouver
| sur notre base de donnée...

ah non, ERP = un progiciel intégré et tu as fait une petite base avec
quelques champs communs ?


| Connaissez vous ue macro qui fasse cette recherche ?

Balayer tous les champs de toutes les tables de la base de données je
suppose

Oui c'est cela...

| ou une méthode
| pour retrouver rapidement ce champ sans ouvrir les bases une par
| une...

Ah mais tu ne disais pas jusqu'à présent qu'il y avait plusieurs bases
....

Désolé je voulai dire plusieurs tables...

je ne comprends pas ...

j'ai vu passer ce code il y a quelques jours, peut-être que ....

Sub ListerChampTable(strNomTable As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tbl = db.TableDefs(strNomTable)

For Each fld In tbl.Fields
Debug.Print fld.Name
Next fld
End Sub



Merci je vais essayer ça...

Fabien
--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------




Avatar
fab
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news:
Bonjour,

fab :
| Bonjour à tous !!
|
| Voila mon probleme :
|
| Dans notre ERP nous avons un champ

C'est une base Access que tu appelles ERP ?

| et nous tentons de le retrouver
| sur notre base de donnée...

ah non, ERP = un progiciel intégré et tu as fait une petite base avec
quelques champs communs ?


| Connaissez vous ue macro qui fasse cette recherche ?

Balayer tous les champs de toutes les tables de la base de données je
suppose


| ou une méthode
| pour retrouver rapidement ce champ sans ouvrir les bases une par
| une...

Ah mais tu ne disais pas jusqu'à présent qu'il y avait plusieurs bases
....

je ne comprends pas ...

j'ai vu passer ce code il y a quelques jours, peut-être que ....

Sub ListerChampTable(strNomTable As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tbl = db.TableDefs(strNomTable)

For Each fld In tbl.Fields
Debug.Print fld.Name
Next fld
End Sub



Euh ! C'est de l'access ça ???

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------




Avatar
Anor
Bonjour,

fab :

|| Sub ListerChampTable(strNomTable As String)
|
| Euh ! C'est de l'access ça ???
||


oui pourquoi ?
Tu peux aussi essayer
http://memoaccess.free.fr/tables.htm#ListFields

à exécuter depuis la fenêtre Visual Basic Editor de Microsoft Access.

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
fab
C'est ce que je faisai mais a la ligne : 'Dim dbs As DAO.Database' je
tombe sur l'erreur :

"Type défini par l'utilisateur non défini."



Merci de ton aide.

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news: u#
Bonjour,

fab :

|| Sub ListerChampTable(strNomTable As String)
|
| Euh ! C'est de l'access ça ???
||


oui pourquoi ?
Tu peux aussi essayer
http://memoaccess.free.fr/tables.htm#ListFields

à exécuter depuis la fenêtre Visual Basic Editor de Microsoft Access.

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------




Avatar
Anor
Bonjour,

fab :
| C'est ce que je faisai mais a la ligne : 'Dim dbs As DAO.Database'
| je tombe sur l'erreur :
|
| "Type défini par l'utilisateur non défini."
|
|
|
| Merci de ton aide.
|

excuse : il faut que la référence microsoft dao 3.6 soit cochée
(depuis le module, outils > références)

dao 3.5 pour access97

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Avatar
fab
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news:
Bonjour,

fab :
| Bonjour à tous !!
|
| Voila mon probleme :
|
| Dans notre ERP nous avons un champ

C'est une base Access que tu appelles ERP ?

| et nous tentons de le retrouver
| sur notre base de donnée...

ah non, ERP = un progiciel intégré et tu as fait une petite base avec
quelques champs communs ?


| Connaissez vous ue macro qui fasse cette recherche ?

Balayer tous les champs de toutes les tables de la base de données je
suppose


| ou une méthode
| pour retrouver rapidement ce champ sans ouvrir les bases une par
| une...

Ah mais tu ne disais pas jusqu'à présent qu'il y avait plusieurs bases
....

je ne comprends pas ...

j'ai vu passer ce code il y a quelques jours, peut-être que ....

Sub ListerChampTable(strNomTable As String)
Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tbl = db.TableDefs(strNomTable)

For Each fld In tbl.Fields
Debug.Print fld.Name
Next fld
End Sub

Re !


Faut il entrer un parametre ?

Qu'apporte de plus le code mis en ligne à http://memoaccess.free.fr que tu
m'a donné ?


--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------




Avatar
fab
Je te remercie je me suis débrouillé avec mes ptites connaissances...

Merci encore

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news:
Bonjour,

fab :
| C'est ce que je faisai mais a la ligne : 'Dim dbs As DAO.Database'
| je tombe sur l'erreur :
|
| "Type défini par l'utilisateur non défini."
|
|
|
| Merci de ton aide.
|

excuse : il faut que la référence microsoft dao 3.6 soit cochée
(depuis le module, outils > références)

dao 3.5 pour access97

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------





Avatar
jipidi
il suffit d'ouverir toutes les tables par programmartion
et de rechercher le champ corrrespondant
dim db as database
dim td as tabledef
set db=currentdb
dil fld as field
for each td in db.tabledefs
for each fld in td.fields
if fld.nameÎlui_recherche then ....
goto fin
endif
next

next ' fin de boucke des tables

fin:
exit
-----Message d'origine-----
Bonjour à tous !!

Voila mon probleme :

Dans notre ERP nous avons un champ et nous tentons de le
retrouver sur notre

base de donnée...

Connaissez vous ue macro qui fasse cette recherche ? ou
une méthode pour

retrouver rapidement ce champ sans ouvrir les bases une
par une...


Merci d'avance.


.



Avatar
Anor
Bonjour,

fab :
| Je te remercie je me suis débrouillé avec mes ptites connaissances...
|
| Merci encore
|

et quelles sont-elles ?
tu pourrais peut-être en faire profiter les autre lecteurs...

--
à+
Arnaud
--------------------------------------------------
*Avant toute chose* : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
1 2