الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل على كود

بدأه أبا عمر في 26 يناير 2013 · 5 رد · 338 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
السلام عليكم ورحمة الله وبركاته 
كيف الحال
إخواني هذا الكود لفتح جدول "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
جزاكم_الله_خيراً
 

تم تعديل هذه المشاركة بواسطة أبا عمر في 26 يناير 2013 في 13:25

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#2

اخي الكريم

 

 

 
غير هذا السطر فقط من القاعدة الحالية الى القاعدة المرتبطة
Set DB = CurrentDb    'القاعدة الحالية
 
استبدله بهذا السطر للقاعدة المرتبطة
Set DB = "C:\Folder\TableDB.mdb"    'ضع هنا مسار القاعدة المرتبطة الخاصة بك
 
 
بالتوفيق

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3

جزاك_ ربي_ خيرا الجزاء أختي الكريمة

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#4

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

تم تعديل هذه المشاركة بواسطة أبا عمر في 27 يناير 2013 في 07:02

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

#5
 

تفضل اخي الكريم

استخدم احد الكودين فكلاهما صحيح

 

 

استخدم هذا الكود

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
1

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#6

مشكورة أختي الفاضلة " جزاكم_الله_خيراً "

عَنْ عَائِشَةَ ر ضي الله عنها قَالَتْ: سَمِعْتُ النَّبِيَ يَقُولُ: «الأَرْوَاحُ جُنُودٌ مُجَنَّدَةٌ؛ فَمَا تَعَارَفَ مِنْهَا ائْتَلَفَ، وَمَا تَنَاكَرَ مِنْهَا اخْتَلَفَ»

مواضيع مشابهة