عبدالرحمن هاشم

الله يكرمك أخي الفاضل على هذا الدعاء الجميل ولك بمثله إن شاء الله

الشكر الله أخي الكريم.. وهذا اختصار للكود اذا كان مربع التحرير يشتمل على القيمتين فقط If Me.ListBox = "نقدا" Then Me.txt= "02" Else Me.txt= "01" End If

انظر الاستعلام QryAcntCust حسب طلبك تحياتي Database1---up.rar

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

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

وعليكم السلام لو افترضنا أن مربع التحرير والسرد اسمه ListBox ومربع النص txt ضع هذا الكود في حدث بعد تحديث مربع التحرير والسرد If Me.ListBox = "نقدا" Then Me.txt= "02" Else If Me.ListBox = "آجل" Then Me.txt= "01" End If: End If:

تفضل أخي أعددت لك هذا المثال والكود منقول من أستاذنا Azhar Test.rar

وعليكم السلام ورحمة الله جرب أخي هذا التعديل Tabel1---up.rar

وعليكم السلام سؤال بس أخي الكريم.. لماذا لم تجعل جدول الأصناف به الكمية المنصرفة والكمية الواردة ليسهل عليك معرفة رصيد المخزن؟

جزاك الله خيرا أستاذنا أبو خليل

هل هذا ما تريد أخي الكريم؟ CALLING.zip

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

مشاركة بجانب مشاركة أخونا الكريم أستاذ راعي الغنم لإيضاح تغير السعر عند اختيار الصنف لديك جدول الأصناف يحتوي على اسم الصنف وسعر الصنف إذن من المفضل أن يكون جدول الفاتورة جدولان وهما [رأس الفاتورة] و[تفاصيل الفاتورة].. بمعنى: ◘ جدول رأس الفاتورة يحتوي على رقم الفاتورة وتاريخها واسم العميل وبياناته وهكذا ◘ جدول تفاصيل الفاتورة يحتوي على رقم الفاتورة ومرتبط بجدول رأس الفاتورة (كما أجاب أستاذ راعي) وحقل مربع تحرير وسرد للأصناف مرتبط بجدول الأصناف وحقل آخر سعر الصنف أي أن حقل السعر موجود في جدول الأصناف وفي جدول تفاصيل الفاتورة.. والغرض من ذلك هو بعدما تختار الصنف سيقوم بجلب السعر الموجود في جدول الأصناف في حقل السعر الموجود في جدول تفاصيل الفاتورة وذلك لكي تتمكن من التعديل على سعر الصنف لأنك لو جعلت حقل السعر الموجود في جدول الأصناف هو نفس الحقل الموجود في تفاصيل الفاتورة فذلك خطأ لأنك لو قمت بتعديل سعر الصنف سيتم تعديل السعر في كافة الفواتير السابقة.. أما بطريقة جلب السعر من جدول الأصناف ووضعه في جدول تفاصيل الفاتورة فتعديلك حينها على سعر الصنف سيقتصر على السعر الموجود في الفاتورة الحالية فقط ولن يتأثر السعر في جدول الأصناف

أهلا وسهلا بك أخونا الفاضل يفضل إرفاق مثال ليتسنى للإخوة أساتذتنا الكرام تطبيق طلبك

أهلا بك أخي الفاضل قم بإدراج مرفقك أفضل ليتسنى للإخوة أساتذتنا الكرام تطبيق طلبك

أهلا بك أخونا الفاضل أخي الفاضل ابدء وتوكل على الله بتصميم قاعدة البيانات وتأكد أن أساتذتنا الكرام لن يبخلون بالرد وبتقديم الإفادة واكتب لكل سؤال مشاركة مع مراعاة عنوان المشاركة بأن تكون سؤال بمضمون طلبك وذلك إلتزاما بقواعد المشاركة في المنتدى وأهلا بك مرة أخرى..

أخي الفاضل أهلا بك.. نرجو اتباع قوانين المنتدى في العناوين وذلك بتحديد سؤالك في عنوان مشاركتك والأفضل أن ترفق طلبك الذي تريد تطبيق عليه سؤالك

إذن فلماذا النموذج نسخة من dataentry مصدره جدول كود؟ ولماذا لا تجعلهم جدولين جدول المقاسات وجدول البارت نمبر مرتبط به بحيث كل مقاس يحوي بداخله البارت نمبر

وعليكم السلام ورحمة الله أظن السبب أخي الكريم محمد هو أنهم كلهم مرتبطين بجدول واحد وهذا هو سبب تغير البيانات سؤال.. هل البارت نمبر له أكثر من مقاس؟؟ لو كان كذلك فلما لم تعمل له جدول مستقل وتضع في استعلام مربع التحرير والسرد ComboSize هذا المعيار [forms]![dataentry]![Combopn] اعذرني ان كنت لم افهم السؤال

تفضل أخي الكريم طلبك في هذه المشاركة من إجابات أستاذنا الغالي المهندس سمير جزاه الله كل خير انظر التجميع في التقرير http://www.officena.net/ib/index.php?showtopic=50562

وعليكم السلام ورحمة الله هذا مجرد اقتراح توجد برامج تعطيك مساحة تخزينية يمكنك وضع قاعدة بيانات الجداول عليها ، ثم تضع واجهة برنامجك على الأجهزة التي تريد عمل برنامجك عليها وتربطهم بقاعدة بيانات الجداول في البرنامج المنوه.. ومن هذه البرامج برنامج Dropbox وهو يعطي مساحة 2 جيجا لكن للعلم لم أجرب أو أتعرض لإدخال البيانات من قبل 2 مستخدمين في وقت واحد وميكروسوفت تتيح نفس إمكانيات البرنامج بمساحة 7 جيجا اسمه SkyDrive وأيضا جوجل وتذكر أنه عليك تنصيب إحدي هذه البرامج على كل جهاز ستضع عليه الواجهة

يبدو أن السبب في تكراره أخي الكريم لأنك تدرج اسم الكتاب والحقول الأخرى فارغة أي أنه من المفترض أن تدرج الـ (نوع الصادرة - السنة - تسلسل الصادرة) قبل اسم الكتاب يعني تجعل اسم الكتاب آخر شيء لكي يعمل الكود

أخي الفاضل.. جرب المرفق بعد إضافة هذا الكود في حدث عند الخروج من الحقل nambook Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![seq] = Me![seq] And rst![typ] = Me![typ] And rst![year1] = Me![year1] And rst!nambook = Me!nambook Then MsgBox " هذا الكتاب مكرر بنفس الإسم والسنة والرقم التسلسلي ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه لا يمكن تسجيله" Me.Undo DoCmd.CancelEvent [seq].SetFocus Exit Do End If rst.MoveNext Loop rst.Close اتمنى يكون المطلوب sadra----UP.rar

على راحتك أستاذي رمهان جزاك الله كل خير وكان الله في عونك كان الرفع من أجل التذكرة فحسب

للرفع