AccessTr.neT

Sayfalar: 1 2 3

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?

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

Left ile Mys koşulu kodda olmayacaktı abey.

Mesajda yazmıştım Img-cray

tabledef benzeri bir komut vardı ama bilgisayar yok deneyemiyorum, o kodu araştırabilirsiniz.

Dim db as Database

Dim td as TableDef

Set db = CurrentDb()

For Each td In db.TableDefs

  MsgBox td.Name

Next td

(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?

Sayfalar: 1 2 3

feraz

berduş

feraz

berduş

ozanakkaya

feraz