Skip to main content

AccessTr.neT


Access Tablo Adlarını Bulma

Access Tablo Adlarını Bulma

Çözüldü #1
Merhaba.

Accesteki tablo adları nasıl bulunuyor.

Not:Ado schmea ile olmayacak.

Alttaki gibi kod var lakim Msy gibi gizli tablo adlarınıda gösteriyor bu sorun if ve Left gibi olayları ile çözülür lakin başka yolu varmıdır?




Kod
Dim obj As AccessObject, dbs As Object
    
    Set dbs = Application.CurrentData
    For Each obj In dbs.AllTables
        MsgBox obj.Name
    Next obj

ve Forms ("xx") form için böyle kod varken tablo içinde varmı aynu yöntem?
Cevapla
#2
Visual Basic Code
SELECT MSysObjects.Name AS table_name FROM MSysObjects WHERE (((Left([Name],1))<>"~") AND ((Left([Name],4))<>"MSys") AND ((MSysObjects.Type) In (1,4,6)) AND ((MSysObjects.Flags)=0)) order by MSysObjects.Name 
tablo isimleri alan böyle bir kod var
Cevapla
#3
Left ile Mys koşulu kodda olmayacaktı abey.

Mesajda yazmıştım Img-cray
Cevapla
#4
tabledef benzeri bir komut vardı ama bilgisayar yok deneyemiyorum, o kodu araştırabilirsiniz.
Cevapla
#5
Visual Basic Code
Dim db as Database
Dim td as TableDef
Set db = CurrentDb()
For Each td In db.TableDefs
  MsgBox td.Name
Next td
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#6
(19/01/2020 19:23)ozanakkaya Adlı Kullanıcıdan Alıntı:
Visual Basic Code
Dim db as Database
Dim td as TableDef
Set db = CurrentDb()
For Each td In db.TableDefs
  MsgBox td.Name
Next td

Bu kodu denemiştim ve alttaki kod satırında hata vermişti yine verdi hatayı.

Dim db As Database


Alttaki içinde çözüm varmı?
Alıntı:ve Forms ("xx") form için böyle kod varken tablo içinde varmı aynu yöntem?
Son Düzenleme: 19/01/2020, 19:37, Düzenleyen: feraz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task