SELECT MSysNavPaneGroups.Id, MSysObjects.Name

FROM (MSysNavPaneGroupCategories INNER JOIN MSysNavPaneGroups ON MSysNavPaneGroupCategories.Id = MSysNavPaneGroups.GroupCategoryID) INNER JOIN (MSysNavPaneGroupToObjects INNER JOIN MSysObjects ON MSysNavPaneGroupToObjects.ObjectID = MSysObjects.Id) ON MSysNavPaneGroups.Id = MSysNavPaneGroupToObjects.GroupID

WHERE (((MSysNavPaneGroups.Id)=9));

SELECT TblOgrenci.sirano, TblOgrenci.adısoyadı

FROM TblOgrenci INNER JOIN TblNufus ON TblOgrenci.sirano = TblNufus.ogrtc;

Dim list As Variant

For Each list In Me.Liste.ItemsSelected

DoCmd.OpenReport Me.Liste.coloumn(1, list), acPreview, , "sirano=" & Me.kimo, acWindowNormal

Next list