أبو نادر

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

الله يزيدكم من المعرفه ... معاناة اجبار المستخدمين لاقفال قاعدة البيانات خطرت في بالي فكره الآن ... عمل جدول فيه حقل نعم\لا واضافته لنموذج المدير اذا نعم ... كود .. تحديث للقاعدة كاملة ( مدري كيف تجي ) .. وبعده كود عداد وقت من 5 ثواني ويقفل القاعدة انتم الخبراء .....

ما شاء الله والف مبروك لاخونا صالح ..

تم حل المشكلة باضافة هذه العبارة لحقل التاريخ Format(UmDate(), 'yyyy/mm/dd') شكراً يا أنا

عرفة سبب المشكله ... ولكن لم اعرف حل اذا التاريخ في الجدول ( من اليسار لليمين ) تزبط العمليه والعكس تفشل !!!

السلام عليكم في المثال المرفق تم تصحيح كود من الاخ بو خليل والاخ رمهان الله يجزاهم خير وكان يعمل ميه ميه وبعد تحويل حقل التاريخ الى نص لاعتماد تاريخ ام القرى لم تنجح معادلة التاريخ جبتها يمين وشمال ومع كاسة شاي وماش كيف أعرف تاريخ على حقل نصي ؟ ما استغني عن مساعدتكم tamam.rar

وهذي طريقه بسيطه ثانية Employees2.rar

ولا يهون اخوي جعفر .. هنا كود اخر اضف نموذج .. DetectIdelTime .. بالكود الموجود فيه لبرنامجك اضف كود فتحه ( مخفي ) في نموذج البدأ ... واستفسارك الاخير لو فيه طريقه بتوكن ميه ميه اغلاق البرنامج عند عدم التنشيط.rar

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

ابو خليل القصد مو في المرفق انا اعتمدت التاريخ الهجري تبع البرنامج وفي الجداول تسجل بالميلادي ... في النماذج والاستعلامات بالهجري وبعد ما اعتمدت تاريخ ام القرى وغيرت نوع الحقل الى نص .. التاريخ الجديد بام القرى وجميع التواريخ السابقه اصبحت بالميلادي في النماذج والاستعلامات كيف استخدم ال CDate ؟

هلا بالزعيم كيف اعرف اني وضعت الحقل بالتاريخ الميلادي ؟

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

السلام عليكم في المثال المرفق لابو خليل الله يجزاه خير وضع تاريخ اليوم حسب تقويم ام القرى كقيمه افتراضيه ونصحني بان لا اعتمد على التقويم الهجري للبرنامج .... ولم اسمع النصيحه حصل المحظور مع تاريخ 30\4 يعطي 1\5 وتذكرت نصيحته ورجعت لمثاله اضفت للجدول حقلين من والى اتمنى طريقة ادخال تاريخ ام القرى وبعد السنه تضاف "هـ" ولو غيرت خصائص الحقل من تاريخ الى نص سأفقد التواريخ المدخله مسبقا ؟ ابو خليل عادي اذا تبي تلطشني tamam3.rar

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

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

بارك الله فيك وان شاء الله اجرب البرنامج الله يعطيك العافيه اخوي جعفر نعم الهدف بيانات جداولها ثم انقلها ... واحتمال كبير يطلب مني بالتعديل كاضافه او حذف

الكود هذا يصدر التقرير الى وورد ولكن كنص فقط وبمسار محدد DoCmd.OutputTo acOutputReport, Me.Name, acFormatRTF, "Your\Desired\Filepath.rtf" وهذا الكود يصدره الى pdf .... ومن برنامج Nitro Pro 9 ( خاص لفتح ملفات ال pdf ) استطيع ان احوله لوورد .. وتتم العمليه بنفس التنسيق ولكن الحروف العربيه تتشقلب ! DoCmd.OutputTo acOutputReport, Me.Name, acFormatPDF, "Your\Desired\Filepath.pdf" اتوقع التحويل ل pdf افضل .. ثم التحويل لوورد .... ان لقيت حل لمشلكة الحروف العربيه

السلام عليكم هل هناك طريقة لتصدير التقرير الى وورد بنفس التنسيق وارساله الى اي مجلد مشاركه داخل الشبكه ؟ اول كنت اصدره الى اكسل ... وافتح وورد جديد واعمل نفس الجدول وانسخ البيانات من الاكسل للوورد وابحث عن طريق الاي بي عن مجلد المشاركه وانسخ والصق الكود تكون مهمته اختيار التحويل الى وورد او اكسل ... وبعد التحويل تأتيني رساله عن مكان الحفظ واضع رقم الاي بي واختار المجلد ما استغني عن خبرتكم بارك الله فيكم

جرب وافتحه باصدار اعلا Dim r As Integer r = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version > 12, "Level", "VBAWarnings")) If r = 0 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 If r > 12 Then MsgBox "عفوا.. البرنامج متوافق مع نسخة اوفيس 2007", vbMsgBoxRight, " " DoCmd.Quit Else DoCmd.Maximize DoCmd.OpenForm "frm-UserLogon", acNormal, , , , acDialog End If

الله يعطيك العافيه اخوي صالح ... مبدع

السلام عليكم احبابي اطلعت على هالموضوع حول تخفيض أمان اكسس وعدلت شي بسيط في كود استاذنا محمد صالح الله يعطيه العافيه من ضمن عناصر المكتبه عندي word 15 واذا تم تشغيل التطبيق باصدار اقل من 2013 تجي المشاكل وبعض الاحيان ما يشتغل وارجع انزل نسخة جديده من الواجهه عملت هذا الكود ووضعته في حدث عند التحميل للافتتاحية ... واي اصدار اقل من 2013 ما بيشغله اتمنى تجربته او اضافة كود لنفس الفكره او التعديل وبالتوفيق Dim r As Integer r = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings")) If r = 0 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 If r > 15 Then MsgBox "عفوا.. البرنامج متوافق مع نسخة اوفيس 2013 او الحدث", vbMsgBoxRight, " " DoCmd.Quit Else DoCmd.Maximize DoCmd.OpenForm "frm-UserLogon", acNormal, , , , acDialog End If

تفضل الحاق2.rar

تفضل اخوي الحاق1.rar

اضف هالجملة في اول كود الحذف on error resume next

Me.تابع4.SetFocus DoCmd.RunCommand acCmdDeleteRecord Me.Refresh اخوي ابو عاصم ضع هذا الكود في حدث عند النقر للحذف حذفت اكواد التحديث في النموذج الفرعي واضفت كود الغاء التحذير وميه ميه c.rar