cs_CCelia
Messages postés15Date d'inscriptionmardi 22 avril 2008StatutMembreDernière intervention24 avril 2008
-
22 avril 2008 à 15:54
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
23 avril 2008 à 16:00
bonjour a tous,
est ce que quelqu'un c'est comment faire pour afficher dans la liste déroulante d'un formulaire, la liste des tables de la base de données su laquelle on travaille.
J'ai réussi en entrant le nom des tables comme liste de valeurs mais j'ai ensuite une requête à éxécuter à partir de ces tables et sa ne fontionne pas car je pense qu'il ne reconnait que les valeurs que j'ai tapé comme des tables.
merci.
A voir également:
Afficher les tables d'une base de données dans la liste déroulante d'un formulai
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 avril 2008 à 13:31
Private Sub Form_Load()
Dim sBuffer As String
Dim oTable As TableDef
For Each oTable In CurrentDb.TableDefs
If LenB(sBuffer) Then
sBuffer = sBuffer & ";"
End If
sBuffer = sBuffer & oTable.Name
Next oTable
Modifiable0.RowSourceType = "Value List"
Modifiable0.RowSource = sBuffer
End Sub
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 avril 2008 à 11:45
dans la fenetre VBA (celle où tu saisi le code)
Outils > References > Microsoft DAO 3.6 Object Library
tu pourras ainsi jouer avec CurrentDB, TableDef et TableDefs....
et utiliser le code suivant :
Private Sub Form_Load()
Dim oTable As TableDef
Modifiable4.RowSourceType = "Value List"
For Each oTable In CurrentDb.TableDefs
Modifiable4.AddItem oTable.Name
Next oTable
End Sub
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 avril 2008 à 11:18
Arretes de valider toutes les réponses, ca marque ton probleme comme résolu...
ce qui fait que personne d'autre (a priori) ne viendra t'aider, si eventuellement ton probleme persiste.
de plus, valider toutes les reponses reviens a n'en valider aucune, on ne voit pas, au premier coup d'oeil la (ou les) réponse qui t'ont aidé a solutionner ton probleme
cs_CCelia
Messages postés15Date d'inscriptionmardi 22 avril 2008StatutMembreDernière intervention24 avril 20081 23 avril 2008 à 11:35
dsl je en connais pas trople fonctionnement des réponses à valider c'est la première fois que j'utilise ce site.
pour le pb de vb
voila ce que j'ai mis dans ma liste modifiable propriétés>événement >sur clic (car je netrouve pas sur clic au chargement)
Option Compare Database
Option Explicit
Private Sub Modifiable4_Click()
Dim oTable As TableDef
For Each oTable In CurrentDb.TableDefs
Modifiable4.AddItem oTable.Name
Next oTable
End Sub
mais il me dit membre de méthode ou données introuvable.
dsl je ne fais pas de la vb depuis très longtemps alior j'ai un peu d mal
cs_CCelia
Messages postés15Date d'inscriptionmardi 22 avril 2008StatutMembreDernière intervention24 avril 20081 23 avril 2008 à 13:06
Private Sub Form_Load() il me surligne en jaune toute cette ligne
Dim oTable As TableDef
Modifiable4.RowSourceType = "Value List"
For Each oTable In CurrentDb.TableDefs
Modifiable4.AddItem oTable.Name et sur cette ligne me surligne en gris AddItem
Next oTable
End Sub
regarde sur ce lien on diré kil y a la meme erreur que moi mais unE des personnes dit d'utiliser une autre méthode peut-être sais tu quelle autre méthode utilisée?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 23 avril 2008 à 15:04
oui, il s'agit simplement de tester les quatres premières lettres de oTable.Name ...
For Each oTable In CurrentDb.TableDefs
If Left$(oTable.Name, 4) <> "MSys" Then
If LenB(sBuffer) Then
sBuffer = sBuffer & ";"
End If
sBuffer = sBuffer & oTable.Name
End If
Next oTable