Foksh

وعليكم السلام ورحمة الله وبركاته ،، مشاركة مع الأستاذ @kkhalifa1960 .. جرب في خيارات أو خصائص الطباعة البحث عن :- Fit to Page أو Shrink Oversized Pages عند تفعيل هذا الخيار ، سيتم تصغير التقرير المصمم على A3 ليتم احتواؤه بالكامل في صفحة A4 💡 فهذا الخيار يضمن تقليص التقرير كاملًا ليتناسب مع ورقة A4 ، مع الحفاظ على أبعاد التصميم الأصلي . طبعاً انصحك بتصدير التقرير إلى ملف PDF للحفاظ على تصميم التقرير وأبعاده . أعتقد انني مررت بهذه التجربة ولكن حالياً ليس لدي طابعة 😬 .

يا صديقي ، الجملة الأخيرة اللي انت عاملها اعتقد ملهاش داعي ، والخطأ من عندي أنا ، ولا عيب باعترافي بالخطأ حتى تتوضح الفكرة بشكل أدق لأنني نسيت أنه يجب عمل تحديث للنموذج المفتوح "handicapees" على ما اعتقد ، ويجب بدلاً من Docmd.Requery استخدام Forms!handicapees.requery وهنا لا حاجة لجملة فتح النموذج وهو في الأساس مفتوح 😅 اعتذر عن الخطأ مرة اخرى 😇 ، وفي زر الاستعادة نفس الشيء .

لا أعتقد انك بحاجة لجملتي تحديث واحدة قبل والثانية بعد اغلاق النموذج .. جرب نقل الأمر الذي أشرت إليه سابقاً قبل أمر الرسالة مباشرة .. ثانياً عند نسخ اي كود يحتوي لغة عربية من أي مكان تأكد بأن لغة الكيبورد عربية لضمان نسخ الكود مع تنسيق اللغة العربية بشكل صحيح ،، لاحظ النص اللي بالعربي في صورة المرفق اللي ارفقتها تفهم مقصدي ❗❗

إذن ،، الإتجاه الأول هو نسخة الأوفيس ، وبالنسبة لي كنت سأفكر فيها أول شيء. الإتجاه الثاني وهو تعريف كرت الشاشة ( أو خلل في الويندوز ) . حاول ان استطعت تصوير الشاشة مدة ٣٠ ثانية للمشكلة 💡 أيضاً هي أطراف أفكار 😇 ..

وجهة نظر غير ملزمة .. اذا كنت زي حالاتي عندك فكرة اتباع اسلوب معين في طريقة شغلك ، فإنت ممكن تكون محتاج لحل المشكلة الأصلية واللي هي باعتقادي .. اذا كنت بتعتمد على إن في نماذج محددة عندك لازم تفتح في مكان معين ( ودي حسب المشروع ومتطلباته ) فأعتقد أن مشكلتك بالطريقة اللي بتستخدمها بهذا الخصوص. هذا مجرد تخمين وقد لا يكون له أي وجود 😁 .

يبقى قدامك حل من اتنين ،، يا إما تغير اسماء الدول واللغات في النموذج العربي ، أو إنها كفكرة وبما إن الهدف اللغة العربية!! تقدر تخلي قيمة الليست بوكس مضمنة داخل مصدر صف الليست بوكس نفسه وليس من خلال الكود ، اعتقد بكدة تكون حليت مشكلة القيم العربية بدل ما تاخدها من حدث عند التحميل وتكتبهم داخل الـ VBA . ودي انا كنت عاملها في التحديث الجديد 😉 .

يا اهلا وسهلاً بالإبداعات .. جميل جداً جداً... 🙏 أنا قلتلك إني هفرمت الكمبيوتر وأنزل ويندوز تانية ، ومش هعتمد على استعادة النظام خالص ، وجربت المرفق 😁 .. أول حاجة أنا كنت بالغنى عنها إني أضيف كل اللغات العالمية .. بالنسبة لي دي انا كنت مش بحاجتها لإن هدفي كان الناس اللي عندنا في الوطن العربي بس .. تاني حاجة وهي دي المهمة ، انا ما عرفتش اختار في النموذج العربي اللغة اللي انا عايزها بشكل نهائي ، بص وتالت حاجة دي محتاجة إعادة تركيز اعتقد عندي وعندك . وهي إن لغة الترميز أو اللغة الإدارية Current System Local ما تغيرتش رغم اني اخترت دولة عشوائية وطلعت البحرين 😇 . وحاجة تانية سريعة كده ، هي ملف الباتش اللي بيظهر على سطح المكتب 🤔 الحاجات التانية بعد ما اركز شوية 😁 هبقى أقولك عليها ، بس انت اصبر شوية 😈

🥴 أخي الكريم نفس المشكلة التي حصلت معك عند الحذف ، استخدم Docmd.Requery بعد الرسالة 😇

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

بعض ما عندكم طبعاً يا صديقي .. أجرب فكرتك بعد ما أعمل فرمتة للكمبيوتر 😁😁

تصدقني لو قلتلك اني مبارح لغاية ما صليت الفجر ونمت ييجي الساعة 6 وانا عملت فورمات 3 مرات لضمان إجابتي اللي كنت متأكد منها مسبقاً ، وبعد ما صحيت وصليت الجمعة في آخر لحظة 🥺 ورجعت نمت تااااني 😴 ، ولسه بحاول أخزي الشيطان وأصحصح كده ، ولما شفت ردك قلت لأ لازم يعرف ويتأكد ، وقلت نلعب وماله بس أما أفوقله 😁😁 دحنا حنلعب لعب 🤣🤣

يا اهلا ومرحباً 😈 انا مضطر أخالفك الرأي تماااااااماً في النقطة دي وبكل ثقة ، هي هتشتغل معاك وتعمل اللي انت عاوزة أصدي اللي انا عاوزه هههههههه وتغير اللغة زي ما كلنا عاوزين يا هندسة حتى لو فيها حروف عربية 100% ... ولو عايز تتأكد فرمت وحمل أوفيس وجرب من غير ما تجيب سيرة اللغة العربية في أي حتة في الويندوز 😁😁😁 شوف ده وركز في كمية الثقة اللي فيه 😎 دي ثقة مش غرور وأعوذ بالله 😇🤗🤗🤗😇

بسيطة أخي الكريم , بعد هذه الجملة MsgBox "تم تحديث السجل بنجاح", vbInformation قم بإضافة أمر تحديث للنموذج كالتالي DoCmd.Requery ولا تنسى تغيير نص الرسالة في كود الإستعادة ,, نسيت تغييره 😅

من غير ما تلعب ، الفكرة موجودة عندي ولكن نبحث عن ما هو مختلف 😎 ..

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم لاحظ ان الاصدار 1 أكبر وأحدث من الإصدار 0.2 . فمن الطبيعي انه يكون الاصدار اللي في ملف التكست اللي انت عدلته والخاص بك يحتوي على اصدار أعلى من تلك التي في الجدول .

أخي الكريم احذف الحدث اللي في زر الاستعادة ، واستبدله بالتالي VBA Dim strSQL As String Dim RecordNumber As Long RecordNumber = Me![الرقم].Value strSQL = "UPDATE الإجمالية " & _ "SET [سبب الحذف] = '" & Null & "', [محذوف] = False " & _ "WHERE [الرقم] = " & RecordNumber & ";" DoCmd.RunSQL strSQL MsgBox "تم تحديث السجل بنجاح", vbInformation DoCmd.Close acForm, "Frm_Delete"

ولا يهمك ، سأطبق الفكرة وارسلها هنا

حتى نتلافى الخطأ في الفهم .. جرب انشاء هذا الاستعلام وشوف النتيجة صحيحة أو لا بعد اختيار الفصل والصف والدرجات ( عربي ) الموضوع عليها علامة صح !!! SELECT Tbl_degree_Detail.Stud_id, Tbl_student.Studentname, Tbl_degree_Detail.draseid, Tbl_degree_Detail.Elsaf, Tbl_degree_Detail.Ara, Tbl_degree_Detail.[ashra%_ar], Tbl_student.Stucod FROM Tbl_student INNER JOIN Tbl_degree_Detail ON Tbl_student.id_student = Tbl_degree_Detail.Stud_id WHERE (((Tbl_degree_Detail.draseid)=[Forms]![frm_Reports]![drase]) AND ((Tbl_degree_Detail.Elsaf)=[Forms]![frm_Reports]![ComboSaf]) AND ((Tbl_degree_Detail.[ashra%_ar])=True));

وعليكم السلام ورحمة الله وبركاته .. ما هو المطلوب أخي الكريم !!! قرأت الموضوع 3 مرات ولم اتوصل للمطلوب وبعد هذه الخطوة !!!!!

ههههههه علمت ذلك بطريق غير مباشر لاحقاً ، وقد تأكدت بعد أن رأيت مرفقك .. جزاك الله كل خير على التوضيح .. سأحاول لاحقاً اعتماد فكرتك ( بعد إذنك طبعاً ) والإعتماد على الدروب بوكس فقط 🤗

انت تعرف اني احترم كل الآراء هنا .. ولكن !! خد بالك انا كبرتها كتيييييير هههههههههههه ( أمزح الله يرحم والديك ) جرب وبعدين احكيلي وناقشني في النقطة دي هذا النموذج لن يظهر إلا عندما تكون اللغة الإدارية غير العربية ، وبالتالي لم أجد انها من صلاحيات المستخدم بقدر ما هي صلاحيات المبرمج ، فما تطرقت لهذه الفكرة ,, الرسائل المكتوبة بالعربي لن تظهر للمستخدم أبداً أبداً أبداً أبداً إلا اذا المبرمج وقع امر استدعاء دالة التحقق من اللغة ( وكأننا لم نفعل شيئاً حينها ) ما تخافش انا خدت بالي من كل الإحتمالات لأنني جربت الفكرة على 16 نسخة ويندوز للآن ، ومن بينهم جهازين تم عمل فورمات لهم وتنزيل ويندوز جديدة ولم يتم اختيار اللغة العربية ، وبعد تثبيت أوفيس 2016 و 2019 على كل منهما قمت بتشغيل الملف ولم تظهر أي مشكلة قد تخطر ببالكم إجمالاً .. لو تم ايقاف الجزء المسؤول عن اغلاق النموذج في الحدث عند التحميل ، وحاولت تغير اللغة فلن يتم تغييرها أبداً ، لأن الهدف هو ان يكون الترميز لغة عربية وليس الهدف البلد ، ولكن إضافة الفكرة كانت كرغبة في عدم التقيد ببلد محدد للمبرمج 😉

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

باعتقادي لأنك تستعمل حقل الترقيم التلقائي ( AutoNumber ) . أما فيما يخص الترقيم فهنا أمامك طريقان :- أن كان الترقيم ليس مفتاح اساسي مشترك ومرتبط مع جداول أخرى ( وبالنسبة لي هذا لا اشجعه ولا اعتمده في الترقيم الفريد للموظفين أو الزبائن أو العملاء ... إلخ ) أي بمعنى آخر هو فقط مجرد حقل لا تستخدمه للربط فأمر الترقيم غير مهم لأنهك هنا ستضطر لعمل ضغط وإصلاح للقاعدة كلما حذفت سجل للمحافظة على تسلسل الترقيم التالي ، يعني لو عندك 10 سجلات وحذفت السجل 10 ، سيكون التالي 11 في كلا الحالتين ، ولو حذفت الـ 10 كاملة وأضفت سجل فسيكون الأول أيضاً ترقيمه 11 .. إذا لا مفر من أتباع نهج وطريق آخر ,, أما اذا كان حقل الترقيم مفتاح أساسي ( وكما أخبرتك سابقاً أنني لا أشجع هذه الفكرة ) ، لا انصحك بالتلاعب بالترقيم لأن ذلك يؤثر على سير العلاقات بين الجداول ( خصوصاً إن كان هذا الحقل ذو علاقة رأس بأطراف مع جدول آخر ) .. أتمنى أن تكون الفكرة قد توضحت لك .. ولكن إجابةً لسؤالك راجع هذا الموضوع ، قد تجد ضالتك فيه .

اخي الكريم ، حتى تتضح لك الصورة أكثر ، ولا نخوض في موضوع ثاني ونخالف قواعد المنتدى .. نستطيع تقسيم العملية إلى أجزاء وطباعة كل جزء بشكل منفصل لفهم كيفية حساب القيمة النهائية ، على سبيل المثال :- حساب مجموع القروض (Loan_Made) للسنة السابقة :- Dim LoanMadePreviousYear As Double LoanMadePreviousYear = Nz(DSum("[Loan_Made]", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear - 1 & " And [Loan_ID] > 0 And [Nr] >= 6"), 0) Debug.Print "LoanMadePreviousYear: " & LoanMadePreviousYear حساب مجموع المدفوعات (Payment_Made) للسنة الحالية :- Dim PaymentMadeCurrentYear As Double PaymentMadeCurrentYear = Nz(DSum("[Payment_Made]", "[tbl_Loans]", "Year([Auto_Date])=" & Me.txtYear & " And [Loan_ID] > 0 And [Nr] > 5"), 0) Debug.Print "PaymentMadeCurrentYear: " & PaymentMadeCurrentYear حساب القيمة المتبقية (Remaining) :- Me.Remaining = LoanMadePreviousYear - PaymentMadeCurrentYear Debug.Print "Remaining: " & Me.Remaining ستظهر لك النتيجة بهذا الشكل .. LoanMadePreviousYear: 65000 PaymentMadeCurrentYear: 0 LoanMadePreviousYear: 65000 Remaining: 65000 أرجو أن تكون الصورة قد توضحت لك ,, وأكتفي بهذا القدر حتى لا نتعدى الصلاحيات .