Dynamisk tildeling af Record Source før Report run

Du kan ikke ændre en rapport's postkilde, når rapporten ikke er åbnet.
Omvendt kan du heller ikke ændre postkilden når udskrivningen er startet.

En løsning er at bruge en 'pladsholder' query for alle de queries der skal anvendes af en given raport.

Raporten skal så have denne som sin datakilde:

Sub openReportWithQueryName(reportName, queryName)
    CurrentDb.QueryDefs.Delete "PladsholderQ"
    CurrentDb.CreateQueryDef "PladsholderQ", "select * from " & queryName
    DoCmd.OpenReport reportName, acViewPreview
End Sub

----

En anden løsning er at forene queries i den query der skal være datakilde - tilsættende et ekstra query identifikation:

select 1 as qid, * from Q1
union
select 2 as qid,* from Q2

og bruge den med where betingelse i openreport.

----

En tredje løsning, som ikke er "særlig køn", er indledende at åbne raporten i design mode og ændre datasource 


docmd.OpenReport rapName,acViewDesign
Reports(rapName).RecordSource="qName"
docmd.Save acReport,rapName
docmd.close acreport,rapName
docmd.openreport rapName,acPreview

Da jeg for snart mange år siden fandt den begrænsning i Access, gjorde jeg det at jeg i de rapporter det var aktuelt lavede det så jeg i rapporternes OnOpen event skrev
Me.RecordSource = ReportRecordsource

ReportRecordsource er så en global variabel som jeg sætter værdien på inden jeg kalder DoCmd.OpenReport

Det har altid virket - om det er elegant ved jeg ikke rigtig.

Tak - det er alletiders.
Vh. OMN

Tak - det er alletiders.
Vh. OMN

Tl HugoPedersen
Tak - det er alletiders, men hvordan kam jeg tildele point.
Vh. OMN

Til brugerekspert.
Tak - jeg vil gerne tildele point her også, men hvordan.



Vh. OMN

Du er den eneste der har lagt svar. Du må vente på, at de brugere du vil tildele point har lagt svar.

Jeg har ikke fået besked om indlæg før lige nu her i dag - det sker ret tit synes jeg men.....

Jeg laver dette som et svar.

Takker for point.....