Kişiye Göre Açılır Listeden Rapor Almak

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));

Liste kutusu Sql kodu

SELECT TblOgrenci.sirano, TblOgrenci.adısoyadı

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

açılır kutu SQL

buton kodu

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

Liste kutusunun sütun sayısı?

Liste kutusunda 2 sütun var; 0cm;3cm

[attachment=30894]

Elinize kolunuza sağlık. Teşekkür ediyorum.

sizde neden hata veriyormuş buldunuz mu?