العمل على CurrentDb

السلام عليكم

اخي qoblan

عليك بتعريف قاعدة البيانات اولا ثم الجدول المطلوب ثم الحقول من هذا الجدول

بالطريقة الاتية :

Dim db As Database, mytable As Recordset, fields As String
    Set db = CurrentDb
    fields = "Select * from table1 "
    Set mytable = db.OpenRecordset(fields, DB_OPEN_DYNASET)

مع تحياتي

جرب

DAO 3.6

شكر أعزائي سأجرب