رمهان

استاذ حسنين هل بيمشي الحال بالكود التالي ؟ مع جعل خاصية تاب ستوب لزر الحفظ=لا Private Sub Form_BeforeUpdate(Cancel As Integer) Cancel = Me.ActiveControl.Name <> "DoSave" End Sub تحياتي

ممكن الملف بدون ضغط استاذ محمد ؟

مع انك لم تذكر هل هناك رسالة خطا وماهي ؟ ولكن جرب االتالي : 1. تاكد انه يوجد مفتاح اساسي ... هذا دائما يحل مشاكل الربط مع الاس كيو ال 2. غير السطر اعلاه الى : تحياتنا

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

مشكورين وفق الله الجميع 🌷

@عبد اللطيف سلوم وجميع احبتي وبعد اطيب تحية هنا تجد هل التصميم الوان وازرار مهمة ؟

بعد اطيب واجمل تحية اتمنى لكم وقتا ممتعا وفائدة ولاتنسونا من دعاؤكم 🌷 https://www.youtube.com/watch?v=3_QDoXynQs0

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

هذا مرفق به التطبيق اكثر تحياتي اخفاء نموذج فرعي.accdb

وانت بالف خير جرب القدسي تضيف me.requery بالتوفيق

شكرا استاذ كانوري على اتاحة الملف اخي القدسي جرب ان تضع الكود التالي عند التحميل للنموذج الفرعي الاول Private Sub Form_Load() Me.supform_estelam.SourceObject = "" End Sub بالتوفيق

حياك اخي بمشيئة الله احصل وقت الايام الفادمه واحاول مساعدتك تحياتي

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

ممكن ارفاق الملف مباشرة وبدون ضغط؟

@ابوآمنة الصق هذه الجملة في استعلام جديد SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1 FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo; بالتوفيق

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

@ابوآمنة هذا مرفق اضفت مربع في النموذج الفرعي لاخي قاسم وليس للكود حاجة ونفس الفكرة يمكن عملها باستعلام واعتبرت اجمالي الفاتوره محسوب وليس مدخل وهذا الاصح حيث عند تعديل سعر اوكمية صنف يتم حسبة اجمالي الفاتوره تلقائي بالتوفيق test1(1).accdb

@Elsayed Bn Gemy ممكن المرفق مشكور

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

@أبو إبراهيم الغامدي هل راح تنفع الفكرة في بيئة متعدد المستخدمين ؟ تحياتنا

@أبو إبراهيم الغامدي

استخدم docmd.runsql للتعديل وشوف طبعا نفس جملة التعديل اعلاه اكتب من الموبايل

يبدو ان المشكلة في انه عند عملية التعديل لايتحرر الجدول من الذاكرة 1. هل تاكدت ان القاعدة الخلفية في وضع مشترك وليس حصري ومن خلال قائمة الخيارات اعدادات العميل ؟ 2. هل نموذج الدخول مصدر بياناته جدول المستخدمين ؟ اجعله غير منضم اذا كنت تستخدم جملة اس كيو ال update في عملية تعديل الحالة ؟ 3. ماهو الكود تبع التحقق من الدخول ؟ 4. ماهو الكود تبع تعديل الحالة ؟ اخيرا : بما انه عند الضغط والاصلاح لاتظهر رسالة ارشادية وتحل المشكلة مؤقتا : هذا معناه ان المشكلة تكمن في عدم تحرر الجدول من الذاكرة ! تحياتي

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

لم افهم هذا السطر .. خصوصا "دون تنشيط اي سجل " .. لو وضعت الكود عند حدث في الحالي للنموذج الفرعي فانه لايتنشط الا السجل المختار ! تحياتي