Loop through row source in combo box

[Ruegen]

I'd like to loop through a combo box and for every id run a task



so if combo box = 5 then open report, save as pdf, close etc

Can anyone tell me how to loop through a combo box row source?

[Ruegen]

Nevermind I used:

Dim strSql As String


    Dim intComboItem As Integer
    Dim MyPDFPath As String
    For intComboItem = 0 To Me.CboArea.ListCount - 1
       
        




strSql = "SELECT tblShows.ID, tblShows.ShowName, tblShows.Blurb, tblShowTour.DateTouringFrom, tblShowTour.DateTouringUntil, tblShowTour.TypeID, tblShowTour.AreasID, tblShowTour.YearID " & vbCrLf & _
"FROM tblYear INNER JOIN (tblType INNER JOIN (tblTerms INNER JOIN (tblStates INNER JOIN (tblShows INNER JOIN (tblAreas INNER JOIN tblShowTour ON tblAreas.ID = tblShowTour.AreasID) ON tblShows.ID = tblShowTour.ShowsID) ON tblStates.ID = tblAreas.StatesID) ON tblTerms.ID = tblShowTour.TermsID) ON tblType.ID = tblShowTour.TypeID) ON tblYear.ID = tblShowTour.YearID " & vbCrLf & _
"WHERE (((tblShowTour.TypeID)=[Forms]![frmOrganiser]![CboType]) AND ((tblShowTour.AreasID)=" & Me.CboArea.ItemData(intComboItem) & ") AND ((tblShowTour.YearID)=[forms]![frmOrganiser]![CboYear]));"


    
    
'makes a temp folder
 If Dir("C:\PDF Areas", vbDirectory) = "" Then
        MkDir ("C:\PDF Areas")
    End If




DoCmd.OpenReport "rptPrintOut", acViewPreview, strSql, "", acNormal
DoCmd.SelectObject acReport, "rptPrintOut"
MyPDFPath = "C:\PDF Areas\" & Reports!rptPrintOut.Caption & ".pdf"
DoCmd.OutputTo acOutputReport, "", acFormatPDF, MyPDFPath, False
DoCmd.Close acReport, "rptPrintOut"
'
        
        
        
    Next