Hej!
Har gjort ett obundet formulär där jag ska ha en combobox för att listra rapporter.
Jag har gjort följande
Skapat en combobox med namnet cboRapporter
Skapat en kryssruta med namnet chkGranska.
Skapat enkommandonapp med namnet cmdKörRapport
Sedan skapade jag en ny modul med följande kod för att fylla rutan
Kod:
Function AllaRapporter(cbo As Control, nr, rad, kol, kod)
Dim minDB As Database
Dim doks As Documents
Dim i As Integer
Static sRptNamn(255) As String ' Namnvektor
Static iAntalRpt As Integer
Select Case kod
Case 0 'Initialisera listan.
Set minDB = CurrentDb()
Set doks = minDB.Containers!Reports.Documents
iAntalRpt = doks.Count
For i = 0 To iAntalRpt - 1
sRptNamn(i) = doks(i).Name
Next i
AllaRapporter = True
Case 1 'öppna.
AllaRapporter = Timer 'Uniktvärde
Case 3 'hämta antalet rader
AllaRapporter = iAntalRpt
Case 4 ' hämta antalet kolumner
AllaRapporter = 1
Case 5 ' hämta kolumnbredd
AllaRapporter = -1 'standardbredd
Case 6 'hämta data från vektorn
AllaRapporter = sRptNamn(rad)
Case 9
Erase sRptNamn
iAntalRpt = 0
End Select
End Function
För att se rapporterna i comboboxen så angav jag funktionens namn i typ av radkälla och lämnade radkälla tomt.
Markera combrutan och egenskaper
För att få Så rapporterna körs när man trycker på knapp:
så skrev jag följande kod vid Onclick
Kod:
Private Sub cmdKörRapport_Click()
Dim igranskaFlagga As Integer
If chkGranska = True Then
igranskaFlagga = acPreview '2
Else
igranskaFlagga = acNormal '0
End If
On Error GoTo Felhant:
If Not IsNull(Me![cborapporter]) Then
DoCmd.OpenReport Me![cborapporter], igranskaFlagga
End If
On Error GoTo 0
Exit Sub
Felhant:
MsgBox "Fel " & Err & "; " & Error$, vbInformation, "Rapporter!"
Resume Next
End Sub
Hur får jag sedan min checkbox att granska vald rapport i comboboxen?