superfly85
Gebruiker
- Lid geworden
- 14 okt 2007
- Berichten
- 7
Beste helpers!
Ik ben bezig met het maken van een database echter wil het een en ander niet lukken.
In het hoofdmenu moet een lijst met rapporten worden weergegeven (dynamisch) en zodra je erop klikt moet kunnen kiezen of je een afdrukvoorbeeld ervan wilt of kunnen uitvoeren naar word. (zie bijlage 1)
Ik heb de volgende code al geprobeerd, wil alleen niet zo werken:
Function rapporten() As String
Dim db As Database, ct As Container, s, t As String, i As Integer
Set db = CurrentDb
On Error GoTo functionfout
Set ct = db.Containers!Reports
i = 0
While i >= 0
t = ct(i).Name
s = s + t + ";"
i = i + 1
Wend
functionverder:
rapporten = s
Exit Function
functionfout:
Resume functionverder
End Function
Alleen de rapporten worden niet weergegeven in het lijstje?? Weet iemand van jullie wat ik verkeerd doe?
Ik ben bezig met het maken van een database echter wil het een en ander niet lukken.
In het hoofdmenu moet een lijst met rapporten worden weergegeven (dynamisch) en zodra je erop klikt moet kunnen kiezen of je een afdrukvoorbeeld ervan wilt of kunnen uitvoeren naar word. (zie bijlage 1)
Ik heb de volgende code al geprobeerd, wil alleen niet zo werken:
Function rapporten() As String
Dim db As Database, ct As Container, s, t As String, i As Integer
Set db = CurrentDb
On Error GoTo functionfout
Set ct = db.Containers!Reports
i = 0
While i >= 0
t = ct(i).Name
s = s + t + ";"
i = i + 1
Wend
functionverder:
rapporten = s
Exit Function
functionfout:
Resume functionverder
End Function
Alleen de rapporten worden niet weergegeven in het lijstje?? Weet iemand van jullie wat ik verkeerd doe?
Bijlagen
Laatst bewerkt: