Requete sql select vba
eljojo_e
Messages postés
1255
Statut
Membre
-
blux Messages postés 27993 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27993 Date d'inscription Statut Modérateur Dernière intervention -
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,
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,
A voir également:
- Requete sql select vba
- Logiciel sql - Télécharger - Bases de données
- Incompatibilité de type vba ✓ - Forum Programmation
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
5 réponses
Salut,
beaucoup de confusion dans ton code.
Tu cherches à récupérer quoi, à partir de quoi, et pour en faire quoi ?
beaucoup de confusion dans ton code.
Tu cherches à récupérer quoi, à partir de quoi, et pour en faire quoi ?
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.
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.
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)...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question