Discussion :

[Thauglor]

je voudrais dans ma variable

IdTable mettre le resultat de la requete

select IdTable from Tables where nomtable="Acces" et IdBase=3;

structure de la tables Tables :

IdTable : numauto
Idbase : num
NomTable : texte

[Rcanada]

Je ne suis pas sur d'avoir bien compris : tu as 2 idTable différents : l'un est un champs de ta table Table, l'autre est une variable VBA ?

[Thauglor]

exact et dsl c vrai que ce n'est aps clair de ma part...

[Maxence HUBICHE]

Code :

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

1
2
 
IdTable=dlookup("IdTable","Tables","nomtable='Acces' AND IdBase=3")

[Rcanada]

Pkoi ne pas utiliser un RecordSet ?

Code :

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

1
2
3
4
5
6
7
8
 
Dim Qry As DAO.QueryDef
Dim rs As DAO.Recordset
Set Qry = CurrentDb.QueryDefs("nom_requete")
 
Set rs = Qry.OpenRecordset
 
idTable = rs("IdTable")

[Thauglor]

Pkoi ne pas utiliser un RecordSet ?

Car malheureusement je débute ne VBA et ne connaissait pas...

En cherchant dans les sources et les faqs je venais de trouver son existence...

La requete n'existe pas dans ma base elle n'existe que dans mon code VBA c'est pourquoi ta solution ne peut convenir...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
LibelleTable = Table.Name
    'Set res = CurrentDb.OpenRecordset("SELECT IDTABLE FROM TABLES WHERE LIBELLE=" & MAJTexte(LibelleTable) & "AND IDBASE=" & MAJTexte(IdBase))
    'IdTable = res("IdTable")
    'If (IdTable = "") Then
      'Alors ajout de la table dans la base de statistiques
      BdDeTravail.Execute "INSERT INTO TABLES(IDBASE,LIBELLE) VALUES (" & _
            MAJTexte(IdBase) & "," & _
            MAJTexte(LibelleTable) & ")"
      Set res = CurrentDb.OpenRecordset("SELECT IDTABLE FROM TABLES WHERE LIBELLE=" & MAJTexte(LibelleTable) & "AND IDBASE=" & IdBase)
      IdTable = res("IDTABLE")
    'End If
    Set res = Nothing

voila comment je m'en suis sorti... Mon probleme est que je veu tester si cet enregistrement existe deja... Et je ne sais aps comment faire (les commentaires sont mes essais)

[Maxence HUBICHE]

donc, tu as bien testé ma solution ...

[Thauglor]

en fait je repondais quand tu l'as poster et donc je ne l'ai pas vu...

je vien de la voir...

en tout cas ca marche now...

Je vien donc de faire un module me permettant de stocker dans une base

différentes structures de bases a savoir leur champs et leur tables en fonction du chemin d'acces de cette base...