requete sql select vba

Question

Bonjour,   

Je souhaite faire une requête select comme ceci :  

    Dim TPTX As Recordset 
    Set data_base = CurrentDb  
    Set TPTX = data_base.OpenRecordset("T Pgm TX", dbOpenTable)   
    cTPTX = TPTX.RecordCount  ' nombre d'enregistrement  

    az = TPTX![COMMUNES]  

    TPTX.MoveFirst  

 For a = 1 To cTPTX  

sql = "SELECT [T Liste des communes].[code INSEE] FROM [T Liste des communes] WHERE [T Liste des communes].Commune =" & az & ""  


Sauf que docmd ne fonctionne pas sur une requete sql select.  

Je voudrais savoir comment récupéré le code INSEE qui en résulte.  

Merci cordialement,  
     


Configuration: Windows XP / Firefox 7.0.1

blux · Answer

Salut,

beaucoup de confusion dans ton code.

Tu cherches à récupérer quoi, à partir de quoi, et pour en faire quoi ?

eljojo_e · Answer

En faite c'est pour comparé des codes insee existant dans une table (T Pgm TX) qui a été importé d'un fichier excel à une base contenant les communes et leurs code insee qui sont exacte (T liste des communes). Comme je suis sur que l'orthographe des commune dans les 2 tables ont identique il me reste a comparer les code insee. 

sql = "SELECT [T Liste des communes].[code INSEE] FROM [T Liste des communes] WHERE [T Liste des communes].Commune =" & az & ""

az étant le nom de commune de l'enregistrement en cour après j'ai plus qu'a comparé mais j'arrive pas à executer la requete sql.

moiced59 · Answer

bonjour

Au début de ton code tu utilise un recordset fais de meme a la  place du docmd.runsql

blux · Answer

Tu peux plutôt utiliser 'dlookup', regarde l'aide et tu verras que c'est la meilleure solution à problème (pas de requête, ni de recordset)...

eljojo_e · Answer

"Au début de ton code tu utilise un recordset fais de meme a la place du docmd.runsql"

Comment sa utiliser un recorset ?

Requete sql select vba

5 réponses

Votre réponse

Discussions similaires