عمر ضاحى

بص اجمالى الاستعلامات هتكون 12 استعلام الحل يكون تكوين الاستعلام متغير بتغير اسم الجدول انا شغال عليه دى النتيجه للفكره (فقط للاطلاع لحين ايجاد حل ان شاء الله) test-a.accdb

انا ممكن معرفش اعملها كويس لكن سوف اجرب و الفكره هي اولا انت هتحتاج تعمل استعلام الحاقي لنسخ البيانات من جدول 1 الى جدول 2 وثم استعلام حذف لنفس البيانات فى جدول 1

متابع فى صمت ^_^

جرب هذا التعديل 5-5.mdb ايضا هذا حل اخر 5-5.mdb

حضرتك جربت الملف اولا ؟

بعد اذنك باش مهندس قاسم اسمح لى بالمداخله جرب هذا الحل لقد قمت باضفة دالة LIKE Like "*" & [Forms]![نموذج1]![الوظيفهA].[Text] & "*" 5-5.mdb

طيب ما هو المعيار الذى بابني عليه المطلوب يعنى ما القيمه او الشرط التى اذا تحقق يفعل كذا عموما طلبك ممكن تنفيذه باستعلام او دالة if او دالة Select

مبارك لك استاذي @ناقل واعاتك الله على هذه المسؤلية

باعتذر لك عن عدم قدرتى على تقديم المساعده بسبب ضعف قدرتى وعلمي فى هذا الجانب لك ان تنتظر احد اساتذتى الكرام فى تقديم المساعده لك

معرفش اذا كانت هذه الاكواد تعمل معك ام لا لكن يمكن ان تجرب للاضافة Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .AddNew ![Name1] = me.txt1 ![Name2] = me.txt2 .Update .Close End With Set rst = Nothing db.Close Set db = Nothing للتعديل Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("TablName", dbOpenDynaset) With rst .FindFirst Criteria:="[ID]="&me.txtID If Not .NoMatch Then .Edit ![Name1] = me.txt1 ![Name2] = me.txt2 .Update End If .Close End With Set rst = Nothing db.Close Set db = Nothing

ادري ان الكود شغال لكن كنت عاوز اعرف ايه الكلام الهلوغروفى المكتوب بس ^_^ (( 'åÐÇ ÑÞã f6 ))

كل سنه وانتم طيبين ويتقبل الله منا ومنك صالح الاعمال وعيد مبارك للجميع

ممكن ترجمه للسطر ده ^_^

انا فعلا عملت كده لكن لقيته بيغلق النموذج الفرعي والنموذج الرئيسي انا عاوز اغلق النموذج المتفعل فقط (ال مفتوح فى وجهي فقط) مش يقفل كل النماذج مره واحده

انا حبيت اجربه عندي لكن لا يعمل كيف اقوم بتنفيذا هذا الكود ؟

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

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

هذه الصيغه مهمتها انها تنظر الى اعلى رقم موجود فى جدول tblEmpInfo فى الحقل IDemp ثم يتم اضافة اليها رقم +1 الغرض منها هو عمل التسلسل للحقل نرجع الى اين تضعها ضعها فى القيمة الافتراضيه للحقل (اسمه رقم فى اخر صوره ) انظر هنا انه اخذ رقم "1"

اول شئ اين جدول الاحرف وما هى الاليه التى تريد ان تتحول بها مثل عند كتابة ا "حرف واحد" يكتب الف يعنى حرف حرف او واذا كتبت ا ب ث يكتب الف باء ثاء (مجموعة احرف معا) ممكن تشرح اكثر (ولا تنسي عمل الجدول)

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

ارفع ملف لتنفيذ ما تريد

ممكن تنظر الى هذا المرفق 123.rar

طبعا لعمل ذلك محتاج ان تضع * بين الكلمه او المقطع الاول والمقطع الثاني او ممكن تستخدم هذا الكود Dim TxTss As String TxTss = Trim(Me.txtSSSS.Text) Me.TXTSsS = Replace(TxTss, " ", "*") لعمل ذلك طبعا هنا هتحتاج يكون فى 2 حقل واحد ظاهر لك والاخر مختفى وهذا المختفي هو ما سوف يكون مرتبط بالاستعلام انظر الى هذا

اكيد يوجد حل استخدم دالة like Like "*" & [Forms]![Step1]![Step2].[Text] & "*" ضع هذا فى المعاير للاستعلام استبدل Step1 باسم الفورم وايضا Step2 باسم مربع النص الذى يبحث فيه ايضا يمكنك مراجعه هذا التعليق قد تجد ما تريده فيه

هل هذا ما تريد ؟ ملاحظات كان هناك خطأ دائم فى قاعدة البيانات كلما ارت تغير اسم نموذج او اى شئ يظهر لى ان هناك خطأ لذا قمت بنقل الجداول فى قاعده اخرى وتم تنفيذ هذه الفكره 22222.rar