TQTHAMI

تم إضافة نموذج به ما تريد 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 لا يعمل نهائي ولا يعطي خطاء حنى اعرف وين المشكلة

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

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

تبشر بالجنة ان شاء الله وبارك الله فيك وفي كل الاخوة في المنتدى

up

ما ضبطت يا محمد

كل ما في الامر بدل صورة شفرة الQR الي تطلع باللون الأسود ابيها بإحدى الصور المرفقة أي ملونة

السلام عليكم ورحمة الله وبركاته هل بالإمكان تغير صور ال QR الى الصور الموجودة في الملف المرفق Desktop.rar مثال.rar

بارك الله فيك اخي محمد

السلام عليكم لسعد الله اوقاتكم بالخير لدي مربع نص وقت ((الوقت الأول ))وقائمة منسدلة بها ارقام تمثل الدقائق ومربع نص وقت ((الوقت الثاني)) المطلوب اذا اخترت من القائمة رقم يتم أضافته مع مربع النص وادراجه في مربع الوقت الثاني أضافة دقائق.rar

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

المكتبة غير موحودة