Discussion :

[liazidf]

[Access 2003]
Bonjour,
je voudrais éxecuter une requete selection avec un parametre récuperé d'une combo, si qqun à une idée.

[Invité]

Bonjour

Il te suffit de mettre la valeur de la combo comme valeur de paramètre dans ta clause WHERE.

Il nous faudrait ta requête (le code SQL), comment tu veux la lancer, enfin bref, c'est simple, mais il faut plus d'infos.

Starec

[liazidf]

Bonjour

Il te suffit de mettre la valeur de la combo comme valeur de paramètre dans ta clause WHERE.

Il nous faudrait ta requête (le code SQL), comment tu veux la lancer, enfin bref, c'est simple, mais il faut plus d'infos.

Starec

Merci de répondre Starec,
Effectivement j'ai pas donné toutes les informations, car moi je voudrais connaitre les différentes solutions possibles (DAO,ADO, VBA) toutefois voila
la procedure que j'ai essayé/

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Modifiable12_Change()
Dim sSQL As String, Rst As DAO.Recordset, param As String
param = Modifiable12.Value
    ' Ouverture de la base de données
    sSQL = "SELECT materiels.NMAT, materiels.[N° POLICE]," & _
           "materiels.CONTRAT, materiels.[DATE EFFET]," & _
           "materiels.DÉSIGNATIO, materiels.Assureur, " & _
           "materiels.Statut, Clients.NOM" & _
   "FROM Clients INNER JOIN (contrats INNER JOIN materiels" & _
   "ON contrats.CONTRAT = materiels.CONTRAT)" & _
   "ON Clients.CODE_CLIEN = contrats.CODE_CLIEN" & _
   "WHERE (((materiels.Assureur)=" & "xparam))"
 
    ' Ouverture du recordset
    Set Rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
'    ' Fermeture du Recordset
    Rst.Close
End Sub

[Jeannot45]

Bonjour,

Tu peux juste écrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' Ouverture de la base de données
    sSQL = "SELECT materiels.NMAT, materiels.[N° POLICE]," & _
           "materiels.CONTRAT, materiels.[DATE EFFET]," & _
           "materiels.DÉSIGNATIO, materiels.Assureur, " & _
           "materiels.Statut, Clients.NOM" & _
   "FROM Clients INNER JOIN (contrats INNER JOIN materiels" & _
   "ON contrats.CONTRAT = materiels.CONTRAT)" & _
   "ON Clients.CODE_CLIEN = contrats.CODE_CLIEN" & _
   "WHERE materiels.Assureur =" & Modifiable12

Remarque :
si la valeur retournée par ta combo est du texte, il faudra modifier la clause WHERE comme ceci:

"WHERE materiels.Assureur ='" & Modifiable12 & "'"[/CODE]

[liazidf]

Bonjour,

Tu peux juste écrire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
' Ouverture de la base de données
    sSQL = "SELECT materiels.NMAT, materiels.[N° POLICE]," & _
           "materiels.CONTRAT, materiels.[DATE EFFET]," & _
           "materiels.DÉSIGNATIO, materiels.Assureur, " & _
           "materiels.Statut, Clients.NOM" & _
   "FROM Clients INNER JOIN (contrats INNER JOIN materiels" & _
   "ON contrats.CONTRAT = materiels.CONTRAT)" & _
   "ON Clients.CODE_CLIEN = contrats.CODE_CLIEN" & _
   "WHERE materiels.Assureur =" & Modifiable12

Remarque :
si la valeur retournée par ta combo est du texte, il faudra modifier la clause WHERE comme ceci:

"WHERE materiels.Assureur ='" & Modifiable12 & "'"[/CODE]

SVP,

J'ai une erreur de syntaxe dans cette requete:

Code :

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

1
2
3
4
5
6
7
8
sSQL = "SELECT materiels.NMAT, materiels.[N° POLICE]," & _
           "materiels.CONTRAT, materiels.[DATE EFFET]," & _
           "materiels.DÉSIGNATIO, materiels.Assureur, " & _
           "materiels.Statut, Clients.NOM" & _
           "FROM Clients INNER JOIN (contrats INNER JOIN materiels" & _
           "ON contrats.CONTRAT = materiels.CONTRAT)" & _
           "ON Clients.CODE_CLIEN = contrats.CODE_CLIEN " & _
           "WHERE (((materiels.Assureur)= " & Modifiable12.Value & " ))"

[Jeannot45]

Bonjour,

Il manquerait des espaces après le "INNER JOIN materiels", après "materiels.CONTRAT)" et après "Clients.NOM"

D'autre part, les parenthèses de la clause WHERE sont inutiles

[ClaudeLELOUP]

"WHERE (((materiels.Assureur)= " & Modifiable12.Value & " ))"

si Modifiable12 est du texte n'est-ce plutôt :

Code :

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

WHERE (((materiels.Assureur)= """ & Modifiable12.Value & """ ))"