Eng.Qassim

اعتقد ان المشكلة في ال ItemCode الاكسس لايرى انها Null وانما رقم

السلام عليكم اعتقد ان الموضوع تناوله بعض الاخوة الافاضل ...بحثت في المنتدى ولم اجد ضالتي ...ربما السبب في عنوان الموضوع المهم ...اني احتاج لترقيم جديد في النموذج الفرعي لكل فاتورة جديدة عملت ذلك حسب ماتعلمته من منتدانا واساتذتنا الكبار ... حاولت التخلص من كلمة Error التي تظهر لي في السطر الاخير ...ولم افلح invoice1.rar

تابع الكود الذي ارفقه الاستاذ @Moosak نوع البيانات غير متطابق... اعتقد الخلل في As Long يصبح As LongPtr

لايوجد خطأ ..فقط استبدل السطر الاول لعدم وجود المكتبة 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