Discussion :

[morinxav]

Bonjour,

Je voudrais afficher dans un formulaire un listing de toutes mes tables commençant par "toto"

Un peu comme cette exemple, mais sans de message box, avec toutes les tables commançant par toto et pas seulement "toto2015"

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
 
Function TableExiste( _
  db As DAO.Database, _
  ByVal strTable As String) _
  As Boolean
  Dim tdf As DAO.TableDef
  ' Parcourir toutes les tables de la base
  For Each tdf In db.TableDefs
    If tdf.Name = strTable Then
      MsgBox ("table trouvée : " & tdf.Name)
      ' La table a été trouvée...
    End If
  Next
  ' Fin de la reherche
  MsgBox ("Fin de la recherche") 
End Function

Code :

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

1
2
3
4
 
If TableExiste(CurrentDb, "toto2015") Then
    Me.Undo
End If

Cordialement

[madefemere]

Bonsoir,

lister ? Lister dans un formulaire, qu'est-ce que tu entends par là ?
1- Tu as un formulaire tabulaire basé sur une table et tu veux que les noms des tables commençant par "toto" soient affichés dans ton formulaire ?
2- Tu as une zone de texte dans ton formulaire et tu veux que la liste des tables commençant par "toto" s'affiche dans la zone de texte ?
3- Tu as une zone de liste dans ton formulaire et tu veux que la liste des tables commençant par "toto" soit la source de ta zone de liste ?
Laquelle de ses 3 situations correspond à ton problème parce que les solutions sont différentes selon.

Cordialement,

[morinxav]

Bonjour,

Merci à madefemere d'avoir repondu.

Je veux que les noms des tables commençant par "toto" soient affichés dans mon formulaire dans une zone de liste de façon à les reprendre en paramètre plus facilement.

Cordialement

[loufab]

Bonjour,

il te faut parcourir les tables une à une et récupérer le nom de celles qui commencent par "toto". Approximativement comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim db as dao.database
dim tbl as dao.tabledef
dim listeNomTable as String
 
set db = currentdb
for each tbl in db.tabledefs
    if tbl.name like "toto*" then
       listeNomTable = iif(len(listeNomTable)>0,";","") & tbl.name 
    endif
next
 
set tbl = nothing
db.close
set db=nothing

listeNomTable doit ensuite être affecté au contenu de la liste.

Cordialement,

[morinxav]

Bonjour,

Merci à loufab

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
 
Private Sub TablesExistantes_Click()
 
Dim db As dao.Database
Dim tbl As dao.TableDef
Dim listeNomTable As String
Set db = CurrentDb
For Each tbl In db.TableDefs
    If tbl.Name Like "*2015" Then
       listeNomTable = listeNomTable & IIf(Len(listeNomTable) > 0, ";", "") & tbl.Name
       Me!List.RowSource = listeNomTable
       ListText.Value = listeNomTable
    End If
Next
Set tbl = Nothing
db.Close
Set db = Nothing
 
End Sub

Voici la solution finale pour l'afficher dans une zone de liste nommé "List" et pour l'afficher dans zone de texte nommé "ListText"

Cordialement