dim oreport as oReport
Set oReport = CurrentProject.AllReports(0)

Vad får du för felmeddelande?

Börjar indexet på 1 istf 0 ?


/johan/

"inkompatibla typer"...

Dim oReport as Report

Så måste du väl mena? Finns väl inget objekt som heter oReport, och skulle det finnas det så kan du i döpa variablen till samma namn...

/Johan

dim oreport as Report
Set oReport = Reports(0)

hmmm reports-collectionen innehåller inga rapporter...det är bara currentproject.allreports som gör det...

reports collectionen innehåller alla öppnade objekt. Vad vill du åstakomma?

Om du tittar på metoden så ser du att den retunerar AccessObject. Vilket är ett objet som bara retunerar allmän information om objektet. T.ex. om det är laddat och sånt. För att modifiera objektet eller fånga en öppnen instans använder du Reports Collectionen efter att du öppnat rapporten.

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject

' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.IsLoaded = TRUE then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj