Eng.Qassim

لايوجد خطأ ..فقط استبدل السطر الاول لعدم وجود المكتبة Dim db As DAO.Database

اضافة لما تفضل به استاذ @ابوخليل حاول ان لاتكون التسميات فيها فواصل ...يمكنك في التسمية التوضيحية جرب الكود التالي بعد ان رفعت الفواصل DoCmd.OpenForm "RecordsNote", acNormal Forms!RecordsNote.RecordSource = "SELECT * from AccountsCollects where ID= ID" Forms!RecordsNote.Requery

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

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

وعليكم السلام.. ضع هذا السطر فقط وامسح البقية.. Me.forma11.Requery

هل هذا ماتقصده Aziz5_03.rar

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

طيب شوف هذا الموضوع لاستاذنا صالح حمادي

اعتذر منك ...لم افهم السؤال ..وربما هذا بسبب العمر 😂 وشكرا لاستاذي الحبيب @kanory الذي افهمني بجوابه عن ماهية السؤال

وعليكم السلام عملت لك مربع نص للتصفية حسب الاسم او الوظيفة BASE2024.rar

😂 انا متأسفت ...توهمت في الملف ashraf .rar

وعليكم السلام اسماء الحقول في استعلام اجمالي رصيد المخزن قد تغيرت الى Expr اليك التعديل report error.rar

بكل بساطة ..عملت زر تعديل يقوم بتشغيل استعلام الحذف ..وحسب رقم القائمة وليس العميل جمعية.rar

فكرة على السريع .. في GO_Click تحتاج الى استعلام حذف مبني على رقم الفاتورة ورقم العميل ولان الفاتورة ليس بها رقم .. وربما العميل لديه عدد من السلف ..فأستعلام الحذف سوف يحذف الجميع ..والامور كلها ب تبوز اعمل رقم متسلسل للفواتير ...حتى تعمل استعلام حذف برقم الفاتورة ورقم العميل تلحقها الاكواد الموجودة في GO_Click لم اجربها لوقتي الضيق ...لكن حاول استاذ ابو عبد الرحمن

انت في صفحة الاب والام ..وانا قلت لك ان تغير بأسماء الحقول [txtQawmi] يصبح [txtQawmi2]

ان فهمت سؤالك ..انسخ الكود التالي في حقل الرقم القومي للابن في حدث قبل التحديث وطبقه مع بقية حقول الرقم القومي للاب والام ..مع تغيير اسماء الحقول If Nz(DCount("Qawmi", "tbl_Sons", "[txtQawmi]= [Qawmi]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If If Nz(DCount("Qawmi", "Show_Familys", "[txtQawmi]= [Qawmi]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If If Nz(DCount("Qawmi2", "Show_Familys", "[txtQawmi]= [Qawmi2]"), 0) = 0 Then Else MsgBox "الرقم مسجل من قبل.." Me.Undo DoCmd.CancelEvent End If

لاتحتاج لوضع المجموع في الجدول الاساسي انظر للمثال مجموع المبيعات.rar

تفضل التعديل Felter.rar

اضافة لما تفضل به اخينا @شايب لاجبار النموذج في مكان معين استخدم هذا في حدث عن التحميل DoCmd.MoveSize Left, Top, Width, Height

بالنسبة للحقل test تقوم الدالة الشرطية بأختبار قيمة الحقل bage ..اذا كانت قيمته =0 تعطينا الرقم 3 الذي يشير الى ثيمة زر خيار (الذين ليس عليهم ديون)...واذا كانت قيمة bage اكبر من 0 فأن الدالة الشرطية تعطينا الرقم 2 الذي يشير الى زر خيار (الذين عليهم دين) الان احتجنا الى حقل اخر test1 والتي تقوم الدالة الشرطية بأعطاءنا القيمة 1 للجميع والتي تساوي قيمة زر خيار (اختيار الجميع) سواء كانت قيمة الحقل bage يساوي 0 او اكبر من 0

اخونا @شايب مبدع جدا وأفكاره جميلة

أضفت حقل اضافي للاستعلام ليجعل الجميع نفس القيمة Aziz5.rar

اجعل مصدر الصف للكومبوبوكس هكذا SELECT item.Item_Name FROM item ORDER BY item.Item_Name; لان القديم يخص حقلين وامسح ال 0 من Default value

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

اخي او ولدي العزيز ...الجداول هي قاعدة بيانات لحفظ جميع العمليات من بيع وشراء يمكنك مثلا ان يقوم العد للفواتير من البداية لكل بداية سنة في نفس الجداول قاعدة بيانات اكسس تتحمل 2 كيكا ...لكن اهم شيء هو عدم تحميل الجداول الاساسية بالاسماء وانما بالارقام ..يعني مثلا في فاتورة البيع يكون اسم الصنف رقم