28/11/2019, 11:13
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 koduSELECT TblOgrenci.sirano, TblOgrenci.adısoyadı
FROM TblOgrenci INNER JOIN TblNufus ON TblOgrenci.sirano = TblNufus.ogrtc;
açılır kutu SQLbuton 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