السلام عليكم
عندى كود كما يلى :
Dim Comp
Dim Grant
Comp= fOSMachineName
MsgBox ("Computer Name is ") & Comp
Grant = DLookup("Main", "Grant", "Pcname = " & Comp)
fOSMachineName
هى تعطى اسم الجهاز
عند التشغيل يعطى الرساله التاليه
The expression you entered as a query parameter produced this error :The object doesn't contain the Automation object
فما سبب هذا الخطأ ؟؟؟؟
وشكرا
شكرا اخت زهره على الاهتمام
لكن ما اسأل عنه هو المعادله الخاصة ب dlookup حيث يعطى الرساله المذكورة عاليه
انا عامل جدول وواضع فيه اسماء الاجهزة كلها وايضا حقل اخر true or false وعند بدء تشغيل البرنامج يحصل على اسم الجهاز ويروح يدور على القيمه المقابله له فى جدول الاجهزه
وتم استخدام dlookup ولكن يعطى الرساله الخطأ
اسف عل الاطاله
وشكرا مره اخرى
ارجو ان اكون اوضحت المطلوب بدقه
أتوقع أن المشكلة في هذا الكود :
Grant = DLookup("Main", "Grant", "Pcname = " & Comp)اعتقد أنه لابد أن يكون هكذا:
Grant = DLookup("Main", "Grant", "Pcname Like '" & Comp & "'")فقط انسخ الكود والصقه مكان القديم 
تم تعديل هذه المشاركة بواسطة superhot3000 في 15 أكتوبر 2012 في 08:25
السلام عليكم ورحمة الله وبركاته
اقتباسارجو ان اكون اوضحت المطلوب بدقه
أخي الكريم لماذا لا تضع قاعدة بياناتك أو ضع فقط الجزء الذي تريد الاستفسار عنه حتى يتم حل مشكلتك بشكل صحيح
وخصوصاً أن هناك تعليمات برمجية وجداول
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
شكرا اخى SUPERHOT3000 على الاهتمام فالكود يعمل بشكل صحيح
شكر مره اخرى