النجاشي

انا ما بدي اخي الكريم اغير الحقل الي نص بس اقصد للحقل الرقمي في طريقه اخري تحياتي اليك

جزاك الله خير استاذي القدري ابو ياسين الف الف تحيه اليك والشكر موصول للاستاذ علي العتيبي الله يجزيه خير كلكم علي عيني راسي اشكركم كثير هذا هو المطلوب كم جاب لى الجنان ههههههههه اسال الله ان يضعه بميزان حسناتكم الف الف شكر تحياتي

السلام عليكم استاتذتي الكرام عندي النموذج فيه خانه هل استطيع اكتب ارقام 11-11 مثلا من دون تغير التنسيق بالجدول ويحفظ معي الذي اكتبه بالجدول شاكرين لكم Database31.rar

طيب استاذتي كيف اعدل الكود واضيف عليه هذا الحقل ID_Sanf اعتقد لو اضفنا عليه ID_Sanf ستنجح العمليه هذا الكود DoCmd.RunSQL "UPDATE Hrakatsanf SET Hrakatsanf.Alkmiah = [forms]![frmSales_T]![frmSubSales_T].[form]![Alkmiah] WHERE (((Hrakatsanf.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" DoCmd.RunSQL "UPDATE Hrakatsanf SET Hrakatsanf.mjmo =[forms]![frmSales_T]![frmSubSales_T].[form]![mjmo] WHERE (((Hrakatsanf.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" DoCmd.RunSQL "UPDATE Hrakatsanf SET Hrakatsanf.safi =[forms]![frmSales_T]![frmSubSales_T].[form]![safi] WHERE (((Hrakatsanf.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" تحياتي

استاتذي الكرام اذا لم يتضح المقصود فالمقصود الاتي اريد عندما اعدل فاتوره يكون الكميه والاجمالي والصافي بالجدولين نفس بعض الجدوال 1-Hrakatsanf 2-HRR واليكم الصور الان متساوين الجدولين فالمطلوب عند تعديل الفاتوره واحفظ اروح اشوف الجدولين اريدهم يكونو متساوين المجموع والكميه والصافي ان شاء الله يكون وصل المقصود تحياتي

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

السلام عليكم ورحمه الله وبركاته استاتذتي الكرام اخي ابو ياسين الف تحيه اليك على مجهودك مازالت المشكله قايمه عندما يكون صنفين بالفاتوره واجي اعدل الكميه الصافي والمجموع يصبح واحد لكل السجلين انا عدلت فاتوره فيها صنفين موضحه بالصوره ما يحدث كل صنف لحاله اعتقد انا الكود بده شرط زياده حسب رقم الصنف هذا الكود المسئول عن التحديث كيف نضيف عليه شرط مثلا رقم الصنف كي يحدث مضبوط علما اذا كان صنف واحد يحدث مضبوط المشكله عندما تعدل ويوجد اصناف كثيره DoCmd.RunSQL "UPDATE HRR SET HRR.Alkmiah = [forms]![frmSales_T]![frmSubSales_T].[form]![Alkmiah] WHERE (((HRR.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" DoCmd.RunSQL "UPDATE HRR SET HRR.mjmo =[forms]![frmSales_T]![frmSubSales_T].[form]![mjmo] WHERE (((HRR.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" DoCmd.RunSQL "UPDATE HRR SET HRR.safi =[forms]![frmSales_T]![frmSubSales_T].[form]![safi] WHERE (((HRR.Rjmfatwra)=[forms]![frmSales_T]![Rjmfatwra]));" الكود عند النسخ ما يظهر مظبوط طبعا موجود الكود بفاتوره الخاص بالتعديل اسمها frmSales_T تحياتي اليكم تعديل الفاتوره 211.rar

بارك الله فيك استاذي زياده الخير خيرين الف شكر اليك

جزاك الله خير ابو محمد نعم هذا مطلوبي الله يعطيك العافيه

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

ممكن تبحث برقم الوثيقه من نفس الحقل الذي تبحث فيه باسم الموضوع او نشوف لك طريقه اخري اذا استطعنا

واياك وهذا صوره للتاكيد ان الكود يعمل

هذا الا قدرت اساعدك فيه والمعذره لم استطع مساعدتك بهذا الموضوع الاخوان انا شاء الله ما يقصرو معاك

هل الكود نفع معاك او لا

حط هذا الكود عند التغير لحقل كلمه ظمن الموضوع ان شاء الله يكون طلبك دعواتك لاستاذي القدير جعفر صاحب الكود On Error Resume Next Dim fld As String Dim X() As String Dim A As String fld = "[almodwo]" fld = fld & " & ' ' & " & "[IDsader]" mySQL1 = "Select * From [Archive]" mySQL = mySQL1 & " Where " Me.txt5.SetFocus A = Me.txt5.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") X = Split(A, "|") If UBound(X) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & X(i) & "*'" Else For i = LBound(X) To UBound(X) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & X(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & X(i) & "*'" End If Next i End If If Len(Me.txt5.Text & "") = 0 Then mySQL = mySQL1 End If Me.SearchList.Form.RecordSource = mySQL

انتظر قليل حتا اشوف الطريقه اذا لم ارد عليك لنا تواصل غذا باذن الله تحياتي

يعني المشكه بقت معاك البحث بالموضوع فقط

تمت العمليه حسب التعليمات بنجاح الله يعطيك العافيه استاذنا صالح حمادي شكرا اليك يالغالي

الله يسلم حالك

بميزان حسناتك اخي ابو ياسين الله يعطيك العافيه

السلام عليكم احبتي الكرام احبتي دوما عندما انسخ قاعده لازام اضغط علي تمكين المحتوي كيف الحل لعدم ظهورها عند نسخ اي قاعده تحياتي

شوف النموذج sub_serch1 والشروط الذي وضعتها تحت الحقول امسحها وحط هذا المعيار [Forms]![frm_serch1]![txt1] تحت حقلnowaseka شوف النتيجه الخلل من الاكسس عندي المعذره

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

السلام عليكم احبتي الكرام اريد ضهور الهلله بحقل الصافي كما موضح بالصوره شاكرين لكم الهللات بالصافي.rar

ابشر استاذي ابو ياسين ولايهمك هي نفس الطريقه بفاتوره البيع الذي عملها لي الاستاذ جفعر بس كنت ناسي اعمل الكود الذي بعد التحديث بحقل نسبه الخصم تحياتي اليكم الخصم.rar