Discussion :

[BBert]

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 :

Code :

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

 DoCmd.OpenReport "E_Essai2", acViewPreview, , ("T_Eve_ParJour.NrSemaine Between" & SemDe And " & SemA ")

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.

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.

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

Pour ce deuxieme exemple j'essaye egalement de trier par centre d'imputation.
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

[argyronet]

Bonjour,

Adapte et teste ta requête dans le QBE... Si celle-ci ne donne pas de résultat ou possède une erreur, tu le verras tout de suite... En apparence, ta chaîne SQL semble bonne.

Par ailleurs, tu peux envisager de créer dynamiquement ta requête et faire en sorte que ton état possède sa source toujours fondé sur celle-ci ce qui t'évites le code d'ouverture de l'état.

Argy

[BBert]

merci argyronet,

La requete sql est issue de QBE justement.

Je vais essayer de fouiller de ce coté la.

[BBert]

Pour info, le problème venais d'une erreur de syntaxe sur le 2eme Between, les variables CentrDe et CentrA sont string.

Je considere donc le problème comme soldé; ce qui ne m'empêche pas de fouiller les idées que tu m'a données.

Merci Argy pour ton aide

Pour info une version de la chaine corrigée

Code :

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

1
2
3
MonSql = "SELECT * 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 & "'"

[argyronet]

Eh oui, mais si tu ne dis pas tout, on ne peut pas deviner...
Les noms de tes champs CentrDe et CentrA tels que nommés font réellement penser à des bornes, n'est-ce pas ?

En tout état de cause, tu aurais du voir les guillemets dans la zone de critères du QBE.

Bonne continuation.

Argy

[BBert]

effectivement, d'ou l'intérêts de bien choisir le nom des variables...