Discussion :

[Boubas1]

Bonjour,

Je voulais savoir s'il existait 1 manipulation afin d'effectuer 1 seule recherche globale pour retrouver 1 montant précis dans tout le contenu d'une grosse base access, cad tables, formulaires, requetes... Merci.

[Jean-Philippe André]

hello,
est-ce de cela que tu parles ?
http://www.developpez.net/forums/d43...tadata-access/

[Boubas1]

Bonjour,

En fait, ce n'est pas 1 base à moi donc je ne cherche pas à la modifier. Mais j'ai quand même accès à ses tables, requetes...Donc j'ai 1 écart comptable, donc est-ce possible d'effectuer une recherche globale sans avoir à ouvrir chaque table, requetes, etats... car il y a en énormément dans cette base ?

[Jean-Philippe André]

n'est-ce pas en contradiction avec ton post initial ?

Doit-on oui ou non parcourir tous les éléments de la base pour trouver ce qu'on veut ?

[Boubas1]

Oui, en fait ce que je veux dire, c'est que je voudrais que la recherche parcoure tous les éléments de la base, sans que j'ai à tatonner et à ouvrir manuellement (à double cliquer) pour retrouver mon chiffre en question. Je voudrais que la recherche m'indique directement la table, requete...qui contient mon chiffre en question, pour que je puisse l'ouvrir ensuite manuellement, est ce que je suis clair ?

[Jean-Philippe André]

certes, mais chercher un chiffre dans une table, ce n'est pas comme si Access était basé là dessus
Mais si tu veux chercher un "0.1" dans une table en particulier, faut partir sur ce principe de requête dans une table...

Chercher une valeur dans tous les champs de toutes les tables n'aurait pas du arriver si l'tude initiale était bonne

Autre exemple, en vba cette fois,j et là tu vois que c'est "bourrin"

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
Dim tempotab As TableDef
Dim tempofld As Field
Dim strSQL as String
Dim RS as DAO.RecordSet
For each tempotab in CurrentDb.TableDefs
strSQL = "SELECT * FROM [" & tempotab.Name & "];"
set RS = CurrentDb.OpenRecordSet(strSQL)
Do Until RS.EOF
For Each tempofld in RS.Fields
   If RS.Fields(tempofld.Name).Value= 'ce que je cherche, et encore, gros soucis selon le type de champ... Then
         MsgBox "trouvé dans la table " & tempotab.Name & ", dans le champ " & tempofild.Name
   End If
next
RS.MoveNext
Loop
Next

[Boubas1]

Apparemment, la fonction "rechercher" dans le menu Fichier de la base ne permet pas ce que je veux, c'est dommage...