TQTHAMI

هذا نموذج لـ أوقات الصلاة فقط ولعدم تمكني من رقع الملف الخاص بالصوتيات لكبر حجمة اعمل ملف بجوار البرنامج باسم adan وضع فيه ملفات صونيه بامتداد .wav وان شاء الله يضبط معك عندي شغال 100% الصلاة.accdb

نعم اخي jjafferr جربته ولم بنجح الأخ ناقل شكرا لك تقريبا هذا ما اردت ولكن لصعوبة حله اكتفيت بالعمل ان يكون النموذج مباشر حتى لا اتوقف على هذي المشكلة شكرا لكم جميعا

للأسف نفس الشي لكن رفعن لم المثال وبه الطريقة التي ارغب عملها في النموذج الفرعي Database32.accdb

للأسف اخي نفس الشي عملتها كلها وكلها تقبل الاصافة والتعديل ممكن تطبقوها على المثال ولكم جزيل الشكر

هذا يعمل على فتح نموذج مستقل ولكن انا احتاجه كما هو موضح في المثال

هلا وغلا اهلا بالأستاذ الكبير بشرفني مرورك لكن يبدو اني ما عرفت أوصل المعلومة بالشمل الصحيح لكن المثال يبين مطلبي Database32.accdb

frm.SourceObject = "frm3" هنا يفتح الفورم 3 من خلال النموذج الفرعي تمام 'DoCmd.OpenForm "frm3", acNormal, "", "", acReadOnly, acNormal 'DoCmd.OpenForm "frm3", acNormal, "", "", acAdd, acNormal 'DoCmd.OpenForm "frm3", acNormal, "", "", acEdit, acNormal لكن عندما اردت انه يفتح بأحد هذي الطرق لا يقبل عملت هي الطريقة frm.SourceObject= "frm3", acNormal, "", "", acReadOnly, acNormal واعرف انه الخطاء مني ولكنها اول مره تمر علي ولم اشاهدها من قبل فيا ليت احد يعدل لي الكود تحياتي للجميع

ماشاء الله عليك سرعة استجابة وخو المطلوب بارك الله فيك تجياتي لك

السلام عليكم ورحمة الله وبركاته يوجد نموذج به قائمتين منسدلتين المطلوب القائمة الأولى بظهر يها كافة الجداول الموجودة بالبرنامج والقائمة الاحرى نفس الفكرة بظهر يها كافة النماذج الموجودة بالبرنامج وتقبلوا خالص التحية والتقدير Database29.accdb

تم إضافة نموذج به ما تريد DateConverter_01.mdb

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

السلام عليكم ورحمة الله وبركاته بسعد لي مساءك احي موسى لقد قمت بحذف الاوفيس 365 كامل وكل ملفاتي القديمة ورجعت 2016 لكن انا لعبت في الاكواد واصبح لافائدة من البرامج لاتعمل على اي منهما من قوة القهر كل مافتحت نموذج يطلع لي رسالة خطاء وصغحة محرر الاكواد تجاوزت الوان إشارة المرور أصبحت اخضر واحمر واسود وازرق وسوف ابداء من حديد في تصميم برامجي الخاصة وهي 3 برامج ولكن بعد فترة

السلام عليكم ورحمة الله وبركاته أسعدالله أوقاتكم بالخير يا أخواني اسعفوني ورطت ورطه لا يعلمها غير الله قمت بشراء نسخة اوفيس ٣٦٥ وحذفت النسخة السابقة ٢٠١٦ وبعد تفعيلها جميع برامجي و أكوادي بنسبة ٨٠ % لا تعمل وتظهر ان فيه أخطاء في الكود والان اذا فيه طريقه يصلح بها الحال اسعفوني او ما فيه حل الا اني اعيد تحميل الأوفيس ٢٠١٦ واحذف ٣٦٥ أفيدوني الله يسعدكم

المثال شغال 100% لمن تسخة ووضعته في البرنامح نفس المسنيات وتفس الموقع وطلع لي هذا الخطاء يحتاج تفعيل مكتبه تمام ضبط الف شكر لك

الله يسعدك دنيا واخرة وبارك الله لك في ذريتك تقبل تحياتي

ل الأسف ما ضبطت معي واعتقد ان الخطاء مني وارفقت المثال لكي اعرف الخطاء ch.rar

السلام عليكم ورحمة الله وبركاته هذا الكود لمعرفة حجم قاعدة البيانات Me.zx = Round((FileLen(CurrentDb.Name) / 1024) / 1024, 2) & " " & "MB" لدي ملف مرتبط لقاعدة البيانات واسمة (fold_1)وبداخلة عدة ملفات وابي اعرف حجمة بما فيه من ملفات وان امكن عدد الملفات الي بداخل الملف وتقبلوا خالص التحيا والتقدير

بارك الله فيك اخي موسى نعم فكرت فيها وسويتها اخي أبو احمد لك كل الشكر والعرفان على تعديل الكود وتقبلوا فائق الاحترام والتقدير

يسعد مساءك أبو احمد الكود رائع لكن واجهتني اشكاليه وهي بعض الملفات امتدادها accdb والبعض الاخر امتدادها mdb فالكود يفتح امتداد واحد

السلام عليكم ورحمة الله وبركاته يامرحبا تراحيب المطر يسعد صباحك أبو احمد نعم هذا ما اردته بارك الله فيك ونفع بعلمك ورزقك حسن الخاتمة والشكر موصول للأخ الطحان

السلام عليكم ورحمة الله وبركاته لم يعمل معي وارفقت لك المثال وضعت فيه مثالين الأول شغال ولكن بـ كنابه الأسماء والثاني هو المطلوب ولكن لابد انه يأخذ البيانات من الحقول المثال.rar

Dim strDB As String 'Path & "\" & "Data" & "\" & "copy" & "\" & ss & ".mdb" strDB = CurrentProject.Path & "\" & "FolderN" & "\" & "1010" & "\Database1.mdb" Set appAccess = _ CreateObject("Access.Application") appAccess.OpenCurrentDatabase strDB appAccess.DoCmd.OpenForm "xxxx" appAccess.Visible = True هذا الكود يجلب لي قاعدة البيانات ويقوم بفتح النموذج المحدد ولكن مشكلتي تكمن في عدم فتحه لامتداد accdb حيث قمت بتغير الامتداد mdb ولكن لم تنجح معي 5555.rar

هلا وغلا أبو جودي يسعد لي مساءك ومساء كافة الاخوة قمت بنسخ ملفك ووصعه مع الملف وتم تعبر اللون ولم امر Make VCard لا يعمل نهائي ولا يعطي خطاء حنى اعرف وين المشكلة

اخي أبو جودي للأسف لم تضبط معي

السلام عليكم ورحمة الله وبركاته بارك الله غيك اخي أبو حودي اشكركم من القلب على تجاوبك سوف أقوم بالتجربة وعلى كل حال نسال الله لكم الفردوس الأعلى من الجنة