Discussion :

[SGS75]

Bonjour !
Je suis alternante dans un labo et j'ai une base avec 11 tables.
Je dois récupérer une colonne qui est commune à chaque table mais je ne vois pas comment faire. Je sais le faire sur une table mais je ne vois pas comment parcourir toutes les tables...
J'ai voulu tenter une procédure mais quand je regarde son principe sur l'aide de Microsoft il dit que Access ne prend pas en compte ce type d'outils...

Quelqu'un pourrait-il m'aider svp ^^ ?
Merci !
Bonne journée

[nico84]

Bonjour,

"Récupérer" ça ne veut pas dire grand chose, pour en faire quoi ?

On peut parcourir toutes les tables grace à la table interne tabledefs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim tbd As DAO.TableDef, fld As DAO.Field
For Each tbd In current.TableDefs
  For Each fld In tbd.Fields
    msgbox tbd.name & "." & fld.Name
Next: Next

[SGS75]

Bonjour et merci de bien vouloir m'aider.
Je vais mieux m'exprimer ce sera plus simple x) !

Dans chaque table contenant chacune des produits, y a la colonne "dateExpiration", avec cette colonne j'utilise la fonction DateDiff pour savoir les produits ayant un nombre de jours restants avant expiration <= 31. Par la suite, je souhaite créer un formulaire qui va répertorier tous les produits respectant cette condition. J'ai réussi à le faire en faisant une requête/table et donc un formulaire/table mais je trouve que c'est bof...j'aurai voulu l'optimiser ^^ !

Merci pour ton exemple mais j'aurai une autre question qui peut paraître bête...comment fait-on pour utiliser les procédures sous Access ? Faut-il créer un module ? ou un évènement sur le formulaire ? Je n'ai utilisée les procédures qu'avec Oracle donc sur Access je vois pas comment faire pour les exécuter...

Merci !
Bonne journée

[hyperion13]

Salut,
Il vous faut aller dans l'environnement vba de votre bdd Acc, raccourci clavier (Alt F11) ou onglet Outils base de données - Visual basic
Vous pouvez associer la proc sur un évènement.
Dans l'exemple corrigé, la proc est associé à l'évènement sur click() d'un bouton de commande.

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
Private Sub Commande7_Click()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
 
Set dbs = CurrentDb()
 
For Each tdf In dbs.TableDefs
    If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*") Then
        For Each fld In tdf.Fields
        MsgBox tdf.Name & "." & fld.Name
        Next
    End If
Next
 
Set dbs = Nothing
End Sub

[hyperion13]

Concernant vos 11 tbl, sont-elles en relation les unes avec les autres ? Éventuellement faire une capture d'écran de la fenêtre des relations.
Sinon votre approche avec DiffDate() est correcte.
Peut-être pourriez-vous en place une MFC sur votre champ calculé DiffDate()

[SGS75]

Merci beaucoup pour votre réponse !
Alors nan les tables ne sont pas liées entre elles...
C'est une base datant de 2001 donc y a pas mal de fichiers qui ne servent plus mais j'ose pas y toucher lol !

J'ai un autre problème...en parcourant chaque table de la base je souhaite y effectuer une requête SQL.
Voici le code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub TestFessy()
Dim i As Integer
 
Dim tsql As String
 
Dim rs As Recordset
 
    For i = 0 To CurrentDb.TableDefs.Count - 1
 
    'il faut enlever les tables systèmes
 
    If Not (CurrentDb.TableDefs(i).Name Like "MSys*" Or CurrentDb.TableDefs(i).Name Like "~*") Then
 
    Debug.Print CurrentDb.TableDefs(i).Name
 
    'Exemple de génération de requête de sélection avec le nom de la table et test de sélection sur date
 
    tsql = "SELECT Noms FROM " & CurrentDb.TableDefs(i).Name & " Where Noms = Coca;"
 
    Set rs = CurrentDb.OpenRecordset(tsql)
 
    Do While Not rs.EOF
 
        Debug.Print rs!dateCreation
 
        rs.MoveNext
 
        Loop
 
    End If
 
    Next i
End Sub

Au debuggage, j'ai l'erreur "trop peu de paramètres etc..." et ça me surligne "Set rs = CurrentDb.OpenRecordset(tsql)" pourtant c'est bon nan ? J'ai pas forcément besoin de mettre les arguments option, type, lockedit si ? D'ailleurs même quand je les mets ça bug donc...

[marot_r]

Bonjour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT Noms FROM [" & CurrentDb.TableDefs(i).Name & "] Where Noms = ""Coca"";"

En Access les delimiteurs sont :

• Pour les textes : les guillemets (") ou l'apostrophe (').
  Quand tu utilises les guillemets dans une chaine, il faut les doubler.
• Pour les dates : le diese (#).
  Personnellement je mets toujours mes dates au format AAAA-MM-JJ meme si le format interne de Access est MM-JJ-AAAA car je trouve que cela evite la confusion entre le mois et le jour.
• Pour les autres : pas de delimiteur

Note aussi que les solutions SQL sont generalement plus performantes que celle en VBA.

A+