Barna

ماذا تقصد في هذا الكمبو

تفضل ----------> ba_T21.mdb

الأستاذة @محمد أبوعبدالله @husamwahab @فايز.. بارك الله فيكم ..... إنما أنا تليذكم ولا زلت اتعلم منكم احسن الله اليكم وبحسن ظنكم بي ..... هذا دأب الكبار أمثالكم التواضع .... رفع الله قدركم

جرب الملف ,,,, ‏‏faiz - نسخة.mdb

مشارك مع حبايبي الاساتذه .... ‏‏faiz - نسخة.mdb

ممكن مثال عشان نعرف ايش المشكلة

اكتبها بهذا الشكل ---------> =Sum([price])

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

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