Moosak

سبقني إليها الأستاذ د.كاف يار أثناء اشتغالي بها ما شاء الله عليه 🙂 هذه محاولتي .. جعلتها في دالة واحدة للفصلين ، وأضطررت لإضافة حقل ترقيم تلقائي في كلا الجدولين للتأكد من وجود رقم مميز لكل سجل وعدم اختلاط النتائج .. 🙂 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

العفو أخي أبا عبدالرحمن 🙂

حياك الأخ سامي 🙂 ضبطت لك الكود الخاص بالـ PDF : Dim reportName As String Dim fileName As String reportName = "rptsubschool" fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf" If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\") DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName, True 'End If End Sub السطر التالي أضفته ليتأكد من أنه شي مجلد اسمه Schools بجانب قاعدة البيانات .. لأنه أعطاني خطأ لما ما لقيه .. If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\") وكذلك صلحت لك مصدر بيانات التقرير ليكون مطابق للمدرسة المختارة في صفحة البحث .. باقي عليك تضبط حجم التقرير لأنه أعرض من صفحة ال A4 لذلك ينقسم التقرير لصفحتين 🙂 المرفق : تعديل نموذج الفرز مهم.accdb

تم التعديل أخي أبو عبدالرحمن كما طلبت .. وأبقيت على الكود السابق لكي يعمل تلقائيا عند إضافة سجل جديد .. أولا قمت بتغيير أسماء جميع العناصر والحقول إلى اللغة الإنجليزية لكي يسهل التعامل مع الأكواد 🙂 ثم أضفت هذا الكود على زر إعادة الترقيم : Private Sub ReNumbringBtn_Click() Dim DB As dao.Database Dim RS As dao.Recordset Set DB = CurrentDb Set RS = DB.OpenRecordset("Table1") ' تصفير الأرقام للبدأ من جديد DoCmd.SetWarnings False DoCmd.RunSQL ("update table1 set t1 = 0") DoCmd.SetWarnings True ' إعادة الترقيم With RS .MoveFirst Do Until .EOF .Edit !t1 = Nz(DMax("t1", "Table1", "[SchoolName]='" & !SchoolName & "'") + 1, 1) .Update .MoveNext Loop End With Set DB = Nothing Set RS = Nothing DoCmd.OpenTable "table1" MsgBox "تم ترقيم المدارس بنجاح", vbOKOnly, "انتهى" End Sub والآن يمكنك تجربته ولا تنسى تغيير المسميات التي في الكود لتوافق المسميات الموجودة لديك 🙂 المرفق : Numbring.accdb

الله يبارك فيك أخي أبو عبدالرحمن .. 🌹 هل جربت المرفق ؟ .. كود ال VBA الذي وضعته لك يقوم بما ذكرته . أم تقصد أنك تريد طريقة لإعادة ترقيم أسماء المدارس السابقة في قاعدة البيانات لديك ؟

الآن بفضل الله اتضح أن المشكلة ليست في أصل البرنامج وإنما في أسماء ملفات الـ(BE) .. وبعد أن قام أستاذنا جعفر @jjafferr مشكورا بإصلاح المسميات ندعوكم أساتذتنا وأحبائنا للتجربة وإبداء رأيكم وملاحظاتكم 🙂 المرفق والشرح موجود هنا :