Accès Premium
GNT sans publicité, site mobile, fonctionnalitées exclusives...
Rejoignez-nous !
Forums Applications Microsoft Office Access

Corriger mon VBA - SVP Merci

Le
Bernard
Bonjour les Pros d'Access 20000,

Je b ute sur l'impression d'un seul enregistrement
Pas trouvé d'exemple facile pour moi
Pourriez vous corriger mon VBA (suis NUL en VBA)
Merci à TOUS et bon Week End

(Si je rajoute = "*" aprés strCriteria alors là j'ai l'état mais sans
l'enregistrement ???
Bernard

Ci-dessous ma mixture à revoir

Private Sub cmdPrintRecord_Click()
'Pour impimer UNE seul fiche VPF

Dim strReportName As String
Dim strCriteria As String

strReportName = "R - VPF_FicheFilm"

strCriteria = "[Film_ID]='" & Me![Film_ID] & "'"

DoCmd.OpenReport strReportName, acPreview, , strCriteria

End Sub
Lire les 6 réponses

Questions / Réponses high-tech
Poser une question
Vidéos High-Tech et Jeu Vidéo
Plus de vidéos
Téléchargements
Plus de téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Albéric
Le #23635321
Bonjour,
Est-ce que Film_ID est bien du texte et pas un nombre ?

Dans ce dernier cas, il faudrait plutôt écrire « strCriteria = "[Film_ID]="
& Me![Film_ID] »

Cdt
Répondre en citant
Bernard
Le #23635801
Le 07/08/2011 10:23, Albéric a écrit :
= "[Film_ID]="



Merci Albéric pour ton aide, mais ca ne marche pas ...

J'avais essayé aussi cela mais pas de résultat...

Merciiiiiiiiiiii
Bernard
Répondre en citant
Gloops
Le #23636121
Bonjour,

Bernard a écrit, le 06/08/2011 19:25 :
Bonjour les Pros d'Access 20000,



;) ça va nous tomber dessus avant qu'on se soit rendu compte !



Je b ute sur l'impression d'un seul enregistrement...
Pas trouvé d'exemple facile pour moi...
Pourriez vous corriger mon VBA (suis NUL en VBA)
Merci à TOUS et bon Week End

(Si je rajoute = "*" aprés strCriteria alors là j'ai l'état mai s sans
l'enregistrement ???
Bernard

Ci-dessous ma mixture à revoir

Private Sub cmdPrintRecord_Click()
'Pour impimer UNE seul fiche VPF

Dim strReportName As String
Dim strCriteria As String

strReportName = "R - VPF_FicheFilm"

strCriteria = "[Film_ID]='" & Me![Film_ID] & "'"

DoCmd.OpenReport strReportName, acPreview, , strCriteria

End Sub



Bon, eh bien là j'ai l'impression qu'il va falloir se retrousser les
manches pour reprendre les basiques :
- regarder quelle est la requête principale de l'état [R - VPF_FicheF ilm]
- copier son code SQL dans une fenêtre de définition de nouvelle requ ête
(affichée en mode SQL), et ajouter à la fin " WHERE " suivi du conten u
de la variable strCriteria

lancer l'exécution,
et bien regarder si ça sort l'enregistrement souhaité, et sinon si ç a ne
donnerait pas un indice exploitable.

Euh, je n'ai pas Access à la maison alors j'ai une hésitation, est-ce
qu'il y a bien le mot SELECT, au début ? Sinon il faut l'ajouter, dans
la fenêtre de définition de requête.
Répondre en citant
Bernard
Le #23636601
Le 07/08/2011 15:48, Gloops a écrit :
Bonjour,

Bernard a écrit, le 06/08/2011 19:25 :
Bonjour les Pros d'Access 20000,



;) ça va nous tomber dessus avant qu'on se soit rendu compte !



Je b ute sur l'impression d'un seul enregistrement...
Pas trouvé d'exemple facile pour moi...
Pourriez vous corriger mon VBA (suis NUL en VBA)
Merci à TOUS et bon Week End

(Si je rajoute = "*" aprés strCriteria alors là j'ai l'état mais sans
l'enregistrement ???
Bernard

Ci-dessous ma mixture à revoir

Private Sub cmdPrintRecord_Click()
'Pour impimer UNE seul fiche VPF

Dim strReportName As String
Dim strCriteria As String

strReportName = "R - VPF_FicheFilm"

strCriteria = "[Film_ID]='" & Me![Film_ID] & "'"

DoCmd.OpenReport strReportName, acPreview, , strCriteria

End Sub



Bon, eh bien là j'ai l'impression qu'il va falloir se retrousser les
manches pour reprendre les basiques :
- regarder quelle est la requête principale de l'état [R - VPF_FicheFilm]
- copier son code SQL dans une fenêtre de définition de nouvelle requête
(affichée en mode SQL), et ajouter à la fin " WHERE " suivi du contenu
de la variable strCriteria

lancer l'exécution,
et bien regarder si ça sort l'enregistrement souhaité, et sinon si ça ne
donnerait pas un indice exploitable.

Euh, je n'ai pas Access à la maison alors j'ai une hésitation, est-ce
qu'il y a bien le mot SELECT, au début ? Sinon il faut l'ajouter, dans
la fenêtre de définition de requête.



Merci beaucoup je vais travailler dessus et je reviens pour dire si cela
va...

Merci Gloops pour toute cette aide.
Bernard
Répondre en citant
Bernard
Le #23636591
Le 07/08/2011 17:32, Bernard a écrit :
Le 07/08/2011 15:48, Gloops a écrit :
Bonjour,

Bernard a écrit, le 06/08/2011 19:25 :
Bonjour les Pros d'Access 20000,



;) ça va nous tomber dessus avant qu'on se soit rendu compte !



Je b ute sur l'impression d'un seul enregistrement...
Pas trouvé d'exemple facile pour moi...
Pourriez vous corriger mon VBA (suis NUL en VBA)
Merci à TOUS et bon Week End

(Si je rajoute = "*" aprés strCriteria alors là j'ai l'état mais sans
l'enregistrement ???
Bernard

Ci-dessous ma mixture à revoir

Private Sub cmdPrintRecord_Click()
'Pour impimer UNE seul fiche VPF

Dim strReportName As String
Dim strCriteria As String

strReportName = "R - VPF_FicheFilm"

strCriteria = "[Film_ID]='" & Me![Film_ID] & "'"

DoCmd.OpenReport strReportName, acPreview, , strCriteria

End Sub



Bon, eh bien là j'ai l'impression qu'il va falloir se retrousser les
manches pour reprendre les basiques :
- regarder quelle est la requête principale de l'état [R - VPF_FicheFilm]
- copier son code SQL dans une fenêtre de définition de nouvelle requête
(affichée en mode SQL), et ajouter à la fin " WHERE " suivi du contenu
de la variable strCriteria

lancer l'exécution,
et bien regarder si ça sort l'enregistrement souhaité, et sinon si ça ne
donnerait pas un indice exploitable.

Euh, je n'ai pas Access à la maison alors j'ai une hésitation, est-ce
qu'il y a bien le mot SELECT, au début ? Sinon il faut l'ajouter, dans
la fenêtre de définition de requête.



Merci beaucoup je vais travailler dessus et je reviens pour dire si cela
va...

Merci Gloops pour toute cette aide.
Bernard



CA Y EST cela fonctionne, tout bêtement avec un Qry ...
Pourquoi fallait-il cela ??? Nul ne le saura..
Merci à tous ceux qui m'ont lu est répondu.

Bernard
Répondre en citant
Publicité
Suivre les réponses
Poster une réponse
Anonyme