Barna

On Error GoTo Error_ErrorZ If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then Else DoCmd.SetWarnings False DoCmd.OpenQuery "Query1" DoCmd.SetWarnings True ' MsgBox "Done", vbInformation DoCmd.RunCommand acCmdRefresh End If Error_ErrorZ: MsgBox "Not Done", vbInformation

استعمل هذا الكود !!!! Dim Warning As String Warning = MsgBox("أنت الآن على وشك التحديث فهل أنت واثق من رغبتك في التحديث", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then DoCmd.SetWarnings (False) ضع هنا استعلام التحديث المطلوب DoCmd.SetWarnings (True) Else DoCmd.CancelEvent End If

هذه طريقة بدون اكواد .... انظر DB1.accdb

ممكن تزودنا بعدد من المسارات قبل التعديل والمسار بعد التعديل ؟؟؟؟

جرب كدا وخبرنا ...... Pro-In-Tmt.accdb

انظر المرفق ...... ما هو الداعي لاستخدامها في الاستعلام ( الراتب مسجل في الجدول ) انشئ الاستعلام من الجدول مباشرة أنظر الاستعلام في المرفق .... test (8).accdb

ما شاء الله تبارك الله الحمد لله رب العالمين بارك الله فيك اخي علاء بالتوفيق .....

تفضل ..... DoCmd.OutputTo acOutputQuery, "qryEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الاستعلام الى المسار المحدد بنجاح"

تفضل انظر .... test (7).accdb

ضع هذا في المديول Function salary1(frm As String) If Forms(frm)!المهنة = "طبيب" Then Forms(frm)!الراتب = 10000 ElseIf Forms(frm)!المهنة = "مهندس" Then Forms(frm)!الراتب = 9000 ElseIf Forms(frm)!المهنة = "صيدلي" Then Forms(frm)!الراتب = 8000 ElseIf Forms(frm)!المهنة = "معاون طبيب" Then Forms(frm)!الراتب = 7000 ElseIf Forms(frm)!المهنة = "معاون مهندي" Then Forms(frm)!الراتب = 6000 ElseIf Forms(frm)!المهنة = "" Then Forms(frm)!الراتب = 0 End If End Function استدعيه من النموذج بهذا الكود Call salary1(Me.Name) DoCmd.RefreshRecord

بارك الله فيك اخي الكريم ... هذا اقل ما يمكن ان نقدمة لاعضاء هذا المنتدى الذي لازال ويقدم لنا العلم .... اسأل العظيم بمنه وكرمه ان يفك عنك كربتك ... امين يارب

وعليكم السلام اهلا بك اخ علاء ممكن مثال وبه بيانات عشوائية للتطبيق عليه

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

تفضل ... شؤؤن_الموضفين.accdb

واياك أخي قاسم .... بالتوفيق

جدول Temp جدول مؤقت لاستيراد البيانات له من الاكسس قبل الحاقه للجدول الاساسي ...

جرب ووافيني بالنتيجة ..... BA.mdb

الكود يعمل معي في الملف المرسل لك .... هل جربت الملف ولم يعمل معك ؟؟

انا لم اتدخل في الكود وانما تعديلي للمشكلة الموجودة في بداية موضوعك أخي الكريم .... هذا هو كودك وفعله .....

جرب الملف .... BA.mdb

عند انشاء العلاقات طبق كما في الصورة ....... واجعل التعديل لـ ID من خلال النموذج للجدول الاساسي فيتم تعديل الـ ID في كل الجداول المرتبطة به دون الحاجة لتعديلها في كل جدول على حدا ,,,,,,

وعليكم السلام هل هناك علاقة بين هذه الجداول ... اقصد علاقة ربط ...

منتظر بصمت ..بارك الله فيك

اسمح لي استاذي @kanory اجاوب ... اخي الحبيب @احمد الفلاحجي في الكود الاول تم الاتصال بالقاعدة الخارجية مباشرة دون النظر الى الجداول المرتبطة ... فلذلك احتجنا كتابة مسار القاعدة المطلوبة اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله ثم امثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory

ما شاء الله اخي Kanory وكل عام وانت بخير