kanory

أخي @بلال اليامين وضح سؤالك والمطلوب .... هل تقصد صلاحيات مستخدمين

انظر المرفق يحوي النموذج المطلوب فقط استورده لبرنامجك ..... ثم جرب LEAVE V. 04.rar

بارك الله فيك أخي @خالد عبد الغفار ولك بمثل ما دعوة .... جزاك الله خيرا .... بالتوفيق

ربما هذا مطلوبك ...... K_1.rar

جرب هذا لربما يفي بالمطلوب ....... برنامج قديم ... ACCESSkiller_VB.rar

صديقي @كوماندير مر علي برنامج لاغلاق البرامج العالقة ... اذا تحتاجة ابحث لك عنه في مكتبتي ... ان شاء الله اجده ..

الف . الف . مبرو اخ خالد ..... مزيد من التألق ...

جميع أعضاء المنتدى هنا لمساعدة الجميع ...... كل من يعرف الاجابة لديه القدرة على المساعدة بارك الله فيك

أنا اتأسف منك ... بارك الله فيك لأن سياسة المنتدى وقوانينه تمنع هذا ولكن أن تضع مثال لبرنامجك لتجد الاجابة بحول الله من أعضاء المنتدى المبارك ......

هل كان يعمل البرنامج بدون مشاكل أم لم يعمل من الاساس ؟؟؟

أما برمجيا فجرب هذا الكود في حدث عند التحميل للنموذج ... If CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) <> "1" Then CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" End If

اذا كان المطلوب تمكين الماكروا يدويا .... تفضل .. من ملف --------> خيارات ---------> مركز التوثيق ---------> إعدادات الماكروا ---------> انظر الصورة

أخي @Amr Ashraf أخي @ابا جودى تم تعديل الملف ارجو التجربة وابداء الرأي .... والمجال مفتوح لجميع الأعضاء لإبداء الرأي .... تفضلوا .... Example.accdb

المفروض يقوم بانشاء ملف الاكسس ويصدر الاستعلامات المختارة لها .... هل اخترت اسماء الاستعلامات من النموذج

وهذه مشاركة مع أخي الحبيب @ابا جودى تفضل ... Example.accdb

بل العكس ... المنتدى لم يفتح الا للسؤال والاجابة

وعليكم السلام ورحمة الله أخي @jjafferr لو يتم اغلاق الموضوع بصورة إلية بعد مرور اسبوعين وهو في حالة خمول وليس فيه تفاعل .... بهذه الصورة ضمان لعدم الرد في نفس الموضوع .... ومن يرد الاستفسار حول نفس الموضوع يتم بالطريقة التي ذكرتها أنت ....... بارك الله فيك وعلى التنبيه

شغلت البرنامج الأن ويعمل معي .... انظر Dim X As Object On Error Resume Next Set X = CreateObject("Word.Application") X.Documents.Open CurrentProject.Path & "\المتضررين.Docx" X.Visible = True X.Activate X.ActiveDocument.Bookmarks("المعرف").Select X.Selection.InsertAfter Me.s1 X.ActiveDocument.Bookmarks("الاسم").Select X.Selection.InsertAfter Me.s2.Value X.ActiveDocument.Bookmarks("العنوان").Select X.Selection.InsertAfter Me.s3.Value X.ActiveDocument.Bookmarks("رقم_الهاتف").Select X.Selection.InsertAfter Me.s5.Value هذا هو الكود ..... طبق الشرح على ملف لديك .... يجب أن تكون القاعدة وملف الوورد في نقس المكان

تابع الشرح ..... قبل الشرح أود التأكيد على نقطة عند كتابة المسميات أكتبها بالانجليزي ومتلاصق مثل Fullname أو Full_name بالصور : هل استطعت فتح الملف ؟؟؟؟؟؟

امكن المشكلة من ملف الضغط لديك غير محدث .... لكن تفضل الملفين بدون ضفغط المتضررين.docx بيانات.accdb

وعليكم السلام .... فتح القاعدة أم ملف الضغط

انظر المرفق ..... تطبيق.rar

انا اقصد المرفق الموجود في بداية الموضوع أخي هل أعمل على التعديل عليه وأنت تنقله لملفك الخاص ؟؟؟؟

هل النموذج الموجود في بداية الموضوع يمثل نموذجك الحقيقي ...... حتي احاول العمل عليه

بارك الله فيك استاذ . @ازهر عبد العزيز مسافر حتى الان اجيب من الموبايل .... أشكرك ...