pb requete SQL dans VBA

Question

Bonjour,

Je souhaite effectuer une requete qui selectionne une varibale et la stocke dans une variable temporaire. Le problème c'est que je fais afficher un message pour vérifier que ma requete fonctionne et ca ne marche pas:
Voici mon code :

Private Sub Command14_Click()

Dim v_param As String
Dim sql As String

--je vais chercher une variable dans la table LABTEST... pour un parametre présent dans mon formulaire --

sql "SELECT PARAM into v_param From LABTEST_LOINC_ALL where PARAM '" & Me.PARAM & "'"
DoCmd.RunSQL (sql)

if v_param = "" then
message = MsgBox("Parametre dans le CRF est " & Me.PARAM & " et LOINC est " & v_param & "", vbOKOnly)
Exit Sub
end if...

Je vous remercie d'avance pour votre aide c'est super urgent !

Merci !

Simouss33 · Answer

C'est normal que rien ne s'affiche, la variable v_param n'a pas &#233;t&#233; initialis&#233;e et donc elle doit &#234;tre &#233;gale &#224; Nothing et pas &#224; une chaine vide.

Pour v&#233;rifier si ta requ&#234;te renvoie quelque chose utilise plut&#244;t un objet Recordset

cs_meldu06 · Answer

Ok alors j'ai fait ca mais ca ne marche toujours pas :

Private Sub Command14_Click()

Dim mabase As DAO.Database
Dim v_param As DAO.Recordset
Dim rs As Recordset
Dim sql As String

v_param = ""


mabase = CurrentDb()
sql "SELECT PARAM into v_param From LABTEST_LOINC_ALL where PARAM '" & Me.PARAM & "'"
Set rs = mabase.OpenRecordset(sql, OpenSnapshot)

message = MsgBox("Parametre dans le CRF est " & Me.PARAM & " et LOINC est " & v_param & "", vbOKOnly)
  rs.Close

Exit Sub

Merci pour ton aide !

nanou1605 · Answer

Salut

je suppose que tu es sous access.

Tu peux travailler comme ça : 

(Objet recordset comme l'a dit Simouss33)

Dim rs As ADODB.Recordset
Dim strsql as String
Dim v_param As String

strsql "SELECT PARAM From LABTEST_LOINC_ALL where PARAM '" & Me.PARAM & "'"
Set rs = CurrentProject.Connection.Execute(strSql)

If Not rs.EOF Then
  v_param = rs(1).Value  'ou rs("PARAM").value
End if
 
if v_param = "" then
message = MsgBox("Parametre dans le CRF est " & Me.PARAM & " et LOINC est " & v_param & "", vbOKOnly)
Exit Sub
end if

rs.CLose


Voila.

Mais il me semble que ta requête doit ramener un autre champs que PARAM mais plutôt LOINC  :
strsql "SELECT ???? From LABTEST_LOINC_ALL where PARAM '" & Me.PARAM & "'"

@+ 
Seb

cs_meldu06 · Answer

Oh génial !!!!
Ca marche merci beaucoup c'est vraiment super sympa !

A ++

Pb requete SQL dans VBA

4 réponses

Discussions similaires