التعديل على كود فتح جدول

[أبا عمر]

السلام عليكم ورحمة الله وبركاته 
كيف الحال

إخواني هذا الكود لفتح جدول "ITEMS" و التأكد من رصيد الأصناف وهو شغال معي تمام  لكن أريد تعديل الكود ليعمل في حال أن جدول ITEMS مرتبط أي قاعدة البيانات مقسمة
 

                                                                                                                                                  Dim BD As Database

                                                                                                                                                 Dim TB As Recordset

                                                                                                                                                   Set DB = CurrentDb

                                                                                         Set TB = DB.OpenRecordset("Items", DB_OPEN_TABLE)

    

                                                                                                                                                Do While Not TB.EOF

                                                                                                                            If TB!Balance <= TB!LowLimt Then

                                                                               MsgBox "رصيد متدني لصنف :    " & TB!ItemName, vbInformation

                                                                                                                                                                        End If

                                                                                                                                                             TB.MoveNext

                                                                                                                                                                         Loop
جزاكم_الله_خيراً

[عبدالله المجرب]

السلام عليكم 

هذا رد منقول للاستاذة زهرة 

اضعه للفائدة

Dim BD As DAO.Database
Dim TB As DAO.Recordset
Set DB = OpenDatabase ("C:\Folder\TableDB.mdb")          'ضع مسار قاعدة بيانات  الجداول الخاصة بك هنا
Set TB = DB.OpenRecordset("Items", DB_OPEN_TABLE)
Do While Not TB.EOF
If TB!Balance <= TB!LowLimt Then
MsgBox "رصيد متدني لصنف :    " & TB!ItemName, vbInformation
End If
TB.MoveNext
Loop
 
TB.Close
Set TB = Nothing
Set DB = Nothing
 
 
او استخدم هذا الكود
Dim BD As DAO.Database
Dim TB As DAO.Recordset
Dim strPath as String
strPath= "C:\Folder\TableDB.mdb"         'ضع مسار قاعدة بيانات الجداول الخاصة بك هنا 
Set DB = DBEngine.Workspaces(0).OpenDatabase(strPath, True)
Set TB = DB.OpenRecordset("Items", DB_OPEN_TABLE)
Do While Not TB.EOF
If TB!Balance <= TB!LowLimt Then
MsgBox "رصيد متدني لصنف :    " & TB!ItemName, vbInformation
End If
TB.MoveNext
Loop
 
TB.Close
Set TB = Nothing
Set DB = Nothing

[أبا عمر]

مشكور أخي الكريم عبد الله