Discussion :

[nomade333]

Bonjour,
J'ai le code suivant pour ouvrir un Form

Code :

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

1
2
3
4
5
6
7
Private Sub Numéro_de_fex_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Affiche fex"
    stLinkCriteria = "[Numéro de fex]=" & [Numéro de fex]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Je voudrais faire pareil mais avec un état et la commande Docmd.OpenReport.
Cela est-il possible car je n'ai pas trouvé d'aide avec exemple dans l'aide VBA Access.

Merci à tous pour votre aide
nomade

[pgz]

Bonjour.

Ce sont les mêmes arguments, qui dépendent de ta version d'Access. F1 sur OpenReport pour ouvrir l'aide.
Acces 2003 :

expression.OpenReport(ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs)

Bon courage,

PGZ

[nomade333]

Bonjour à tous et merci pour la réponse, mais cela ne marche pas.
l'état s'ouvre mais avec toutes les données, et non pas avec celle triées selon le critère.
voici mon code, quelqu'un pourrait il le corriger?

Code :

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

1
2
3
4
5
6
7
Private Sub Texte26_Click()
Dim ReportName As String
Dim stLinkCriteria As String
ReportName = "Maintenance Equip"
stLinkCriteria = "[EQ]=" & "'" & Me![EQ] & "'"
DoCmd.OpenReport "Maintenance Equip", acViewPreview, stLinkCriteria
End Sub

Merci par avance

Ps: je n'ai qu'une notion trés, trés limité de VB

[luz_negra]

voila le code que moi j'utilise. Il fonctionne tres bien essaye

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CmdImprimer_Click()
 
'imprimer l'état correspondant au formulaire en appercu
 
 On Error GoTo Err_CmdImprimer_Click
 
    Dim stDocName As String
 
    stDocName = "Recette" ' met le nom de ton etat
    DoCmd.OpenReport "Recette", acPreview, , "(idversion)= " & Me.idversion.Value
 
Exit_CmdImprimer_Click:
    Exit Sub
 
Err_CmdImprimer_Click:
    MsgBox Err.Description
    Resume Exit_CmdImprimer_Click

Attention il faut que (comme dans cet exemple) le idversion soit sur ton formulaire et dans ton état. Sinon le filtre ne marchera pas.

[nomade333]

Bonsoir,
J'obtiens le même résultat qu'avec mon code, à savoir l'état s'ouvre, mais affiche tous les enregistrements et ne filtre pas sur le critère "idversion".
Le fait que la table pour le form et pour l'etat soit la même a t il son importance?
Merci pour la réponse

[jacou]

Bonsoir,

Ton erreur réside dans le manquement d'un argument pour la méthode DoCmd::OpenReport().

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Texte26_Click()
  Dim strReportName As String
  Dim stLinkCriteria As String
  strReportName = "Maintenance Equip"
  stLinkCriteria = "[EQ]=" & "'" & Me![EQ] & "'"
' Erreur:
' DoCmd.OpenReport ReportName, acViewPreview, stLinkCriteria  DoCmd.OpenReport strReportName , acViewPreview, stLinkCriteria
'
' Bon Code ici-bas:
  DoCmd.OpenReport strReportName, acViewPreview, "", stLinkCriteria
'
End Sub

Ca devrait marcher.

[nomade333]

Merci à jacou
ça fonctionne impec
A+

[Simplifi]

perso j'écrirais:

Code :

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

1
2
3
Private Sub Texte26_Click()
DoCmd.OpenReport "Maintenance Equip", acViewPreview, ,"EQ=forms!le_nomd_formulaire!EQ"
End Sub

alternative

Code :

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

1
2
3
Private Sub Texte26_Click()
DoCmd.OpenReport "Maintenance Equip", acViewPreview, ,"EQ=" & ME!EQ.value
End Sub

Vous allez me dire que je simplifie tout et qu'il n'y a pas des gestion d'erreur, mais si la gestion d'erreur conste seulement à sortir du prog, je vois pas l'interêt
Quand à mettre un texte dans une variable pour le passer en argument, dites moi si des essais on fait la preuve d'une meilleure rapidité...?!?
-------------------Simplifi----------comme si tout était simple--------

[Hydatid]

Bonjour,
J’ai un problème similaire, J’ai crée une BD (Ordonnace(2).mdb) avec 2 tables (un enregistrement de la table 1 correspond à plusieurs enregistrement de la table 2) puis un formulaire et un sous-formulaire. Je voudrais créer un état qui m’affiche un enregistrement du sous-fourmulaire en reprenant des données du formulaire. L’état m’affiche tous les enregistrements. Que dois je faire ?
J’ai appliqué votre solution : le critère étant le CodeMalade, mais sans résultat. J’ai un message qui me demande de préciser le critère ! Y a t il une solution ?
Merci

[Hydatid]

Bonjour,
Merci les amis c’est notamment en posant des questions aux autres qu’on réfléchis encore plus. J’ai résolu le problème, avec l’aide des forums.
La procédure lorsque le critère est un texte = DoCmd.OpenReport "Nom de l’état", acPreview, , "[Critère]=" & "'" & Me![Critère] & "'"
La procédure lorsque le critère est un numéro = DoCmd.OpenReport "Nom de l’état", acPreview, , "[Critère]=" Me![Critère]
Le [Critère] entre guillemets est celui figurant sur l'état, le [Critère] hors des guillemets désigne celui figurant sur le formulaire. S’il s’agit d’un sous-formulaire il faut ajouter le nom du SF avec un point d’exclamation exemple : Me![Malades sous-formulaire]![Critère]
Salutations !

[Gabrieel]

Bonjour,
Merci les amis c’est notamment en posant des questions aux autres qu’on réfléchis encore plus. J’ai résolu le problème, avec l’aide des forums.
La procédure lorsque le critère est un texte = DoCmd.OpenReport "Nom de l’état", acPreview, , "[Critère]=" & "'" & Me![Critère] & "'"
La procédure lorsque le critère est un numéro = DoCmd.OpenReport "Nom de l’état", acPreview, , "[Critère]=" Me![Critère]
Le [Critère] entre guillemets est celui figurant sur l'état, le [Critère] hors des guillemets désigne celui figurant sur le formulaire. S’il s’agit d’un sous-formulaire il faut ajouter le nom du SF avec un point d’exclamation exemple : Me![Malades sous-formulaire]![Critère]
Salutations !

Merci grace a ton intervention, je comprend désormais très bien la différence!