Bonjour,
Après avoir cherché dans la FAQ et le forum, je me retrouve dans l'impasse avec un état.
Je cherche a imprimer un état, en selectionnant plusieurs critères dans un formulaire. Pour ce faire j'ai testé plusieurs méthodes :
1 - La selection des critères dans la commande OpenReport comme suit :Dans ce cas les variables SemDe et SemA sont respectivement la semaine de début et la semaine de fin. Comme il s'agit d'une close Where je pensais utiliser le between, pour préciser que je souhaite toutes les semaines comprise entre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part DoCmd.OpenReport "E_Essai2", acViewPreview, , ("T_Eve_ParJour.NrSemaine Between" & SemDe And " & SemA ")
2 - La selection des critères directement en code SQL depuis l'état a l'ouverture de celui-ci, mais la mon SQL ne passe pas, erreur champ.
Pour ce deuxieme exemple j'essaye egalement de trier par centre d'imputation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Private Sub Report_Open(Cancel As Integer) Dim MonSql As String MonSql = "SELECT T_Eve_ParJour.KNrEvenement, T_Eve_ParJour.DatEven, T_Eve_ParJour.TpsEven, " MonSql = MonSql & "T_Eve_ParJour.NrSemaine, T_Eve_ParJour.Matricule, T_Eve_ParJour.kCodeIlot,T_Ilot.CentreImputation " MonSql = MonSql & "FROM T_Eve_ParJour INNER JOIN T_Ilot ON T_Eve_ParJour.CodeIlot = T_Ilot.kCodeIlot " MonSql = MonSql & "WHERE (((T_Eve_ParJour.NrSemaine) Between " & SemDe & " AND " & SemA & ") " MonSql = MonSql & "AND ((T_Ilot.CentreImputation) Between " & CentrDe & " AND " & CentrA & "))" Me.RecordSource = MonSql End Sub
Ce tri n'apparait pas dans le premier exemple.
Si quelqu'un a une idée des erreurs de syntaxe ou de logique qu j'ai pu commettre, je vous serais reconnaissant de m'en faire part.
Merci d'avoir pris le temps de me lire.
Bertrand
Partager