د.كاف يار

اليك اسهل الطرق اضف مربع نص آخر بجانب الأساسي و لنفرض ان اسمه Text114 و الآن ضع الكود التالي في حدث عند التغيير في مربع النص الاساسي Dim SetTexta As String SetText = cus_name.Text Text114 = SetText Child1.Form.RecordSource = "SELECT * FROM buy where [bian] Like '*" & Text114 & "*'" Child1.Requery التعديل في المرفقات Database1 (1).accdb

جرب هذا لأنه الكود الي مرفق عندك يحتاج له شغل كثير تحويل الارقام الى حروف.mdb

تفضل الايقونة2.zip

جرب هذا الايقونة.zip

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

انشئ جدول للقيم و اربطه بمربح التحرير و السرد استخدم الحلول السهلة دائما

عدل هذا السطر CurrentProject.Path & "\ضــع هـــنــــــام اســــم الــفــولـــدر\" & [ID] & ".pdf"

ماشاء الله لا قوة الا بالله عمل في قمة الروعة

يعمل بكفائة اذا المشكلة في اعدادات اللغة لدى صاحب الطلب

تفضل استخدم هذا الكود Dim i As Integer, rs As Object Set rs = Me.Grid1.Form.RecordsetClone Me.Grid1.SetFocus DoCmd.GoToRecord , , acFirst For i = 0 To rs.RecordCount - 1 [Forms]![frm1]![Grid1]![prentss] = IIf([Forms]![frm1]![Grid1]![prentss] = True, False, True) If i <> rs.RecordCount - 1 Then DoCmd.GoToRecord , , acNext Next i BD.2.accdb

اشرح المطلوب بإيجاز ارفق مثال للملف الاكسل و قاعدة بيانات لها او قم بربط ملف الاكسل بقاعدة البيانات

تفضل التعديل الخطأ كان في العلاقة بين الجداول تم انشاء علاقة بين جدول الحسابات و جداول الحركات بعد الربط اصبح الكشف بهذا الشكل project no 2.zip

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

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

متى يظهر معك الخطأ ؟؟؟