accdbExe

accdbExe
لینک سایر سایت‌های آموزش Access

اطلاعات تماس و ارسال نظر

شروع کار از: فروردین 1402

این یک نمونه کوچک از یک تابع است که نام تمام فیلدهای تمام جداول در پایگاه داده شما را در پنجره مستقیم محیط VBA چاپ می کند.

Sub allColumns()

Dim x As Integer

Dim y As Integer

Dim db As DAO.Database

Set db = CurrentDb

For x = 0 To db.TableDefs.Count - 1

     Debug.Print db.TableDefs(x).name

          For y = 0 To CurrentDb.TableDefs(x).Fields.Count - 1

               Debug.Print CurrentDb.TableDefs(x).Fields(y).name

          Next

Next

db.Close Set db = Nothing

End Sub