النجاشي

الحمدلله وصلت لحل

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

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

المشكله ما زالت استاذي ابو ياسين

للرفع

استخدمت هذا الكود حفظ التعديل عند الخروج لكي يلحق السجل المعدل بحجدول HRR فهل من وسيله مثلا يحذف السحل المشابه له يحمل نفس رقم الفاتوره ورقم الصنف او من طريقه اخري Forms!frm_Main!iRjmFatwra = Me.Rjmfatwra DoCmd.SetWarnings False DoCmd.OpenQuery "QHRR" DoCmd.SetWarnings True تحياتي اليكم

عفو الكميه والصافي والمجموع اما السعر بلاش منه لاننا ببني الحسابات على الصافي

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

متابع بشده

استاتذي الكرام انا توصلت الي التعديل بفاتوره البيع بس عندما اعدل مثلا الكميه اعمل حفظ التعديل اريد تتعدل الكميه والسعر بجدول اسمه HRR شاكرين لكم احبتي تعديل الفاتوره 1.rar

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

للرفع

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

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

هههههههههههههه الله يعطيك العافيه اجري صراع شديد مع الطباعه هههههههههه طبقت الشرح الي هون بس مازالت لم تظهر معي البيانات عندما اعمل معاينه من الفاتوره الطباعه 1.rar

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

للرفع

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

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

اذا توجد طريقه اخري باستبدال الكود بكود اخر وتوفي بالغرض نرحب فيها

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

تسلم حبيبنا ابو ياسين علي المجهود ربنا يعطيك العافيه المطلوب الفورم الذي يكون مفتوح يدرج فيه ولا يفتح لي نموذج اخر والاخوه الذين لم توصلهم الفكره عندي الفورم frmSalesاختار (اجل) بفتح نموذجfrm_Alamla واضغط انتر ستلاحظ نقل البيانات اسم الحساب ورقمه لفورم frmSales فاريدها تكون بنفس الطريقه مع بقيه النماذج اي حسب الفورم المفتوح تحياتي

للرفع

استاتذتي الكرام اليكم القاعده للتوضيح عندما افتح نموذج وختار من حقل الدفع خيار اجل يفتح لي نموذج اسمهfrm_Alamla ومن فورم frm_Alamla اضغط انتر يدرج بالفورم السابق اسم العميل رقم العميل الان يدرج بفورم frm_Recall_sales وفورمfrmSales مضبوط بقي معي كيف اعدل بالكود حيث يدرج بفورمfrm_Recall_sra وفورمfrm_sra تحياتي اخواني الكرام ادراج اسم العميل وؤقمه.rar

السلام عليكم استاتذتي الكرام الكود هذا يدرج باثنين نماذج عندي مزبوط فاريد يدرج كمان بثلاثه نماذج اخري حسب الفورم المفتوح فكيف يكون تعديل الكود شاكرين احبتي الكرام On Error Resume Next Dim n As String: Dim i As Integer: Dim isopen As Boolean n = "frmSales" isopen = False For i = 0 To Forms.Count - 1 If Forms(i).FormName = n Then isopen = True End If Next i If isopen Then If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Select Case KeyCode Case vbKeyDown Case vbKeyUp Case vbKeyReturn DoCmd.OpenForm "frmSales" Forms![frmSales]![NoEmp] = Me.NoEmp Forms![frmSales]![Namamila] = Me.Namamila DoCmd.Close acForm, "frm_Alamla", acSaveNo End Select Else Select Case KeyCode Case vbKeyDown If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyUp If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyReturn DoCmd.OpenForm "frm_Recall_sales" Forms![frm_Recall_sales]![NoEmp] = Me.NoEmp Forms![frm_Recall_sales]![Namamila] = Me.Namamila DoCmd.Close acForm, "frm_Alamla", acSaveNo ' KeyCode = 0 End Select ' Me.n2.SetFocus End If