استفسار عن رسالة خطأ

السلام عليكم

أختي mazyoona ، بارك الله فيك

الخطأ 2501.

هل تحصلين على هذا الخطأ في كل الأحول أم عندما لا يكون هناك سجلات للطباعة فقط ؟

والرجاء عرض الكود الموجود في حدث النقر لز التحكم الذي أنتج الخطأ لنطلع عليه.

مع الاحترام والتقدير

alsalam 3lykom

sorry Khader my computer doesnt write arabic today

this is the code i used and it was work but after i restore my computer system it stop working

the code:

Dim strDocName As String

Dim strWhere As String

strDocName = "contract"

strWhere = "[contract No]=" & Me![contract No]

DoCmd.OpenReport strDocName, acNormal, strWhere

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

أختي mazyoona ،

mazyoona كتب:

السلام عليكم

أسفة خضر ، حاسوبي لا يكتب بالعربية اليوم

هذا هو الكود المستخدم وكان يعمل ولكن بعد استرجاع نظام حاسوبي توقف عن العمل.

الكود

Dim strDocName As String
Dim strWhere As String
   
   strDocName = "contract" 
   strWhere = "[contract No]=" & Me![contract No]
   DoCmd.OpenReport strDocName, acNormal, strWhere

←

أرجو تجربة الكود التالي حرفيا : Would you please try this code Literally

Dim strDocName As String
Dim strWhere As String
   
   strDocName = "contract" 
   strWhere = "[contract No]= '" & Me![contract No] & "'"
   DoCmd.OpenReport strDocName, acNormal,, strWhere

مع الاحترام والتقدير

السلام عليكم

أخ خضر شكرا للمساعدة

استخدمت الكود الي كتبته لي لكن لم يعمل معاي

و جربت نفس الكود الي كان عندي مع تعديل السطر الاخير ليطابق الكود الذي كتبته فاشتغل

يعني الكوما عامله شغل بعد

شكرا جزيلا