Dim oReport as Report 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.Sv: varför fungerar inte detta??
Vad får du för felmeddelande?
Börjar indexet på 1 istf 0 ?
/johan/Sv: varför fungerar inte detta??
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...
/JohanSv: varför fungerar inte detta??
Sv: varför fungerar inte detta??
Sv: varför fungerar inte detta??
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