Bonjour et merci d'avance à toutes suggestion,
Voila mon problème est relativement simple j'ai une Base de données dans laquelle j'importe des fichiers excel dans des tables, des table de définition et des tables très large d'information à traité. Lorsque je fait une requete SELECT DISTINCT tab1.ch1 FROM tab1 WHERE tab1.ch2 not like tab2.ch2, le résultat n'est pas le même suivant l'ordre de tri des champs de la clause WHERE il est juste si la tab2 est dans l'ordre croissant, pourquoi, aucune idée, mais je voudrai créer une fonction qui en lui indiquant la table le champ et l'ordre de tri me tri la table.
J'ai essayé tout ce que je connaissais, le order by me créé inévitablement une nouvelle table, j'ai essayé cela :
Mais je ne sais pas utiliser l'objet tabledef suffisamment.
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
17
18
19
20 Function TriageField(NomTable As String, NomChamp As String, Critère As String) As Boolean Dim Base As DAO.Database Dim Table As DAO.TableDef Dim Field As DAO.Field Dim Index As DAO.Indexes Set Base = CurrentDb Set Table = Base.TableDefs(NomTable) Set Field= Table.Fielsd(NomChamp) Set Index = Table.Indexes(0) ????? Set Base = Nothing Set Table = Nothing Set Field = Nothing End Function
Quelqu'un aurait une p'tite idée ça fait 2 jours que je galère.
Cordialement Antoine.
Partager