كود نموذج بحاجة لتعديل

اخواني الأعزاء هذا الكود يستدعي جميع الجداول بقاعدة

البيانات إلى النموذج

لكن أنا لا ارغب بإستدعاء كل الجداول ارغب بإستدعاء

بعضها فقط مثال ذلك

ارغب استدعاء جداول المعاملات الوارده اسماء جداولها

كالتالي

(1428)(1429)(1430)

ارجوا منكم التعديل فيه بحيث يستورد جداول انا احدد

اسمائها

وجزاكم الله خير الجزاء

Private Sub asd_GotFocus()

Dim obj As AccessObject, dbs As

Object

Dim all

Set dbs =

Application.CurrentData

For Each obj In

dbs.AllTables

If Left(obj.Name, 4) <>

"msys" Then

If IsEmpty(all) Then

all = obj.Name

Else

all = all & ";" & obj.Name

End If

End If

Next obj

asd.RowSource = all

End Sub