Moosak

جرب الآن أخي نبيل .. nabilali.accdb

تفضل أخي صابر .. جرب وأخبرنا بالنتيجة 🙂 be (1).rar

ممكن ترفق ملف الأكسل أخي نبيل ؟

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

العفو أخي عبده 🙂

سبقني إليها الأستاذ د.كاف يار أثناء اشتغالي بها ما شاء الله عليه 🙂 هذه محاولتي .. جعلتها في دالة واحدة للفصلين ، وأضطررت لإضافة حقل ترقيم تلقائي في كلا الجدولين للتأكد من وجود رقم مميز لكل سجل وعدم اختلاط النتائج .. 🙂 Public Function FinalResult(ID As Long, TblFinal As String) As String Dim x As Integer: x = 0 Dim n As String Dim TR1 As Double Dim TR2 As Double Dim TR3 As Double Dim TR4 As Double Dim TR5 As Double Dim TR6 As Double Dim DB As DAO.Database Dim RS As DAO.Recordset Set DB = CurrentDb Set RS = DB.OpenRecordset("select * from " & TblFinal & " where [AutoNum] = " & ID & " ;") TR1 = RS!TR1 TR2 = RS!TR2 TR3 = RS!TR3 TR4 = RS!TR4 TR5 = RS!TR5 TR6 = RS!TR6 If TR1 < 50 Then x = x + 1 If TR2 < 50 Then x = x + 1 If TR3 < 50 Then x = x + 1 If TR4 < 50 Then x = x + 1 If TR5 < 50 Then x = x + 1 If TR6 < 50 Then x = x + 1 Select Case TblFinal Case "TBL_Final1" If x >= 1 Then n = "دور ثان" Else n = "ناجح" End If FinalResult = n Case "TBL_Final2" If x > 0 And x < 3 Then n = "مكمل" ElseIf x >= 4 Then n = "باقٍ للإعادة" ElseIf n = 0 Then n = "ناجح" End If FinalResult = n End Select RS.Close Set DB = Nothing Set RS = Nothing End Function والنتيجة في العمود الأخير لكلا الاستعلامين .. احتساب النتيجة عن طريق وحدة نمطية.mdb

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

يمكنك التحايل على البرنامج والإبداع بطريقة اللعب بالألوان والخطوط .. هكذا على سبيل المثال 🙂 :

حياك الله أخي صابر .. أين وضعت الدالة التي ذكرتها ؟ على أي زر ؟ ولدي سؤال : لماذا وضعت أمر تشغيل استعلام التحديث على جميع العناصر ؟؟ !! ألا يبدوا لك الأمر مزعجا مع الكم الهائل من رسائل تأكيد تشغيل الاستعلام ؟؟ 🙂 ربما أوقفت تشغيل الرسائل من خيارات البرنامج عندك .. لكن تظهر عند الآخرين .

الملف المرفق فارغ أخي عمران .. لا تظهر الجداولا ولا الاستعلامات ..

ضع هذا الكود بدل السابق أخي عبده : On Error GoTo ErrHandler Dim y As Integer, x As Integer: x = Me.Form.Recordset.RecordCount Me.AllowAdditions = False DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste DoCmd.GoToRecord , , acLast For y = 1 To x Me.Month = "" DoCmd.GoToRecord , , acPrevious Next ErrHandler: If Err.Number <> 0 Then MsgBox Err.Number & " \\\\\ " & Err.Description Me.AllowAdditions = True Else Exit Sub End If

بعد البحث وجدت خبرا جديدا .. أن جوجل سوف توقف خدمة الإرتباط بالبريد الإلكتروني عن طريق ( التطبيقات الأقل أمانا ) كما يسمونها .. وأحدها هذه الطريقة 😞 https://support.google.com/accounts/answer/6010255?hl=ar#zippy=%2Cفي-حال-كانت-إعدادات-وصول-التطبيقات-الأقل-أمانا-مفعلة-على-حسابك لذلك سيكون البديل هو العودة إلى الآوتلوك من جديد .. حتى يظهر لنا حل آخر للوصول إلى الجيميل ..

مرحبا أخي mr_abdulnasser قمت بضبط الكود لك ليتوافق مع الكود الذي أستخدمه أنا ( وهو يعمل معي بدون مشاكل ولله الحمد) .. 🙂 مع بعض الإضافات والإصلاحات الأخرى كـ ( إصلاح مصدر التفرير ، مسار المجلد المؤقت ، إضافة صندوق الحالة يخبرك لمن تم الإرسال ، ووو ) الآن الكود سليم ولله الحمد ولكن تظهر لي هذه الرسالة على الرغم من أني جربت بريدي الخاص للإرسال ولكن نفس الرسالة تظهر !! جرب أنت الآن الإرسال بإدخال بريدك الإلكتروني في الضبط ، وكذلك أكتب إيميلات حقيقية للتأكد من أنه تم الإرسال فعليا .. جرب وأخبرنا بالنتيجة 🙂 ===================================================== أخي محب العقيدة 🙂 الطريقة المستخدمة في ملف الأخ عبد الناصر هي طريقة الأستاذ د.كاف .. لأنها أسهل وأقل إزعاجا من حيث رسائل التنبيه .. وهذه الطريقة ناجحة وتعمل معي بنسبة 100% ولله الحمد .. وليس لها علاقة بالآوتلوك على فكرة ، هذي تتصل بسيرفر الجيميل على طول بدون وسيط 🙂 تحياتي school Fixed.rar

وعليكم السلام ورحمة الله وبركاته.. نعم يرسل لأي إيميل بدون مشاكل .. الآن تذكرت .. هناك نقطة مهمة يجب أن تتأكد منها .. وهي أن تدخل في إعدادات حساب الجيميل الذي سترسل عن طريقه وتدخل إلى إعدادات الأمان ثم تسمح بالبرامج الأقل أمانا .. وبعدها جرب ترسل من جديد .. جرب وأخبرنا بالنتيجة 🙂

أهلا أخي عمر .. ضع هذا الكود على زر واحد .. فسيقوم بنسخ السجلات كلها ولصقها كسجلات جديدة : Me.AllowAdditions = False DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Me.AllowAdditions = True DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste أما إذا كنت تريد نسخ ولصق السجل الذي تتقف عليه فضع الكود كما يلي : DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste الشغل كله على هذا الزر 🙂 مراجعة فواتير العلاج الشهرى المزمن - Copy.rar

أخي نبيل تم تطبيق نفس المعادلات بالأكسس مع معادلة حساب فترة الخدمة تلقائيا هكذا : والنتيجة 🙂 تأكد من المعادلات أو عدلها إن كانت غير صحيحة 🙂 nabilali.accdb

لو راسل الصورة ذي من الأول .. كان ريحت العالم من زمان 😅 نفس المعادلات ممكن تستخدم في الأكسس .

وعليكم السلام ورحمة الله وبركاته .. من خلال تجربتي لهذا الكود ( في برنامجي ) أنه يتجاهل الإيميلات المكتوب صياغتها بشكل خاطئ ( يعني مكتوب هكذا مثلا Name.Gmail.com ) وينتقل للتالي .. وإذا كان هناك خطأ في تهجأة الأيميل يعني تقديم وتأخير حروف ( الأخطاء المطبعية) فإن الإيميل هو اللي يعطيك رسائل الخطأ في الارسال كمثال : Sending Failure

هنا شرح لحل وسبب رسالة الخطأ هذه : https://www.thewindowsclub.com/fix-access-error-2950-unable-to-run-macro-in-access-database#:~:text=The error 2950 means that,mode%2C executable content is disabled.

من عينيه 🙂 مع تحسين بسيط لشكل الصور .. بس فيه مشكلة بسيطة أنه ملفات ال PDF ما يتم عرض صورة مصغرة لها ولكن تفتح عادي كرابط 🙂 تفضل : Req_Link_img.accdb

وعليكم السلام ورحمة الله وبركاته .. أخي @saffar هذه صورة من برنامجك .. إشرح ما تريده من واقع البرنامج .. لأن الناس تتوه لما تدخل وتدور وما تشوف كلمة ( أهداف ) مثلا ، وأنت كاتبنها في السؤال ..!! 🙃 قل مثلا : أريد لما أفتح الفورم ( كذا ) وأضغط على الزر (كذا) يحدد لي ( كذا وكذا ) 🙂 تحياتي 🙂

أهلا أخي نبيل .. 🙂 طريقة الحساب معقدة جدا .. والشرح لم يوصل الفكرة .. 😅 ولكن لي محاولة 🙂 هل هذا يفي بالغرض ؟ nabilali.accdb

فكرة إبداعية خارج الصندوق .. أحييك 👍😉

مهندسنا الغالي @ابو جودي قام بعمل الجزء الأول من الطلب 🙂 وأنا أكملت الجزء الثاني .. وهو عرض الصور في الفورم الآخر .. 🙂 وهذه هي النتيجة : << ملاحظة >> الحد الأقصى لعدد الصور القابل عرضها هو 16 صورة .. ولعرض المزيد يجب تعديل تصميم النموذج وزيادة خانات الصور ومن ثم تعديل الكود ليقبل أكثر من ذلك. 🙂 المرفق : Req_Link_img.accdb

سامي أضفت لك هذي .. If IsNull(Me.cmbSchool) Or IsNull(Me.cmbAlwilaya) Or Me.cmbSchool = "" Or Me.cmbAlwilaya = "" Then MsgBox "يرجى اختيار الولاية والمدرسة", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If بس هذا ما حصلته 🙂 بس ممكن تنسخ نفس الكود وتحطه على زر الحفظ لما يطلع بالسلامة 😄 تعديل نموذج الفرز مهم.accdb