Comment stocker les résultats de mon instruction select dans une variable?

Question

Mon code est le suivant. La dernière ligne me donne une erreur de compilation: "expected end of statement".

Dim strSql As String 
Dim groupId As String 

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'" 
groupId = CurrentProject.Connection.Execute strSql 

Answer 1

Vous regardez quelque chose un peu comme ce

Dim strSql As String 
Dim groupId As String 

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'" 

Dim rec As Recordset 
set rec= CurrentProject.Connection.Execute strSql 

groupId = rec(0) 

Vous devez définir les résultats de la requête à un jeu d'enregistrements, puis tirer la première valeur de ses résultats. Sans toutes les variables définies, je n'arrive pas à compiler entièrement mais cela devrait être un bon modèle pour commencer.