Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/02/2009 09:15
Konu Sahibi
cobanoglu
Yorumlar
4
Okunma
2703
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

cobanoglu

Üye
 38
 16
 5
 30/01/2009
0
 Kastamonu
 
 Ofis 2003
 11/03/2016,12:30
Çözüldü 
sorgularımı yada raporları form üzerindeki liste kutusunda gösterebilirmiyim.mümkünmüdür.



Kullanici Avatari

C*e*l*o*y*c*e

Uzman
ME.... B.....
 46
 3.149
 66
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,06:10
Çözüldü 
elbette,bu tür örnek çok ,form üzerindeki örnekleri incele


Celosoft Yazılım

Kullanici Avatari

tdsharun

Aktif Üye
 36
 778
 27
 06/11/2008
231
 Kütahya
 
 Ofis 2003
 31/12/2011,02:16
Çözüldü 
Ş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...



Kullanici Avatari

Seruz

Uzman
SE.... UZ....
 47
 1.562
 7
 30/10/2008
814
 Tekirdağ
 BT Şefi
 Ofis XP
 22/10/2018,15:26
Çözüldü 
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.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'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 Select


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

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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 '5


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.


Ek Dosyalar
.rar   Database Objects.rar(Dosya Boyutu: 15,22 KB / İndirme Sayısı: 50)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs

Kullanici Avatari

cobanoglu

Üye
 38
 16
 5
 30/01/2009
0
 Kastamonu
 
 Ofis 2003
 11/03/2016,12:30
Çözüldü 
Sn.Seruz istediğim tam olarak buydu hatta fazlası bile.cevap veren tüm arkadaşlara teşekkür ederim




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Süzme/ Filtreleme Ve Rapor Açmak İstiyorum alimadam 6 184 19/10/2018, 03:03
Son Yorum: alimadam
Çözüldü A Formu Üzerinden Butonla Çağrılan B Formunda Kayıt Hesaplama Rapor Alma Oğuz Türkyılmaz 9 179 14/10/2018, 13:57
Son Yorum: Allback
Çözüldü Rapor Alanını Sabitleme derebeyi 2 140 30/09/2018, 15:11
Son Yorum: derebeyi
Çözüldü Formdan Girilen Kaydın Aynı Form'dan Sadece O Kayıt İçin Rapor Çıktısı Alamıyorum. Oğuz Türkyılmaz 9 289 20/09/2018, 18:26
Son Yorum: Oğuz Türkyılmaz
Çözüldü Access Runtime İle Çalışırken İstemci Ayarlarında Sorgu Onayı Problemi hbal09 4 151 11/09/2018, 17:59
Son Yorum: hbal09

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444