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
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
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 ?
exact et dsl c vrai que ce n'est aps clair de ma part...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 IdTable=dlookup("IdTable","Tables","nomtable='Acces' AND IdBase=3")
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")
Car malheureusement je débute ne VBA et ne connaissait pas...Pkoi ne pas utiliser un RecordSet ?
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...
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)
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
donc, tu as bien testé ma solution ...
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...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager