Skip to main content

AccessTr.neT


Belirli Objeleri Alma

Belirli Objeleri Alma

Çözüldü #1
Arkadaslar Merhaba,

asagida ki kod forumdan alinmsitir. Bu kod veri tabanindaki butun tablo ve sorgulari getirmektedir (conboya). Ben butun tablo ve sorgulari degil, belirli tablo ve sorgularin gelmesi icin bu kodda nasil degisiklikler yapabilirim. (ornegin; a, b c, d tblolari gelsin. k.l.m.n sorgulari gelsin. Digerlerini istemiyorum. kodun icine bu tablo ve sorgu isimlerini yazabilirmiyiz.

*******************************
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
Dim s As String
'Önce tablolarý al
For Each obj In dbs.AllTables
If Left(obj.Name, 4) <> "mSys" Then s = s & obj.Name & ";"
Next
'Þimdi de sorgularý
For Each obj In dbs.AllQueries
s = s & obj.Name & ";"
Next
If s <> "" Then Kaynaklar.RowSource = s
**********************************

Selamlar
İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Bir tablo yapın üç alan olsun. Birinci alan form, sorgu, rapor vs. nin adını kaydetsin. İkinci alana form, sorgu, rapor vs. türü ne ise onu yazarsınız. Üçüncü alana ise gösterilip gösterilmeyeceği ile ilgili bir Evet/Hayır alanı koyarsınız. Göstermek istediklerinizi Evet olarak işaretlersiniz.

Bir form yapın orada da tablodaki gösterilmesini Evet olarak işaretlediğiniz şeyleri gösterirsiniz.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #3
Sn.Alpteki99,
Ilginiz icin cok tesekkur ederim.
Ancak;
ben bu istediklerimi 1.mesajdaki kod un icinde yapmak istiyorum. Bu kod un icinde bir tablo veya bir sorguyu belirlemek istiyorum.

Dediginiz sekilde yaptigim zaman bu, kodun oldugu combo da nasil calistirilir ki SIZIN formunuz?

Selamlar

İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Combo'nun kaynağı olarak sorgunuz olacak değil mi? İşte o sorguda bahsetmiş olduğum tablodan bilgi çekeceksiniz. Kriter ne? Göster alanı Evet olarak işaretli olanlar.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
istediğin tablo ve sorgularını ayırt edeceğin bir özellik yap.listelenmesini istediğin tabloların başına lst ekle lsttblanatablo gibi.
kodda da
If Left(obj.Name, 4) <> "mSys" Then s = s & obj.Name & ";"
bölümünü
If Left(obj.Name, 3) = "lst" Then s = s & obj.Name & ";"
olarak değiştir.
sorgularınıda aynı şekilde yapabilirsin.

İyiki Varsın Access Img-grin
Cevapla
Çözüldü #6
Ozur dilerim arkadaslar,

ancak bunu tam olarak anlayamadim, bir ornekle anlatabilirmisiniz.

(izahata muhtac olmam hasabiyle rahatsizlik verdigim icin kusura bakmayin lutfen)

Selamlar

İrtifâ-ı kadr için tevâzu lazım Âdem'e, Şemsi gör kim sâyesin salmış ayaklar altına. Hersekli Arif Hikmet

Subco, 09-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da