Discussion :

[phoon]

Bonjour

J'essai de créer un état sans source ou par VBA je lui l'assigne directement sa source.
Mais je n'y arrive pas !!
Voici mon code :

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 Commande0_Click()
DoCmd.OpenReport "XXXF563", acViewDesign
Me.RecordSource = " SELECT [T-BASE].* " _
                                & " FROM [T-BASE] " _
                                & " WHERE ((([T-BASE].M_meldungs_nr)=[forms]![XXX F563]![test])); "
Me.Recalc
Me.Refresh
Me.Repaint
 
 
DoCmd.OpenReport "XXXF563", acViewPreview
End Sub

Le SQL est reprit directement d'une requête qui fonctionne.
Mais là, cela à l'air de fonctionner, mais je n'ai pas de données, comme si l'open source ne se mettait pas.
Je n'arrive pas à trouver de solutions.
Merci pour votre aide

[Invité]

Bonjour
Pourquoi ouvrir l'état en mode création?

[jimbolion]

phoon,

tu dois passer ta requête sur la propriété ouverture de ton etat !

Comme le dis GAYOT, rien ne sert de l'ouvrir en création puis le réouvrir en mode aperçu (le contenu de la requête sera effacé lors de la ré-ouverture : etat non fermé entre temps d'ailleurs)

Dans ton cas le me.recordsouce modifie le recordsource du formulaire et pas de ton état : tu peux essayer repaint, refresh, recalc voire requery cela ne sert à rien.

JimBoLion

[LedZeppII]

Bonjour,

Tu peux passer le SQL de la source de l'état dans l'argument OpenArgs.
C'est la manière la plus simple qui me vient à l'esprit.

Syntaxe de OpenReport:

OpenReport(ReportName, [View As AcView = acViewNormal], [FilterName], [WhereCondition], [WindowMode As AcWindowMode = acWindowNormal], [OpenArgs])

Dans ton état, tu gères l'événement «Sur ouverture» avec ce code :

Code :

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

1
2
3
4
5
6
7
Private Sub Report_Open(Cancel As Integer)
Dim sArgs As String
sArgs = Nz(Me.OpenArgs, "")
If Len(sArgs) > 0 Then
   Me.RecordSource = sArgs
End If
End Sub

Le code de ton bouton devient alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande0_Click()
Dim sSql As String
 
sSql = " SELECT [T-BASE].* " _
     & " FROM [T-BASE] " _
     & " WHERE ((([T-BASE].M_meldungs_nr)=[forms]![XXX F563]![test])); "
 
DoCmd.OpenReport "XXXF563", acViewPreview,,,, sSql
 
End Sub

A+

[phoon]

Merci à tous pour les réponses.

Tout est si simple quand on réfléchit un peu

Philippe