Discussion :

[stagolee]

Bonjour!
j'essaie d'ouvrir un état à partir de la fonction vba "openreport", avec pour condition la valeur d'un champ texte de mon formulaire :

Code :

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

DoCmd.OpenReport "E_ETP_Lettre_Invitation", acPreview, , "Expr8 Like " & Me.ThemeSession & ""

J'ai une erreur de synthaxe, je pense que c'est parce que Me.ThemeSession est un texte et non un numéro. Par contre, si je mets ça :

Code :

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

DoCmd.OpenReport "E_ETP_Lettre_Invitation", acPreview, , "Expr8 Like ""diététique"""

ça fonctionne. L'état trouve bien tous les enregistrements contenant l'expression recherchée. Donc j'ai essayé ça :

Code :

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

DoCmd.OpenReport "E_ETP_Lettre_Invitation", acPreview, , "Expr8 Like "" & Me.ThemeSession & """

et là l'état apparait vide (pas d'enregistrement correspondant)
Bref je suis un peu largué sur la synthaxe. Une idée?
Merci
Pierre

[Jean-Philippe André]

bonjour,
je te propose ceci :

Code :

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

DoCmd.OpenReport "E_ETP_Lettre_Invitation", acPreview, , "Expr8 Like '*" & Me.ThemeSession & "*'"

[stagolee]

bonjour jpcheck, c'est ça! en fait j'ai trouvé la soluce peu de temps avant ta réponse, sur un autre site.

Code :

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

DoCmd.OpenReport "E_ETP_Lettre_Invitation", acPreview, , "Expr8 = '" & Me.ThemeSession & "'"

merci encore!
Pierre

[stagolee]

Bonjour, un autre truc que je n'arrives pas à comprendre : j'essaie de générer des reçus de cotisations pour nos professionnels partenaires, à l'aide d'états filtrés par des champs d'un formulaire.
Dans l'état et le formulaire j'ai les champs suivants : DateCotisation et NumeroProfessionnel. Ces deux champs sont stockés dans la table T_Professionnel_Cotisation. Un professionnel peut verser plusieurs cotisations.
Voici le code utilisé pour générer l'état :

Code :

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

1
2
3
Private Sub Commande41_Click()
DoCmd.OpenReport "E_Professionnel_Recu_Cotisation", acPreview, , "NumeroProfessionnel = " & Me.NumeroProfessionnel & " And DateCotisation Like #" & Me.DateCotisation & "#"
End Sub

Mon problème est assez étonnant : ce code marche mais pas tout le temps! certains états sont VIDES alors que l'enregistrement existe. Si je change la date d'un enregistrement qui refuse de s'imprimer, l'état reste vide, donc je ne pense pas qu'il s'agisse d'un problème de syntaxe... comprend pas
ça vous est déjà arrivé?

[stagolee]

bizarre : si je génère un état filtré uniquement sur DateCotisation, j'ai le même problème d'états vides. J'ai essayé de savoir pour quelles dates ça le fait, et ça me dépasse -> je modifie juste la date d'un même enregistrement :
05/09/2007 = état vide
15/09/2007 = marche
12/09/2007 = état vide
13/09/2007 = marche

[Jean-Philippe André]

hello,
tout ca parce que tu n'as pas de 13e mois dans l'année ^^
Regarde bien le format de ta date, il doit suivre MM/dd/YYYY pour être lu correctement dans SQL.