كل الانشطه

السلام عليكم يا اهل الخير والكرم في مشكلة عندي حاولت اجد لها حل لم استطيع وبحثت بالانترنت لمدة يومين ولم اجد حل قلت نا في الا اوفيسينا الملف المرفق عملت فيه عدم تكرار البيانات في عمود a وتمت العملية بنجاح ولكن فعاله فقط عند الادخال اما اذا نسخت ولصقت البيانات يتم وضعها عادي وهي مكررة شالحل https://1drv.ms/x/c/e0a2b3b76351a8a0/EZiXVcE0SVdJiME8JsYA-hABR_yTVthuP3DIXk96EJMPrQ?e=FNnSZx الملف في الرابط no duplicate.xlsx

السلام عليكم شكرا لك استاذ @ابوخليل بارك الله فيك تعبتك معي بقى Payments ماعندي اي فكرة عنه هل التسديد مرتبط باجمالي الفاتورة ام مرتبط باجمالي الدين بصورة عامة وكيف استخرج رصيد الزبون السابق وشكرا

لكن هل يوجد حل للتعبئة من خلال المشاركة لمناطق مختلقة

أخي الكريم @أحمد عمروف ، تفضل هذا التعديل على التوزيع الشفوي و توزيع اللياقة في زرين منفصلين ، التوزيع الشفهي حسب ما فهمت منك سيكون بتاريخ 31/05/2025 ، واللياقة افترضت تاريخ 10/06/2025 للتجربة ، على العموم ، راقب النتيجة في الجدولين وأخبرني بمدى دقتها أو صحتها أم لا !!!! فكرة توزيع تلقائي لمستويين (2).zip

تمام ، بناءً على كلامك ، سيكون التعديل كالتالي ، وأنصح بدراسة وتجربة جميع الإحتمالات حتى تلم بها دون اي مشاكل .. استبدل التعديل السابق بالتالي في التقرير :- Private Sub ProcessNoRemarriageCertificate() Me.L3.Visible = False Me.L2.Visible = True Me.L1.Visible = True Call InitializeControlsVisibility Dim zawjValue As Integer, zawjaValue As Integer zawjValue = Nz(Me.Tbl_ZAWJ_Hamech.Value, 0) zawjaValue = Nz(Me.Tbl_ZAWJA_Hamech.Value, 0) Dim dateDivorce As Date, dateDeath As Date On Error Resume Next dateDivorce = Nz(DLookup("[تاريخ (الوفاة - الطلاق)]", "N_Mariag"), 0) dateDeath = Nz(DLookup("[تاريخ الوفاة]", "N_Mariag"), 0) On Error GoTo 0 Select Case True ' حالة "لم تطلق منذ زواجها" Case (zawjValue = 1 And zawjaValue = 1) Me.k5.Visible = False Me.Da5.Visible = True Me.Za5.Visible = True ' حالة "عدم إعادة الزواج وهي أرملة" Case (zawjValue = 2 And zawjaValue = 1) Me.k6.Visible = False Me.Da6.Visible = True Me.Za6.Visible = True ' حالة "عدم إعادة الزواج وهي مطلقة" Case (zawjValue = 1 And zawjaValue = 2) Me.k7.Visible = False Me.Da7.Visible = True Me.Za7.Visible = True ' حالة "الزواج المنعقد بين السيد والسيدة" Case (zawjValue = 1 And zawjaValue = 1) Me.k8.Visible = False Me.Za8.Visible = True Me.Com8.Visible = True Me.Ne8.Visible = True ' الحالة الجديدة أخي طاهر عندما يكون الزوج متوفي والزوجة مطلقة (zawjValue = 2 And zawjaValue = 2) Case (zawjValue = 2 And zawjaValue = 2) If dateDeath > dateDivorce And dateDivorce <> 0 And dateDeath <> 0 Then ' إذا توفي الزوج بعد تاريخ طلاق الزوجة Me.k7.Visible = False Me.Da7.Visible = True Me.Za7.Visible = True Else Me.k7.Visible = True Me.Da7.Visible = False Me.Za7.Visible = False End If End Select DoCmd.Close acForm, "A3" End Sub Private Sub InitializeControlsVisibility() Dim controlNames As Variant controlNames = Array("k5", "Da5", "Za5", "k6", "Za6", "Da6", _ "k7", "Za7", "Da7", "k8", "Za8", "Com8", "Ne8", _ "k1", "Za1", "Da1", "k2", "Za2") Dim ctrlName As Variant For Each ctrlName In controlNames On Error Resume Next Me.Controls(ctrlName).Visible = (Left(ctrlName, 1) = "k") On Error GoTo 0 Next ctrlName End Sub

شكرا استاذي على التعديل الجميل ربي يجازيك ويبارك في عملك الان في نظري الحالة الاخيرة تكون ساهلة حسب تبسيط الكود الزوج متوفي والزوجة مطلقة اي الهامش2 و 2 علمنا ان الطلاق قبل الوفاة هنا تطبق الحالة7 "لم تتزوج منذ طلاقها من زوجها السيد " نذهب الى الحالة التي بين ايدينا ركز معي حالة نور الدين قسومة الطلاق من هنيه فقير يوم 1998/02/26 والوفاة يوم 2000/05/01

أخي @طاهر اوفيسنا ، توضيحك للقيم الخاصة بالهامش في الجداول جاءت لك بفائدة كبيرة وهذا الى حد ما جزء من التأسيس الصحيح . تم استخدام هياكل تحكم أفضل من الجمل الشرطية . حيث استبدلت عبارات If-ElseIf المتعددة ببنية Select Case أكثر وضوحاً واستقرار مع دالة مساعدة بسيطة ، في المرفق التالي :- فتح تقرير FACE15.zip وفي الواقع انا تلافيت التعديل والعبث في مكونات جداولك بعد تعليقك على تعديلاتي في التقرير 😅 . ردك جعلني أتراجع عن المتابعة الى حد ما سابقاً ولكن الحمد لله تيسرت بطريقتك المشروعة .

استاذي العزيز فما محاولة لي بدالة IF تفي بالغرض المطلوب ياريت تتطلع عليها واذا رأيت اختصارات فقم باللازم فتح تقرير FACE15.rar

اخي واستاذي @Foksh اولا لكم مني جزيل الشكر على مرورك الكريم وسرعة الاستجابه هذا بالفعل هوا المطلوب

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

جزاك الله خيرا

لماذا اعادة البناء استاذ انت عدل عمل التقرير على ثلاثة حالات فقط ملاحظة : لا تتبع الامثلة الاخيرة التي ارفقتها بخصوص الهوامش واتبع مايلي : الحالة الاولى : الزوج متوفي هامش الزوج يحمل رقم 2 يعني الزوجة ارملة " لم تتزوج منذ وفاة زوجها السيد ......... المتوفي بتاريخ ........" العنوان (عدم إعادة الزواج 3) الحالة الثانية : الزوجة مطلقة هامش الزوجة يحمل رقم 2 يعني حالة طلاق "لم تتزوج منذ طلاقها من السيد ..........بتاريخ ........." العنوان (عدم إعادة الزواج 3) الحالة الثالثة : الزوجة على قيد الحياة وغير مطلقة هامش الزوجة يحمل رقم 1 يعني حالة زواج " لم تطلق منذ زواجها بالسيد .......... بتاريخ ............" العنوان (عدم الطلاق 2) هذا مافي الامر ارجو ان اكون بسطت لك الفكرة وان شئت اقرن بدالة IF الشرطية الحالات بالهامش 1- الزوج حالة 2 والزوجة حالة 1 2- الزوج حالة 1 والزوجة حالة 2 3- الزوج حالة 1 والزوجة حالة 1

اخي و استاذي @أبو إبراهيم الغامدي اولا لكم مني جزيل الشكر على مرورك الكريم وسرعة الاستجابه هذا بالفعل هوا المطلوب

عدلت على النماذج انظر النماذج الخدمية كيف اصبحت خاصة نموذج الأصناف وانظر سعر البيع والخصم والسعر النهائي ( غالبا الخصم على البيع لم يمر بي خصم على المشتريات انما البائع هو من يضع الخصم على السلعة المباعة ) ....................................... عملك فقط على فورم الفاتورة .. تم تحسين الفاتورة والتفاصيل - جعلت خاصية حقول نوع العملية .. ونوع الدفع (مطلوبة=نعم) عمليات التفاصيل في النموذج الفرعي تعتمد على حقل نوع العملية في فورم الفاتورة الرئيسي - ادخال الصنف اما بالرقم او الاختيار - عند كتابة رقم الصنف او اختياره من مربع التحرير .. يتم ادراج السعر ( شراء او بيع ) - عند كتابة الكمية يظهر الاجمالي في الحقل المخصص ( شراء او بيع ) اللمسات والتحسينات ممكنة مثل ضم حقلي الاجمالي فوق بعض بحيث لا يظهر الا الحقل الموافق لنوع العملية ومثل رسائل النظام واستبدالها برسائل مفهومة ................... ومثل ان نعمل رأسين للفاتورة واحد للبيع وأخر للمشتريات .. بدلا من اختيار النوع في كل عملية .. وتسهيلا للمستخدم ويمكن عمل اربع رؤوس لا تستغرب اثنان للبيع النقد والآجل واثنان للشراء النقد والآجل كل هذه الأربعة تصب في جدول واحد .............. وتحسينات اخرى كثيرة يمكن مستقبلا عملها المهم عملية البيع والشراء الأساسية تسير بشكل محكم وسلس _____________________________________ جرب كل الانواع وحاول تدرس المثال والاكواد الخاصة .. مهم جدا تفهم الاكواد في النموذج الفرعي وتعرف كيف تتم العملية وخطواتها معرفة تامة خذ وقتك ولا تستعجل .. الدرس هذا بسيط وهو البداية ملحوظة : مرتجع الشراء هو عبارة عن بيع ومرتجع البيع عبارة عن شراء ........... بعد ذلك يمكننا الانتقال الى عملية الدفع Invoices2.rar

تفضل تم التعديل فضلا وتكرما .. يكفي الصف الأول كاملا .. اما بقية الصفوف لو تكرمت تبقي على 10 طلاب فقط الحذف من جدول الأسماء ومن جدول الدرجات من فضلك .. مازاد عن 10 احذفه Data9.rar

اعتذر منك عن المواصلة ، فعملك يحتاج لإعادة بنااااااء . وخصوصاُ فكرة الهوامش الغير متوحدة ، بما أنك أوجدت جدول للهوامش فمن المفترض ان يضم جميع الإحتمالات وبأسلوب صحيح وليس كما في الجدول الخاص بالهامش = Tbl_Hamech هامش العملية على قيد الحياة و غير مطلقة على قيد الحياة و مطلقة بتاريخ : مطلقة بتاريخ : ومتوفيه بتاريخ : متوفية بتاريخ : وفي الجدول الخاص بالزوج = Tbl_ZAWJ الهامش متوفي بتاريخ : متوفي بتاريخ : على قيد الحياة بينما في الجدول الخاص بالزوجة = Tbl_ZAWJA الهامش على قيد الحياة و مطلقة بتاريخ : على قيد الحياة و غير مطلقة على قيد الحياة و مطلقة بتاريخ : فمن المفترض ان يلم الجدول الخاص بالهوامش بجميع الحالات والتي يمكن ان تساعدك في تحقيق طلبك . وعليه فأن القيمة في الحقل في جدول الزوج والزوجة للحقل الهانش ستكون بما يناظرها في جدول الهوامش .. هذه وجهة نظري الغير ملزمة لك ، ما لم يكن هناك وجهة نظر أخرى لأحد الأساتذة , أو إن لم أخرج لك بطريقة أخرى تحافظ على ما تريده ، مع العلم أنني استشرتك في التعديل على فكرة التقرير ، وقد سمحت لي بما يتحقق مع مطلبك ثم عدلت عن الفكرة بإنها تغير من بنية التقرير ( بسبب قيود إدارة الحالة المدنية الجزائرية .

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

السلام عليكم استاذنا الفاضل @ابوخليل والأستاذ @Foksh جزاكم الله كل الخير لتفاعلكم مع موضوعي: بعد التجربه : بالنسبة لكود الأستاذ foksh لانه عندي تقارير متعددة اطبق عليه الكود . قمت بالتغيير كمايلي: If Me.Counter > 25 Then Me.StuName.FontSize = 8 Me.StuName.Height = 100 Me.Datail.Height = 100 فلاحظت ان حجم الخط لايتغيير لجميع الحقول (يتغير فقط في الاسم) وكذا الارتفاع لا يتغير - كما في الصورة الأولى- بالنسبة لكود الأستاذ ابوخليل عند تغيير حجم الخط مثلا إلى 8 FF.FontSize = 8 حجم الخط يتغير في جميع الحقول وكذا الارتفاع نقص كما في الصورة الثانية وهذا ما أريده فجزاك الله كل الخير أستاذنا أخويا واستاذايا @Foksh @ابوخليل كل الشكر والتقدير والامتنان و جزاكما الله كل الخير على ما تقدمناه في هذا المنتدى و في هذه المدرسة التعليمية

أستاذتا الكبير Foksh السلام عليكم ورحمة الله وبركاته ؛؛؛ فضلا لا أمرا .. هل لي أن أساعد في أي شيء قد يساعد في استكمال هذا الموضوع مع خالص تقديري واحترامي

الجهاز خال من اي برنامج انتي فيروس الا جدار الحماية الخاص بالوينداوز ممكن طريقة كيفية عمل كلمة مرور على الوحدات النمطية

الهامش عند الزوجة فيه 3 ارقام وهي 1 و 2 و 4 1 على قيد الحياة و غير مطلقة 2 على فيد الحياة ومطلقة بتاريخ : 4 متوفية بتاريخ : الهامش عند الزوج فيه 2 ارقام وهي 1 و 2 1 على قيد الحياة 2 متوفي بتاريخ :

أخي @طاهر اوفيسنا ، ممكن توضح لي الحقل Hamech ???????? قيمته في جدول الزوجة Tbl_ZAWJA = الهامش على قيد الحياة و مطلقة بتاريخ : على قيد الحياة و غير مطلقة على قيد الحياة و مطلقة بتاريخ : بينما في الاستعلام = 2 OR 4 الأمر يستدعي إصلاح الكثير من الأخطاء للحصول على طلبك ،

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

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

مشكور كثيرا انت قريب من فكرتي وهو ان ملف PDF يكون جاهز مكتوب عليه فقط في البداية الرقم: اللقب: الاسم: تاريخ الميلاد: و عندما ابحث اي موظف مثلا رقم 1001 فانها صفحة PDF تظهر المغلومات في مكانها مثل الرقم:1001 اللقب:ALI الاسم:Hassan تاريخ الميلاد:01/01/1999