Discussion :

[soussou92]

Voila je m'explique, j'ai un souci car j'ai un formulaire avec des listes ou lorsque je selectionne quelque chose dans la liste cela doit m'executer une requete
je pense avoir trouver le bon moyen mais cependant la requete ne s'execute pas
je vous montre le code car je suis dessus depuis un bon moment et pas moyen de trouver le probleme
Si quelqu'un voit où est l'erreur ça serait cool

Dim strMsg As String
Dim inc, i As Long
Dim test As String
Dim q, q2 As String
Dim n As Long
Dim maDb As DAO.Database
Dim rs, rq As DAO.Recordset
'Dim qdReq As QueryDef

Set maDb = CurrentDb()
inc = Me!LstMateriel.Column(2)
test = Me!LstMateriel.Column(1)
n = inc
i = 1
Select Case inc
Case i To n
'ouverture d'un recordset pour recuperé les valeurs
Set rs = maDb.OpenRecordset("select * from TblType")
q2 = rs!Type_Materiel
MsgBox q2 'on recupere bien la valeur voulu
'comparaison permettant d'entrer dans la boucle
If q2 = Me.LstTypeMateriel Then
Set qdReq = maDb.CreateQueryDef(lulu, "SELECT * FROM Rqt115_Volume_Stock_Neuf_NDL_Last_Sabrina WHERE [Hiérarchie découpe matériel (financier)] Like'" & q2 & "';")
MsgBox "ok"
DoCmd.OpenQuery "lulu"
'j'ai essayer aussi sans les "" mais non plus
'execution de la requete mais ça ne fonctionne pas
End If
End Select

merci d'avance

[pev15]

ajoute la ligne suivante :

qdReq.execute

[soussou92]

merci pour l'aide , j'ai deja tester mais ça ne lance pas la requete

[LedZeppII]

Bonjour,

mets le nom de la requête que tu veux créer entre double quotes

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

Set qdReq = maDb.CreateQueryDef("lulu", "SELECT * FROM Rqt115_Volume_Stock_Neuf_NDL_Last_Sabrina WHERE [Hiérarchie découpe matériel (financier)] Like'" & q2 & "';")

A+

[soussou92]

merci bien ça marche maintenant j'aimerai remplacer le nom de la requete par une variable contenant le nom de cette requete
savez vous comment faire ???
merci

[Chtulus]

Bonjour,

Tu défini ta variable en début de code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Str1 = "Nom de ta requête"

C'est ce que tu souhaite ?

[soussou92]

en fait c'est a peu pres ça mais pas tout a fait
je m'explique
le nom des requetes est stocké dans une table de correspondance
donc lorsque je click sur un element de la liste la requete correspondante est sur la 2eme colonne
j'arrive a recuperé le nom de la requete dans un string mais je n'arrive pas a la lancer je comprend pas pourquoi je vous montre le bout de code
test = Me!LstMateriel.Column(1)
Set qdReq = maDb.CreateQueryDef("lulu", SELECT * FROM '" &test & "' WHERE [Hiérarchie découpe matériel (financier)] Like'" & q2 & "';")
mais ça ne fonctionne pas

[soussou92]

test contient bien le nom de la requete car j'ai verifier avec un msgbox

[LedZeppII]

Il y a un souci avec ton code si la requête lulu est déjà créée.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
test = Me!LstMateriel.Column(1)
Set qdReq = Nothing
On Error Resume Next
' On essaie de référencer la requête lulu
Set qdReq = maDb.QueryDefs("lulu")
On Error Goto 0
If qdReq Is Nothing Then
   ' Si elle n'existe pas on la crée
   Set qdReq = maDb.CreateQueryDef("lulu") 
End If
' On affecte le code SQL à la requête
qdReq.SQL = "SELECT * FROM [" &test & "] WHERE [Hiérarchie découpe matériel (financier)] Like'" & q2 & "';"

A+

[soussou92]

merci beaucoup pour l'aide
le problème est regler après plusieurs prises de tete lol