ابو ياسين المشولي

اتفضل work3.rar

شوف هذا Test41.accdb

بعد اذن الاستاذ القدير حسب مافهمت هذا هو طلبك client4.mdb في التنسيق #,###;#,###[أحمر];0

اخي الكريم انا حسب فهمي وجربت طلع كما قلت لك ضع هذا الكود بالنموذج الفرعي في حدث بعد التحديث في خانه المنتج وفي خانه الكميه وفي خانه السعر Me.FooterReTotal = (SoldQu - ReturnedQu) * Pro_Price

انا اسف كان ردي على موضوع اخر هههههه

اخي الكريم انا حسب فهمي وجربت طلع كما قلت لك ضع هذا الكود بالنموذج الفرعي بعد حدث في خانه المنتج وفي خانه الكميه وفي خانه السعر Me.FooterReTotal = (SoldQu - ReturnedQu) * Pro_Price

شوف هل هذا ما تقصده Me.FooterReTotal = (SoldQu - ReturnedQu) * Pro_Price اذا كان هو فاجعل بعد الثحديث عند القميه وعند السعر Test41.accdb

انا كمان استخدم 2010 وواضح عندي

حاولت بهذا الكود ولم افلح On Error Resume Next Dim Rs As DAO.Recordset Set Rs = Forms!FrmFatora!Subvnt.Form.RecordsetClone Dim Rc As Integer, x As Integer x = 0 Rc = Rs.RecordCount If Rc > 0 Then Rs.MoveFirst Do Until Rs.EOF 'اذا وجد السجل If Rs!Bard = Brcod Then 'تحريره Rs.Edit Rs!Qnt = Rs!Qnt + 1 Rs.Update [Subvnt]![Bard] = Null [Subvnt]![Name] = Null [Subvnt]![Prix] = Null ' Exit Sub End If Rs.MoveNext Loop End If Rs.AddNew [Subvnt].SetFocus [Subvnt]![Qnt] = 1 [Subvnt]![Bard] = DLookup("[Barcod]", "TblAchet", "[Barcod]= [Brcod]") [Subvnt]![Name] = DLookup("[NameS]", "TblAchet", "[Barcod]= [Brcod]") [Subvnt]![Prix] = DLookup("[Prix2]", "TblAchet", "[Barcod]= [Brcod]") [Brcod] = "" [Brcod].SetFocus Rs.Update [Subvnt]![Bard] = Null [Subvnt]![Name] = Null [Subvnt]![Qnt] = Null [Subvnt]![Prix] = Null Undo

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

حسب مافهمت استبدل الكود بهاذا If Me.الكمية_المعطاه > Me.الكمية_المستحقة Then Beep MsgBox " عفوا الكمية المعطاه اكبر من الكمية المستحقة ""( " & [الكمية_المستحقة] & " ) ", vbOKOnly + vbInformation, " تنبيه " Me.الكمية_المعطاه = Me.الكمية_المستحقة End If

كيف تريدها تبقى وهي اكبر من الشرط والشرك انه يكون نفس الكميه او اصغر

اخي للتحديث Me.Refresh وللاخفاء Me.Text18.Visible = False ولكن انت عامله ورقه بينات وما اظن انه يختفي ولكن قد يفيدوك الخبراء

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

اتفضل هذا طلبك حسب ما فهمت منك db1 (7).rar

بالتوفيق اخي

فجوال بيسك

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

كلنا اخي نتعاون بعضنا البعض

اتفضل في حدث بعد التحديث في خانه دفعه ضع هذا الكود If Me.دفعة > Me.الثمن Then Beep MsgBox " عفوا الدفعة اكبر من الثمن ""( " & [الثمن] & " ) ", vbOKOnly + vbInformation, " تنبيه " Undo Exit Sub End If

طيب جرب هذا بعد التحديث DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE [جدول الاصناف] SET [جدول الاصناف].[الكمية]=[الكمية]+Forms![فاتورة مشتريات]![نموذج فرعي]![الكمية].[value]" _ & " WHERE ((([جدول الاصناف].رقم الصنف)=[forms]![فاتورة مشتريات]![نموذج فرعي]![رقم الصنف]));") DoCmd.SetWarnings True

راجع هذا الموضوع

اخي الفاضل كل الطرق تعطيك نفس النتيجه With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .Name <> "الشاشة الرئيسية" Then DoCmd.Close acForm, .Name End If End With Next i End With

اخي ارفع مثال انا استخدمه شغال معي 100%

اخي الكريم هذا يغلق جميع النماذج ماعد نموذج اسمه nam With Application.Forms For i = .Count - 1 To 0 Step -1 With .Item(i) If .NAME <> "nam" Then DoCmd.Close acForm, .NAME End If End With Next i End With