jjafferr

السلام عليكم ابا جودي انا اعتذر منك ، فالكود الذي اعطيتك اياه ، خلق خطأ آخر: If Len(strFileNames & "") = 0 والحل في هذا الكود ان شاء الله (السطر الاول من الكود ادناه) ، وبقية الكود موجود عندك اصلا: strFileNames = "" strFileNames = apiBrowseFiles("Select a File, OR Multiple Files", sFolder, , strFilter) ' user didn't select any file, s/he proceed cancel If UBound(strFileNames) = 0 Then 'No Path, Exit Sub End If جعفر

هلا ومرحبا بأخوي حربي الله يسلمك ويعافيك ان شاء الله جعفر

وعليكم السلام هذا ايميل بصيغة "smime.p7m" مشفّر ، ويحتاج مفتاح لفك التشفير ، وهذا المفتاح يكون فقط على الكمبيوتر الذي عليه برنامج الايميل جعفر

هلا والله

عفوا أخي أوس انا لا احبذ On Error Resume Next ، لانه لا يخبرنا عن الاخطاء التي تحدث في الكود ، واستعمالي لها يكون في نطاق ضيق الطريقة الصحيحة للتعامل مع هذه المشكله هي: جعفر

السلام عليكم انا اضيف لك سبب ، بالاضافة الى سبب أخوي أبو إبراهيم: برنامج مسقط التقارير يُعتبر برنامج قائم بحد ذاته ، و إحمل برامجك داخل قاعدة بياناتك والذي كذلك يُعتبر برنامج قائم بحد ذاته ، اي يمكن استعمالهم بدون عملية الدمج (طبعا برنامج مسقط التقارير يحتاج الي تعديل ليعمل بمفرده (والنسخة التالية ستكون كذلك ان شاء الله) ، ولكن البرنامج الآخر فيمكن ان يعمل بطريقة مستقله) ، انت لست بحاجة الى نقل الكائنات الى برنامجك ، فالبرنامج يستطيع ان يقوم بالعمل وهو برنامج مستقل ، بمجرد ان تناديه برمجيا ، ولكن انظر المشكلة التي صادفة omarahmed1424 لما اراد دمج البرنامج في برنامجه: ولاحظ جوابي عليه: جعفر

1. هذا غير صحيح ابا جودي ، ولكن الكود يقوم بعمله "مجلدا داخل مجلدا داخل مجلد": يعني مثل ما قلت: جعفر

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

همممم هذا علم وتخصص كذلك كلام سليم 100% ، شكرا على الملاحظة أخوي رمهان جعفر

تم عمل اللازم وسيتم حذف الايميل بعد دقائق ، حتى لا يستغله القراصنة جعفر

وعليكم السلام أخي ابا جودي شايفك اليومين دول دايخ على 50 شغلة ما ينفعش كده ، خلص شغلة ، وابدأ بغيرها ليه تروح بعيد ، وانت عندك احد أفضل برامج التحويل بين صيغ ملفات الصور ، والتحكم فيها: http://www.irfanview.com/ هذه احد الاوامر اللي فيه ، واللي يعمل اللي تريده: i_view32.exe /multipdf=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg) وللعلم ، انا تكلمت عن البرنامج هنا: وهنا وهنا بالذات لموضوع الماسح الضوئي scanner اللي عندك سؤال عنه جعفر

وعليكم السلام أختي اعملي استعلام ليكون مصدر التقرير ، سواء بجدول او اكثر ، وعلى اساسه سيكون الذي تطلبيه اسهل في العمل جعفر

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر

حياك الله الظاهر ان العلم بنفسه لا ينفع ، لذا كان لازم أحضّر الشيوخ بالبخور علشان يخبروني هذه المعلومة اللي ما كانت موجودة هذا الكود الجديد Forms!test1!ID.SetFocus [Forms]![test1]![مربع_تحرير_وسرد15] = Me.ID DoCmd.FindRecord [Forms]![test1]![مربع_تحرير_وسرد15] Me.Requery ولكني عملت تغيير في استعلام النموذج الفرعي ، وكذلك استعلام مربع التحرير والسرد. جعفر 620.testx.mdb.zip

حياك الله خلي الحقل اللي تريده في نفس القسم اللي فيه اسم المختار والتاريخ (Header البلدة او الحي) جعفر

وعليكم السلام تفضل ضع الكود التالي على حدث "النقر المزدوج" على اي حقل في النموذج الفرعي DoCmd.SearchForRecord acDataForm, "test1", acFirst, "[id]=" & Me.ID او Forms!test1!ID.SetFocus DoCmd.FindRecord Me.ID او Me.Parent.Recordset.FindFirst "[ID] = " & Me.ID Me.Parent.Bookmark = Me.Parent.Recordset.Bookmark او Forms!test1.Recordset.FindFirst "[ID] = " & Me.ID Forms!test1.Bookmark = Forms!test1.Recordset.Bookmark جعفر

هلا والله

الحقني يا ابوعبدالله ، هذا شيفان انتقل من الكلام العلمي الكثيف اللي نفهمه ، الى الاختصار المُعجز اللي ما نفهمه جعفر

وعليكم السلام نعم تستطيع ، ولكن يجب ان تعرف جميع الحروف التي تحتاج الى تغيير اولا ، وهذا سهل ، قم بجلب مجموعة من الملفات ، وباستخدام طريقتي اعلاه ستعرفهم جميعا ، ثم نعمل وحدة نمطية لتغيير الاحرف الخطأ الى الاحرف الصحيحة ، سواء بإستخدام الحرف او رقمه AscW ، وننادي هذه الوحدة النمطية من الاستعلام ، هذا الرابط يعطيك فكرة جعفر

وعليكم السلام عملت برنامج بسيط يحول الحروف الى ascii ، اي يعطينا رقمها حسب اعدادات Unicode ، والنتيجة وضعتها في جدول ، كل حرف (من جدول 1 و 2) وضعتهم جنب الاخر ، رجاء النظر الى الحقلين AscW_1 و AscW_2 ، والتي ارقامها تختلف ، فالبرنامج يعتبرها حرف يختلف ، لذلك لا تستطيع الربط بين الاسمين: . جعفر 617.Err_Data.mdb.zip

أخي السيد شوف الرابط التالي ، فيه نفس فكرتك ، ولكن بالاكسل: جعفر

مبروك اللقب أخي شيفان ، ونعرف انك ستتحمل اعباء وزنه وشكرا أخي ابو زاهر على الملاحظة جعفر

افضل طريقة هي ان تنزل البرنامج ، وتتبع طريقة العمل ، ولما البرنامج يشتغل بطريقة صحيحة ، اعمل نسخة منه ، وابدأ بحذف الكائنات واحدا واحدا ، مثل النماذج والجداول والوحدات النمطية (احذف احدهم وجرب البرنامج) ، الى ان ترى ان البرنامج لا يعمل المطلوب ، فتعرف الكائنات المهمة فيه ، هنا تنقل هذه الكائنات الى برنامجك الآخر جعفر

عفوا ابو عبدالله ، بس للأسف ما عندي فكرة عن الموضوع يمكن الرابط التالي يفيدك https://www.codeproject.com/Articles/53059/Parallel-Processing-MS-Access-VBA-Application جعفر

ليس في الاستعلام ، وانما في حدث الزر امر9 مثل ما ارفقتيه في الصورة في اول مشاركتة لك جعفر