requêtes et vba

Bonjour,

un exemple simple à adapter:

dim qdf as dao.QueryDef
Set qdf = CurrentDb.QueryDefs("Requête1")
qdf.Parameters("Date ?") = date()
qdf.Execute
Set qdf = Nothing

Date ? est le paramètre indiqué dans la requête enregistrée.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jean-claude" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:13fbb01c417e4$7608b140$a601280a@phx.gbl...
comment faire pour passer un critère depuis du code VBA a
une requête enregistrée ?

merci

Bonjour,

Voici un autre exemple :

Celui ci prend un paramêtre issue d'une liste
déroulante et modifie la requête visé. Cette
exemple est tiré de ma BD (Vidéothèque).

Private Sub Liste_Cassette_AfterUpdate()

Dim Chaine As String
Dim Critere As String
Dim CassetteVidéo As String

On Error GoTo Liste_Cassette_Err

CassetteVidéo = Forms![Formulaire Table Vidéo].[Liste
Cassette]
Chaine = "Select * from [Table Vidéo] where [Cassette]
= "
Critere = Chaine & """" & CassetteVidéo & """"

If (ChangeRequeteDef("Requête Liste Spécifique
Cassette", Critere)) Then
DoCmd.OpenForm "Formulaire Liste Spécifique
Cassette", acNormal, "", "[Cassette]", , acNormal
End If

Liste_Cassette_Exit:
Exit Sub

Liste_Cassette_Err:
MsgBox Error$
Resume Liste_Cassette_Exit

End Sub


Public Function ChangeRequeteDef(ChaineRequete As String,
ChaineSQL As String) As Boolean

Dim Definition As Variant

If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If

End Function

Les alinéas sont toujours bafoué, alors attention à la
recopie pour avoir les lignes entière.

mousnynao!

-----Message d'origine-----
comment faire pour passer un critère depuis du code VBA a
une requête enregistrée ?

merci
.