Variabele recordbron voor grafiek (gelijk aan de recordbron van rapport)

[fmeca]

Beste mede programmeurs,

Na goeie tips van jullie en oplossing van vorig probleem ,ben ik in een volgende fase terecht gekomen met een volgend probleem.

Ik heb een rapport met een bepaalde recordbron (gebaseerd op query's).
De recordbron van dit rapport varieert zie topic Rapport-met-verschillende-recordbronnen
Op dit rapport staan ook grafieken.
Voor de rijbronnen van deze grafieken wil dezelfde recordbron gebruiken als in het rapport.

De code voor de rijbron van de grafiek ziet nu alsvolgt uit: (Microsoft Graph Chart)

SELECT [plant],Count([ID_storing]) AS [AantalID_storing] FROM [queryRapportKlant]   GROUP BY [plant];

De query 'queryRapportKlant' moet dus gelijk worden aan de query die het rapport gebruikt.

Volgende heb ik geprobeerd (zonder resultaat)

'Veranderen recordsource (query):
 'Openen rapport in designview, andere recordbron koppelen, en opslaan
        DoCmd.OpenReport stDocName, acViewDesign, , , acHidden
        stGraphSource = " [plant],Count([ID_storing]) AS [AantalID_storing] FROM [" & stRecordSource & "] GROUP BY [plant];"
        MsgBox stGraphSource 'test
        Reports(stDocName).RecordSource = stRecordSource
        DoCmd.Close acReport, stDocName, acSaveYes
'Einde Veranderen recordsource (query):
    DoCmd.OpenReport stDocName, acViewPreview

In de graph Rijbron

SELECT &stGraphSource

Wie helpt mij verder

Mijn dank is groot
Eric

 

[Floor E]

Hallo Eric,

Maak een functie aan en kopieer de volgende code:

Function Gstr_Levtype() As String
Gstr_Levtype = stGraphSource
End Function

Als rijbron gebruik je vervolgens:
Gstr_Levtype()

 

[fmeca]

Bedankt voor je reactie.

Ik zal het proberen maar...

Is dit niet hetzelfde als stGraphSource direct in de rijbron te plaatsen (incl. de Select in de Graphsource opgenomen)?

Groet Eric.

 

[Floor E]

Je hebt het over een variabele recordsource vandaar, hier kan je alle kanten mee op.

Aangepast:
Ik was straks te snel (krijg je als je aan het werk bent).
Ik was vergeten in te voegen dat je een globale variabele moet maken, dat maakt een wereld van verschil :

 Global pstr_LevType As String

Vervolgens wordt je code:
'Veranderen recordsource (query):

    stGraphSource = " [plant],Count([ID_storing]) AS [AantalID_storing] FROM [" & stRecordSource & "] GROUP BY [plant];"     'query
  
    Gstr_Levtype ´Uitvoeren functie waarin de query invoert in de recordsource van je rapport

    DoCmd.OpenReport stDocName, acViewPreview    ´openen rapport

 

[fmeca]

Wordt vervolgd

Hoi Ik heb jouw voorstel geprobeerd maar gaf nog niet het gewenste resultaat.
Grafieke zijn even op Hold gezet tot volgende week.
Dan proberen we weer verder.

Wordt vervolgd