Eng.Qassim

وعليكم السلام .. 1- اعمل موديول Public Sub FilterComboAsYouType(combo As ComboBox, defaultSQL As String, lookupField As String) Dim strSQL As String If Len(combo.Text) > 0 Then strSQL = defaultSQL & " WHERE " & lookupField & " LIKE '*" & combo.Text & "*'" Else strSQL = defaultSQL 'This is the default row source of combo box End If combo.RowSource = strSQL combo.Dropdown End Sub 2- في حدث عند التغيير لمربع التحرير يتم استدعاء الدالة هكذا Private Sub Cbocustomer_Change() FilterComboAsYouType Me.Cbocustomer, "SELECT * FROM customers", "customerName" End Sub 3- اجعل خاصية Auto Expand=False

ضع حقل اضافي للكمية في Tb_product اتبع الخطوات في المثال المبسط التالي تحديث المخزون.rar

وعليكم السلام.. لانك واضع احد ادوات الربط بين الرئيسي والفرعي (اسم المورد)..وطالما ان اسم المورد غير موجود في الرئيسي يعطيك هذا الخطا الحل هو [اسم المورد].Visible = True

وعليكم السلام.. تفضل هذه المحاولة البسيطة برنامج حسابات صغير.rar

اخونا @شايب سوف يأخذ اخر رقم لجميع الحقول

احسنت استاذ @ابوخليل كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل كان المفروض ان اختار الحقل saleOrder وليس ItemCode =IIf(IsNull([SaleOrder]);Null;Nz(DCount("*";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

لا استاذي @ابوخليل انظر الى التسلسل اريد حقل ت 1 2 3 وهكذا ... وهو يعمل لدي مضبوط .. لكن السطر الاخير الذي ليس فيه اي سجلات يعطي كلمة Error الدالة تعمل جيدا معي ...لكن كلمة Error توحي للمستخدم ان هناك خطأ

اعتقد ان المشكلة في ال 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]