Ahmed_J

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

السلام عليكم استاذ @شايب شكرا لك انا اريد تعديل الاستعلام لكي لاتظهر الرسالة تحياتي

لدي ملف اكسس لحساب صرفيات الوقود للمولد وهو يعمل بصورة جيده ونتائجه صحيحه والعمليات الحسابية في الاستعلام ليست معقدة لكن عند فتح سجل جديد ومليء البيانات تظهر رسالة لايمكن تحديث الحقل تحياتي test.accdb

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

السلام عليكم انا جربت الكود على الشاشات التالية : 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) اكيد انا افضل ان يكون اخر موضوع هو الدفع بعد اكمال متطلبات العمل الحالي نحن عندنا الخصم يكون على مجمل الفاتورة وليس صنف معين ومع ذلك نستفيد منكم ان شاء الله