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
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
Dim db as Database
Dim td as TableDef
Set db = CurrentDb()
For Each td In db.TableDefs
  MsgBox td.Name
Next td
Cevapla
#6
(19/01/2020, 19:23)ozanakkaya yazdı:
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?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task