#1
sorgularımı yada raporları form üzerindeki liste kutusunda gösterebilirmiyim.mümkünmüdür.
Sorgu / rapor listeleme
#1
#2
elbette,bu tür örnek çok ,form üzerindeki örnekleri incele
#3
Şu linkteki örnek tam da sizin istediğiniz gibi sanırım. Bi bakın. (2. mesaj, Alpeki99 hocamın ekteki örneği)
Kolay gelsin...
Kolay gelsin...
#4
Soruyu ya ben yanlış anlıyorum, ya da sn. CELOYCE ve sn. tdsharun.
Ben yanlış anladıysam da en azından farklı bir bilgi vermiş olurum.
Ben bu soruyu; bir Access dosyasında bulunan,
tüm sorgu veya raporların isimlerinin listesini,
formdaki bir liste kutusunda görmek olarak anladım.
Daha önce indirdiğim, arşivimde bulunan,
Access Örneklerinden birindeki bir örneği ekte gönderiyorum.
Örnekteki dosyanın, temel olarak bir Access dosyasındaki objelerin listesini alma şekli bu.
For Each ile bu şekilde de alınabilir kodda.
Mesela daha önce forumda kullanılmış,
istenilen form haricindeki tüm formları kapatan bir kod örneği
Sizin tam olarak ihtiyacınız nedir bilmiyorum ama
form olarak ele alırsak, kodlarla açık olan formları bulmak,
bir formun açık olup olmadığını anlamak gibi şeyler yapılabilir.
Ben yanlış anladıysam da en azından farklı bir bilgi vermiş olurum.
Ben bu soruyu; bir Access dosyasında bulunan,
tüm sorgu veya raporların isimlerinin listesini,
formdaki bir liste kutusunda görmek olarak anladım.
Daha önce indirdiğim, arşivimde bulunan,
Access Örneklerinden birindeki bir örneği ekte gönderiyorum.
Örnekteki dosyanın, temel olarak bir Access dosyasındaki objelerin listesini alma şekli bu.
Kod:
'MsysObjects is a hidden table that Access creates to hold Database Information
'Select Tools -> Options -> View and check the Hidden Objects Check Box
Select Case ObjectType
Case 1 'Tablolar
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' AND Left$([Name],4)<>'MSys' " & "AND MSysObjects.Type =1 ORDER BY MSysObjects.Name"
Case 2 'Sorgular
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' " & "AND MSysObjects.Type =5 ORDER BY MSysObjects.Name"
Case 3 'Formlar
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' " & "AND MSysObjects.Type =-32768 ORDER BY MSysObjects.Name"
Case 4 'Raporlar
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' " & "AND MSysObjects.Type =-32764 ORDER BY MSysObjects.Name"
Case 5 'Makrolar
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' " & "AND MSysObjects.Type =-32766 ORDER BY MSysObjects.Name"
Case 6 'Modüller
strSQL = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' " & "AND MSysObjects.Type =-32761 ORDER BY MSysObjects.Name"
End SelectMesela daha önce forumda kullanılmış,
istenilen form haricindeki tüm formları kapatan bir kod örneği
Kod:
Function TumFormlarKapansin()
Dim AnaMenu As Object
Dim strName As String
For Each AnaMenu In Application.CurrentProject.AllForms
If AnaMenu.Name <> "Anamenüadı" And AnaMenu.Name <> Me.Name Then
'ana menüyü buraya yazıyoruz ki o formu kapatmasın.
'sadece aktif açık olan menü dışındakileri kapatsın.
DoCmd.Close acForm, AnaMenu.Name, acSaveYes
End If
Next AnaMenu
End Function
---
Diğerleri;
Application.CurrentData.AllTables
Application.CurrentData.AllQueries
Application.CurrentProject.AllForms
Application.CurrentProject.AllReports
Application.CurrentProject.AllMacros
Application.CurrentProject.AllModules '5form olarak ele alırsak, kodlarla açık olan formları bulmak,
bir formun açık olup olmadığını anlamak gibi şeyler yapılabilir.
Database Objects.rar
(Dosya Boyutu: 15,22 KB | İndirme Sayısı: 66)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Konuyu Okuyanlar: 1 Ziyaretçi
