Discussion :

[volsan]

Bonjour

Malgré la lecture de ce lien http://access.developpez.com/faq/?page=Requetes , je n'arrive pas gere une requete paramétré en vba

ma requete est une simple requete selection qui prend tous les enregistrements avec comme paramètre [Saisie de la date du contrat]

En faite l'ideal c'est que la requete n'affiche que les enregistrements que j'ai en fonction de la date que que je vais saisir dans un formulaire
Voici mon code vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande1_Click()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Dim i As Integer
Dim nomfichier, nomrequete, datefic, ligne1, lignesuiv As String
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
  ' Référence à la requête
Set qdf = CurrentDb.QueryDefs("Rq_creation_de_ligne")
 qdf.Parameters("Date Contrat") = Me.DateDeb     '<== si requête paramétrée
 
Set rcs = qdf.OpenRecordset

[ClaudeLELOUP]

Bonjour,

Tant qu'à faire, crée à la volée le SQL de la requête.

Montre le SQL de ta requête actuelle, je te construirai un exemple.

[volsan]

Merci pour ton aide,

Code :

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

1
2
3
SELECT Client.[DATE CONTRAT], Client.NUMCONTRAT, Client.NUMCLIENT, Client.NOMPRENOMS, Client.ADRESSE, [CODE POSTAL].[CODE INSEE], Client.ORDRE, Client.STATUS, [CODE POSTAL].VILLE, Client.[TYPE DE RACCORDEMENT], Client.[STATUS DE RACCORDEMENT], Client.[TYPE DE DEGROUPAGE], Client.TECHNOLOGIE, Client.PROFIL
FROM Client INNER JOIN [CODE POSTAL] ON Client.[CODE POSTAL] = [CODE POSTAL].[Code Postal]
WHERE (((Client.[DATE CONTRAT])>=[Formulaires]![Commande de ligne]![DateDeb] And (Client.[DATE CONTRAT])<=[Formulaires]![Commande de ligne]![Datefin]));

En gros je souhaite a partir de mon formulaire de saisie que quand je cliques sur le bouton genere ma requete filtre uniquement les date de contrat compris entre la date de début et la date de fin.



Cordialement

[ClaudeLELOUP]

Bonjour,

Evite les caractères spéciaux, espaces, accents... dans les noms de tes objets et contrôles, ça finit toujours par empoisonner le code.
Vois ce que des professionnels recommandent : Descriptif des conventions typographiques du code Visual Basic de Jean-Philippe AMBROSINO.

Je n'ai pas de quoi tester (pour cela je demandais que tu affiches le SQL de ta requête actuelle), mais ton code devrait ressembler à ceci :
(sans garantie, car je n'ai pas pu tester !)

Code :

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

1
2
3
SELECT Client.[DATE CONTRAT], Client.NUMCONTRAT, Client.NUMCLIENT, Client.NOMPRENOMS, Client.ADRESSE, [CODE POSTAL].[CODE INSEE], Client.ORDRE, Client.STATUS, [CODE POSTAL].VILLE, Client.[TYPE DE RACCORDEMENT], Client.[STATUS DE RACCORDEMENT], Client.[TYPE DE DEGROUPAGE], Client.TECHNOLOGIE, Client.PROFIL
FROM Client INNER JOIN [CODE POSTAL] ON Client.[CODE POSTAL] = [CODE POSTAL].[Code Postal]
WHERE (((Client.[DATE CONTRAT])>=#" & Format(me.[DateDeb],"mm/dd/yyyy") & "# And (Client.[DATE CONTRAT])<=#" & format(me.[Datefin],"mm/dd/yyyy") & "#"));

Dans le module d'un formulaire pour faire référence à celui-ci, écris « Me. » au lieu de qualifier Forms!...

Et remarque aussi que dans ton formulaire la date est au format français il faut convertir au format américain et bien sûr délimiter en encadrant avec des croisillons « # ».