Discussion :

[Pierre-alain]

bonjour à tous,

Je travaille actuellement sur une base access et je suis amené à me servir de requêtes paramétrées.
J'ai écrit cette requete qui me permet de retrouver si des enregistrements ont deja été rentrés dans la table

Code :

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

1
2
3
4
5
6
 
Set qdf = CurrentDb.QueryDefs("QryExistingTradeByActivity")
            With qdf
                .Parameters("PipingSpoolActivityID") = Me.PipingSpoolActivityID
                .Parameters("ActivityListID") = Me.Insulation
            End With

Le probleme c'est que j'aimerai faire une requete paramétrée qui me prennent plusieur valeurs de ActivityListID du genre

Code :

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

1
2
3
4
5
6
 
Set qdf = CurrentDb.QueryDefs("QryExistingTradeByActivity")
            With qdf
                .Parameters("PipingSpoolActivityID") = Me.PipingSpoolActivityID
                .Parameters("ActivityListID") = 454 Or 455 Or 456 Or 457 Or 458 Or 459 Or 460 Or 461
            End With

Mais access me renvoie à chaque fois une requete vide!
Qqn aurait-il une idée pour palier à ce probleme?
Merci beaucoup

[LedZeppII]

Bonjour,

Tu pourrai ouvrir un recordset basé sur une instruction SQL.

Code :

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

1
2
3
4
5
6
7
8
Dim db as DAO.database, rs as DAO.Recordset
Dim sSQL as String
 
set db=CurrentDb
sSQL = "SELECT Champ1, Champ2, Champ3 FROM [NomTableOuRequête]"
sSQL = sSQL & " WHERE PipingSpoolActivityID = " & Me.PipingSpoolActivityID
sSQL = sSQL & " AND ActivityListID IN(454, 455, 456, 457)"
Set rs = db.OpenRecordset(sSQL)

NomTableOuRequête peut être le nom d'une table ou d'une requête non paramétrée.

A+