Ahmed_J

السلام عليكم لايوجد اي فرق بيننا ابدا نحن فريق واحد ان شاء الله

السلام عليكم انا جربت الكود على الشاشات التالية : 800*600 1024*768 1280*720 1280*768 1360*768 1920* 1080 يعمل بصورة صحيجة عندي بعد ان قمت بتعديل حجم الخط بالنسبة للقوائم المنسدله والحقول لتتلائم مع التكبير والتصغير وهذا كود الاخ @صالح حمادي Option Compare Database Function salah(frm As Form) Dim x, y, x1, y1 As Integer Dim moyH, moyW As Double Dim obj As Control Dim str As String x = frm.InsideHeight 'ارتفاع النموذج قبل التكبير y = frm.InsideWidth ' عرض النموذج قبل التكبير DoCmd.Maximize x1 = frm.InsideHeight 'ارتفاع النموذج بعد التكبير y1 = frm.InsideWidth ' عرض النموذج بعد التكبير moyH = x1 / x 'معامل الإرتفاع moyW = y1 / y ' معامل العرض For Each obj In frm.Controls With obj .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH .FontSize = .FontSize * moyW End With Next End Function وهذا الكود بعدل التعدبل علية من حيث جحم الخطوط Option Compare Database Option Explicit Function ResizeForm(frm As Form) On Error GoTo ErrorHandler Dim X As Long, Y As Long, x1 As Long, Y1 As Long Dim moyH As Double, moyW As Double Dim obj As Control Dim maxFontSize As Integer Dim newFontSize As Double maxFontSize = 20 ' الحد الأقصى لحجم الخط ' أبعاد النموذج قبل التكبير X = frm.InsideWidth ' عرض النموذج قبل التكبير Y = frm.InsideHeight ' ارتفاع النموذج قبل التكبير ' تكبير النموذج DoCmd.Maximize ' أبعاد النموذج بعد التكبير x1 = frm.InsideWidth ' عرض النموذج بعد التكبير Y1 = frm.InsideHeight ' ارتفاع النموذج بعد التكبير ' حساب معامل الارتفاع والعرض moyH = Y1 / Y moyW = x1 / X ' تعديل خصائص كل عنصر في النموذج For Each obj In frm.Controls With obj ' ضبط الموضع والحجم .Left = .Left * moyW .Top = .Top * moyH .Width = .Width * moyW .Height = .Height * moyH ' تعديل حجم الخط إذا كان العنصر يدعم ذلك If .ControlType = acTextBox Or .ControlType = acLabel Or .ControlType = acCommandButton Or .ControlType = acComboBox Then If Not IsNull(.FontSize) Then newFontSize = .FontSize * moyH If newFontSize > maxFontSize Then .FontSize = maxFontSize ElseIf newFontSize < 6 Then .FontSize = 6 ' الحد الأدنى لحجم الخط Else .FontSize = newFontSize End If End If End If End With Next obj Exit Function ErrorHandler: MsgBox "حدث خطأ: " & Err.Description, vbCritical End Function وهذا الملف النهائي بعد التعديل تحياتي ملائمة النموذج حسب حجم الشاشة.accdb

استاذ @Foksh شكرا لك بارك الله فيك تحياتي

جاري التجربة ......

استاذ @Foksh النتائج صحيحه 100% لكل ماده فقط ان كل مادة تظهر بالنموذج الرئيسي لوحدها مثل ورق A4 وتفاصيلها تظهر بالنموذج الفرعي تحياتي

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

استاذ @Foksh النتيجة صحيحة بالاستعلام هذه النتيجة النهائية لاخر حركة فقط لكن اريد جركة كل صادر ووارد مخزن لتظهر بالنموذج (بطاقة المخزن )

كنت اضن انه تتم العملية من خلال الاستعلام تفضل نسخة فيها نماذج Database1.accdb

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

لسلام عليكم لدي ملف اكسس فيه جدولين راس واطراف للوارد المخزني والصادر المخزني في جدول واحد المطلوب معرفة الرصيد التراكمي (كمية الرصيد) للمواد عند ادخال ماده جديده للمخزن (وارد مخزني) او صرف ماده من المخزن (صادر مخزني) وشكرا Database1.accdb

السلام عليكم استاذ @ابوخليل ان شاء الله جاري العمل حسب توجيهاتك

استاذ @ابوخليل اكيد عندي اسئلة كثيرة بس والله خجلان منك لان الاسئلة كثيرة سؤال : رقم الفاتورة : InvoiceID هل يتم تعبئته يدوي او المفروض بصورة تلقائية لان لدي صيفة بالتنسيق يكون تلقائي ("NO:"000000) اكيد انا افضل ان يكون اخر موضوع هو الدفع بعد اكمال متطلبات العمل الحالي نحن عندنا الخصم يكون على مجمل الفاتورة وليس صنف معين ومع ذلك نستفيد منكم ان شاء الله

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

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

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

السلام عليكم استاذ @ابوخليل انظر للملف عملت النماذج مباشرة على الجداول تعرف انه في اخطاء ولا ربط ولا استعلامات تحياتي Invoices.accdb

السلام عليكم آسف للازعاج بس والله لسه موفاهم طريقة الاستاذ @ابوخليل اريد ان اعملها بنفسي الجداول والحقول باللغة العربية ثم انا اعكسها للعة الانكليزية لافهم الموضوع اكثر المطلوب: - عدد الجداول - اسماء الجداول - اسماء الحقول - طريقة الربط

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

شكرا استاذ @ابوخليل شكرا استاذ @Foksh يعني قصدك يكون جدولين الجدول الاول : راس فاتورة البيع والشراء الجدول الثاني : اطراف فاتورة البيع والشراء وشكرا

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

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

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

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

السلام عليكم اساتذتي الاعزاء هل الموضوع صعب لهذه الدرجة ام انه لايمكن عمل ذلك ارجوا من احد الاساتذه الاجابة تحياتي

up