jjafferr

الظاهر حظي فوق النخل اليوم 🙂 ابو عبدالله جاب اسمي مرتين ("هارد لك" اخوي موسى ، مع اننا نعرف انك المقصود بالاسم الاول 🙂 ) جعفر

السلام عليكم 🙂 حسب قرأتي من موقع مايكروسوفت الآن https://techcommunity.microsoft.com/t5/microsoft-365-blog/helping-users-stay-safe-blocking-internet-macros-by-default-in/ba-p/3071805 مايكروسوفت عملت تحديث يقوم بإلغاء التحديث الذي عمل المشكلة اعلاه ، لذا ، رجاء عمل تحديث للكمبيوتر الذي يحتوي على ملف الواجهة والكمبيوتر الذي يحتوي على ملف الجداول ، ورجاء إخبارنا عن النتيجة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي موسى اعطاك سمكة ، واليك طريقة اصطياد السمكة بطريقة سهلة 🙂 جعفر

حياك الله اخوي ابو احمد في بيتك الافتراضي وسط اخوتك 🙂 جعفر

وعليكم السلام 🙂 تفضل 🙂 التغييرات اللي عملتها: 1. الوحدة النمطية "جلب الصور" تم تغييرها بالكامل ، 2. مناداة الدالة في الوحدة النمطية اعلاه اصبح : 'figura = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة") figura = GetOpenFile("c:\windows\desktop\", ".حدد مكان الصورة") . وعليه ، فسواء استخدمت طريقتي ، او حذفت الدالة كلها واستخدمت دوال اخي @Moosak فالنتيجة سواء 🙂 جعفر الموظفين.accdb

السلام عليكم 🙂 اخي ابو احمد @AbuuAhmed اسمح لي اكون اول من يُهنّيك على الترقية 🙂 هي مجرد القاب للمحترفين ، وتعريف الباقين بكم 🙂 جعفر

وعليكم السلام 🙂 إذا ما عندك برنامج قراءة pdf على كمبيوترك (مثل Adobe Acrobat Reader او Fox it pdf Reader او ... ) ، فالاكسس لن يعرض ملف الـ pdf في النموذج ، وانما يُخرج لك هذه الرسالة !! تابع هذا الموضوع: فعندك حلين: 1. تنصب احد برامج قراءة pdf على كمبيوترك ، 2. او تفتح ملف pdf باليرنامح الافتراضي والذي قد يكون المتصفح Chrome او Edge. جعفر

وعليكم السلام 🙂 هذا ليس حلا مقبولا إلا في حالات نادرة ، وهذه ليست منها !! في اول مشاركة لي ، وضعت لك حلين ، احدهم المجلد الموثوق به ، والآخر رابط به مجموعة حلول اخرى ، فآن الاوان ان تنظر فيها 🙂 جعفر

وعليكم السلام 🙂 وقد قمت بشرح اوسع للدالة هنا : . جعفر

بالعكس ، كنت اتمنى اشوف استعلام يجمعهم كلهم 🙂 جعفر

تفضل 🙂 . جعفر

شكرا اخوي محمد 🙂 الآن عرفنا وين الخطأ !! اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄 جعفر

. . جعفر

وعليكم السلام 🙂 احفظ البرنامج في مجلد موثوق به ، وافتحه من هناك 🙂 وهذه طرق اخرى لحل المشكلة: https://www.devhut.net/bypassing-microsofts-new-blocking-of-macros-vba-code/ جعفر

. . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر

السلام عليكم 🙂 الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 المفروض يكون: Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX DoCmd.Close acForm, Me.Name End Sub او Private Sub GO152_Click() On Error Resume Next dim GE2 as long,SX2 as long GE2=me.GE : SX2= me.SX DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & GE2 & " and [NOV]=" & SX2 End Sub جعفر

ياريت تعطينا خطوات العمل ، علشان نعرف شو نعمل ، للحصول على شو !!

هذا الروابط بتفيدك . . . جعفر

السلام عليكم 🙂 عمل جميل اخوي موسى 🙂 والكاسبريكاي ما اعترض على شيء 🙂 جعفر

وعليكم السلام 🙂 1. المشكلة مو هنا ، ولكن في الدالة اللي في المربع الاحمر ، خلينا نشوفها كاملة ، 2. انت غير محتاج الى هذه الاسطر ، تقدر تحذفها ، مع عمل التغيير حسب المربع الاصفر . جعفر

السلام عليكم 🙂 اخبرتك المرة السابقة: وبمرفقك الجديد حصلت على نفس المشكلة: . وبالدخول في الكود وعمل Compile: . هذا الكائن Combobox غير موجود في النموذج . جعفر

السلام عليكم 🙂 استخدم ctrl+G جعفر

واعمل compile للبرنامج قبل ان تعطية المستخدمين : . وانصحك استخدام برنامجي التالي والذي لا استغنى عنه لعدة مرات في اليوم ، والذي يقوم بالعمل اعلاه ، بالاضافة الى العديد من التصفيات ، ويخزن لك نسخة احتياطية : جعفر

وعليكم السلام 🙂 مو جميع انواع خطوط الباركود Code39 يعملون بطريقة صحيحة ، في الرابط التالي ، ابحثي عن "ب. عمل الباركود:" ، فقد كتبت عن تجربتي : . جعفر