Ahmed_J

UP

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

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

السلام عليكم مرفق صورة لفاتورة بيع فيها مجموع القائمة - الواصل من المبلغ= الباقي من الفاتورة (خاص بفاتورة البيع الواحده) المطلوب : الطلب السابق على الزبون + الباقي من الفاتورة = الطلب الكلي على الزبون

يعني اول مرة للزبون عند اول قائمة له اكيد الرصيد السابق يساوي صفر لانه اول مرة يشتري منك هذا يكون بالقائمة رقم 1 والرصيد الكلي = 0+ مجموع القائمة القائمة2 في الرصيد السابق تساوي الرصيد الكلي للقائمة رقم 1 وهكذا هيك انا فاهم الموضوع شكرا للمتابعة

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

السلام عليكم ملف مرفق لغرض التعديل علية تحياتي للجميع TEST.accdb

السلام عليكم لدي ملف فاتورة بيع للبيع (نقدا واقساط وآجل) تتكون من جدول راس فاتورة البيع وجدول اطراف فاتورة البيع وجدول تسديد الديون وجدول الزبائن انا استخرجت ديون الزبون الكلي (الطلب الكلي) المطلوب: ماهي طريقة اظهار ومعرفة رصيد حساب الزبون السابق (الرصيد السابق) حتى تتكون المعادلة النهائية ( مجموع الفاتورة الحالية + الرصيد السابق) = الطلب الكلي تحياتي للجميع

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

شكرا لكم احبتي على المتابعة اريد وضع حقل السعر بالدينار فوق حقل السعر بالدولار وكذلك المجموع بالدينار فوق المجموع بالدولار والتحكم باظهار كل حقل من خلال نوع العملة اذا كان دينار تظهر حقول الدينار وبالعكس تحياتي للجميع test.accdb

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

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

السلام عليكم اخي العزيز @gavan جرب الملف المرفق على مقاس شاشات مختلفة ووافينا بالنتيجة رجاء تحياتي ملائمة النموذج حسب حجم الشاشة.accdb

السلام عليكم كود للاخ @صالح حمادي ملائمة عناصر النموذج في وضع ملأ الشاشة https://www.officena.net/ib/topic/74453-ملاءمة-عناصر-النموذج-في-وضع-ملأ-الشاشة/ تم التعديل عليه قليلا للتلائم العناصر مع حجم الشاشة من حيث (حجم الخط) و(تعديل خصائص العناصر) 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

السلام عليكم انا جربت الكود على الشاشات التالية : 800*600 1024*768 1280*720 1280*768 1360*768 1920* 1080 كان يعمل بصورة صحيجة عندي هذا الخطا بالصورة غير موجود عندي اذا كنت لاتريد اخفاء الاكسس احذف الكود عند التحميل في النموذج HideAccess الكود انا استخدمة في النماذج الكبيرة والمفردة تحياتي

السلام عليكم جرب المثال على شاشة جهازك واخبرني النتيجة ضبط النموذج على الشاشة.accdb

السلام عليكم استاذ @عمر ضاحى انا عندي نظام التشغيل (Windows 7 32 bit) واكسس (2010) والكود شغال معي ارجو تجربته على انظمة مختلفة لتعم الفائده للجميع تحياتي

السلام عليكم شكرا لك استاذ @kanory لدي نموذج فيه كومبوبوكس لمعرفة الاجهزة المتصلة بالحاسوب يمكن من خلاله تحديد نوع الماسح الضوئي المراد العمل عليه ارجو تجربته واخبارنا بالنتيجة كما في النموذج المرفق تحياتي test.accdb

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

السلام عليكم اساتذتي الاعزاء شكرا لك استاذ @الحلبي شكرا لك استاذ @ابو بسملة شكرا لك استاذي القدير @ابوخليل بارك الله بكم جميعا

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

up

السلام عليكم اساتذي الاعزاء لدي برنامج مخزني بسيط فيه جدولين الاول table1 لادخال الوارد المخزني و table2 لاخراج الوارد المخزني المطلوب : استعلام لغرض اظهار الرصيد الباقي من المواد في حالة صرف اي مادة من المخزن من خلال الجدول table2 واظهار الحقول الخاصة بهم كما في النموذج form1 تحياتي test 10.accdb

السلام عليكم استاذ @زياد الحسناوي اساتذتي الاعزاء هل من الممكن اكمال الموضوع لطفا حتى لو كان عام 2019 تحياتي للجميع

استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام