كل الانشطه

الهامش عند الزوجة فيه 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

لم أنتبه للجداول السفلى على العموم تم تعديل الكود ليتناسب مع طلبك في المشاركة السابقة اما بخصوص ورقة جدول Option Explicit Private Const ShName As String = "جدول " Private Const OnRng As String = "B6:AJ23" Private Const début As Long = 5 Private Const lastCol As Long = 36 Private Const linge As Long = 2 Sub Coloring_Classes() On Error GoTo EndClear SetApp False Dim Sh As Worksheet: Set Sh = ThisWorkbook.Sheets(ShName) Dim i As Long, r As Long, c As Long, ColAL As Long, ColA As Long Dim tmps As Object: Set tmps = CreateObject("Scripting.Dictionary") Sh.Range(OnRng).Interior.ColorIndex = xlNone ColAL = Sh.Cells(Sh.Rows.Count, "AL").End(xlUp).Row ColA = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Row For i = début To ColAL If Len(Sh.Cells(i, "AL").Value) > 0 Then If Sh.Cells(i, "AM").Interior.ColorIndex <> xlColorIndexNone Then tmps(Sh.Cells(i, "AL").Value) = Sh.Cells(i, "AM").Interior.Color End If End If Next i For r = début To ColA If tmps.exists(Sh.Cells(r, "A").Value) Then For c = linge To lastCol With Sh.Cells(r, c) If Len(.Value) > 0 Then .Interior.Color = tmps(Sh.Cells(r, "A").Value) End With Next c End If Next r EndClear: SetApp True End Sub Private Sub SetApp(ByVal enable As Boolean) With Application .ScreenUpdating = enable .EnableEvents = enable .DisplayAlerts = enable .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual) End With End Sub جدول التفريغ V3.xlsm

أي ملف به أكواد أوعناصر تحكم لا يمكن العمل به أونلاين

السلام عليكم ورحمة الله وبركاته جرب التعديل التالي جدول التفريغ V2 (1).xlsm

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

استاذ ابو خليل ماعندي اي فكرة عن التسديد

نسينا ان ندخل نوع الدفع في نموذج الرأس بعد اختيار الاصناف المطلوبة سيظهر الاجمالي في الاسفل ننقر لفتح نموذج الدفع سيظهر النموذج والمجموع ظاهر فيه من غير تدخل المستخدم + رقم الفاتورة + رقم العميل ان كان نقدا سيكون حقل الدفع متاح سواء حقل البيع او حقل الشراء ...... اتمنى فهمت التصور والتحليل الآن في جدول الدفع تم تسجيل رقم زبون ورقم الفاتورة واجمالي الفاتورة .. ولو اضفنا نوع الدفع يكون اسهل في التصفية مستقبلا لنفرض ان الدفع آجل كلي يدفع مرة واحدة او مجزأ كما اسميته انت تقسيط عند السداد نجلب السجل بناء على رقم الفاتورة ويتم تسجيل سجل جديد ويرصد المبلغ المسدد عند الاستعلام عن فاتورة محددة او عميل محدد __الفاتورة سيظهر جميع عمليات الدفع التي تمت عليها __ العميل سيظهر جميع الفواتير الغير مكتملة

تعبتك معاي استاذي العزيز، في ميزان حسناتك إن شاء الله Bوالعمود A ولكن استاذ في المرفق الي حضرتك ارفقته للتو هو صحيح صدر شيت الاكسل لكن ما قام بتشغيل كود دمج العمودين في الاكسل قصدي العمود حضرتك الكود الاول الموجود في مشاركتك الاولى هو مضبوط ويصدر ويقوم بعملية دمج العمودين في شيت الاكسل ، لكن مع الاسف ما تظهر البيانات المدموجة في شيت الاكسل تظهر الصفحة بيضاء فقط هل هناك حل لهذه المشكلة ؟

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

تفضل استاذ @RAIANESAMI مرفق حسب مافهمت . ووافني بالرد . PDF Report.rar

السلام عليكم انا تركت نموذج التسديد للاخر لان ماعندي فكرة عنه هل التسديد بكون عن الفواتير الي بالاجل والاقساط (المقصود بالاقساط ليست مبلغ ثابت وانما يسدد جزء من الفاتورة ويبقى الباقي ) او التسديد يكون عن اجمالي الدين الكلي واين نضع رصيد الزبون السابق عملت نموذج للدفع تحياتي Invoices.accdb

استاذي بامكانك الاستغناء عن الحالة 3 لانها حالة نادرة وعدل على الحالتين 1 و 2 لكان امكن وشكرا مسبقا

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

شكرا استاذي العزيز لم افهم قصدك في نظري كنت ستغير على طريقة العمل القديمة وليس حذف عناصر من التقرير لانه نموذج متداول باذارة الحالة المدنية الجرائرية "المرجع ح م 4 " فليس من حقنا حذف اي عنصر دون به ماعلينا الا ملء الفراغات فقط

تفضل استاذ @ابو عبد الله العراقي محاولتي حسب مافهمت . اليك المرفق بعد التعديل . ووافني بالرد . MergMic_KH.rar

تفضل يا أخي الفاضل أضفت الصف الثاني كله الصف الرابع والخامس والسادس 10 لكل صف وطبعا الأول والثالث كاملData8.rar أنا عملت زر لددرجة الفصل ( التحريري ) وزر أعمال السنة اللي حضرتك عملته

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

أخي @طاهر اوفيسنا ,, جرب هذا التعديل البسيط بعد ان تجاهلت ما كنت اعمل عليه سابقاً ,, فتح تقرير FACE14.zip عدلت عن السلوك السابق ، واتبعت سلوك جديد في التنفيذ ، جربه ان كان ناجحاً . فأنت أدرى مني بسلوك برنامج وآلية العمل عليه .

استاذ @محمد119900 أما اذا احتجت طلبك بشغل أكسس يوجد زر جديد بالفورم (MultiColumnTable) اسمه (CreateMultiColumnTable) بيسوي طلبط كما فهمت . تفضل التعديل . باركود نهائي مرتب المواد والشعب والطلاب (3).rar

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

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