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

5 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 :
| Re !
|
| Faut il entrer un parametre ?
|
| Qu'apporte de plus le code mis en ligne à http://memoaccess.free.fr
| que tu m'a donné ?

de ne pas avoir besoin d'entrer le nom de la table en paramètre,
puisque toutes les tables "normales" et tables attachées sont passées en revue

--
à+
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
Rien de plus pour l'instant j'ai seulement compris comment le scipt
marchait...

Quand j'aurai fini je posterai mon travail...

@pluche


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news: #TI#
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/
--------------------------------------------------




Avatar
3stone
Salut,

"jipidi"
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




Un "goto machin" pour sortir d'une double boucle imbriquée
et un If Then... n'est pas le genre d'exemple enrichissant à donner...

amha


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Avatar
fab
Sub ListFields()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim MaBase As New ADODB.Recordset

Set MaBase = Nothing
Set dbs = CurrentDb


MaBase.Open "Dico", CurrentProject.Connection, adOpenDynamic,
adLockOptimistic

Rem MsgBox MaBase("Table")

For Each tdf In dbs.TableDefs
For Each fld In tdf.Fields
MaBase.AddNew
MaBase("Table") = tdf.Name
MaBase("Champ") = fld.Name
MaBase.Update
Rem Debug.Print tdf.Name & " -- " & fld.Name
Next fld
Next tdf
MaBase.Close

Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
Set MaBase = Nothing


End Sub

Voila le code que j'utilise pour copier les champs dans une table DICO crée
précédement...


Voila @pluche et merci pour tout


"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message
news: #TI#
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/
--------------------------------------------------




Avatar
Anor
Bonjour fab
c'est nous qui te remercions d'avoir tenu ta promesse ;-)

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

fab :
| Sub ListFields()
| Dim dbs As DAO.Database
| Dim tdf As DAO.TableDef
| Dim fld As DAO.Field
| Dim MaBase As New ADODB.Recordset
|
| Set MaBase = Nothing
| Set dbs = CurrentDb
|
|
| MaBase.Open "Dico", CurrentProject.Connection, adOpenDynamic,
| adLockOptimistic
|
| Rem MsgBox MaBase("Table")
|
| For Each tdf In dbs.TableDefs
| For Each fld In tdf.Fields
| MaBase.AddNew
| MaBase("Table") = tdf.Name
| MaBase("Champ") = fld.Name
| MaBase.Update
| Rem Debug.Print tdf.Name & " -- " & fld.Name
| Next fld
| Next tdf
| MaBase.Close
|
| Set fld = Nothing
| Set tdf = Nothing
| Set dbs = Nothing
| Set MaBase = Nothing
|
|
| End Sub
|
| Voila le code que j'utilise pour copier les champs dans une table
| DICO crée précédement...
|
|
| Voila @pluche et merci pour tout
1 2