ahmed_rashed

عندما اضيف بيانات براس النموذج الالساسي يتم اضافه البيانات بشكل صحيح ولكن في النموذج الفرعي لا تظهر جميع البيانات صحيحة مثلا عند اختيار الموظف رقم 1 يظهر ف النموذج الفرعي الموظف صفر ولكن باقي البيانات موجود مثل التاريخ وعند ادخال اي حرف او رقم ف اول خانة ف النموذج الفرعي تظهر رسالة خطا new.accdb

اريد كود عدم تكرار نفس الصنف في الفاتورة

تعديل اخير وضعته في حدث عند الخروج واضفت له امر كنسل لكي لا يخرج من نفس الحقل الا اذا غير الكمية لانة بالسابق كان يظهر الرساله ويخرج من الحقل ووضعت ايضا الجزء الاول فقط ايضا في حدث عند التحديث علشان لو فاضي اشكرك اخي ابو ياسين If IsNull(Me.QSold) Then Me.Refresh ElseIf IsNull(Me.itemName) Then MsgBox " ÇáÍÞá ÝÇÖí" Me.QSold = "" Undo Me.Refresh ElseIf [QSold] >= [QAvilable] Then MsgBox " ÇáßãíÉ ÇÇáãÊÇÍÉ áÇ ÊßÝí" DoCmd.CancelEvent Else Me.Refresh End If

شكرا لك يا غالي الان يعمل ممتاز واضفت علية ايضا رفرفش اضافي في حالة تحقق الشرط وهو امر استفدت منك في موضوع اخر Private Sub QSold_AfterUpdate() If IsNull(Me.QSold) Then Me.Refresh ElseIf IsNull(Me.itemName) Then MsgBox " الحقل فاضي" Me.QSold = "" Undo Me.Refresh ElseIf [QSold] >= [QAvilable] Then MsgBox " الكمية االمتاحة لا تكفي" Me.Refresh Else Me.Refresh End If End Sub

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

الكودين في حاله انة اكبر اوك تعمل لكن في حالة انة فارغ لا تعمل Database1.rar

Private Sub QSold_AfterUpdate() If Me.QSold Is Null Then Else [QSold]<=[QAvilable] MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If End Sub اريد تصحيح الكود انة في حالة الحقل فارغ لا يفعل شئ ولكن اذا كان فية بيانات يجب ان تتوفر الشروط فيها وهي ان تكون الكمية المباعة اقل من او تساوي الكمية المتوفرة ثم تحديث

تمام يا غالي ظبطط

لا يتم احتساب مبلغ الفاتورة الا بعد الضعط على سطر جديد Database1.rar

اخي ابو ياسين انا شوفت موضوع لك في المنتدى واستفدت منة وعدلت ع الكود بحقولي وان شاء الله انحلت ويارب ما يحدث اخطاء Option Compare Database Public Function rashed() On Error GoTo enderr DoCmd.SetWarnings False 'ÇáäãæÐÌ Set Rs = Forms![InvoiceHF]![InvoiceTF].Form.RecordsetClone 'ÇáÌÏæá ááÊÍÑí Set RsEdit = CurrentDb.OpenRecordset("itemsT") Rs.MoveFirst 'ÏæÑÇä Do While Not Rs.EOF RsEdit.MoveFirst 'ÏæÑÇä ááÌÏæá Do Until RsEdit.EOF 'ÇÐÇ æÌÏ ÇáÓÌá If RsEdit!itemName = Rs!itemName Then 'ÊÍÑíÑå RsEdit.Edit RsEdit!QAvilable = RsEdit!QAvilable - Rs!QSold RsEdit.Update End If RsEdit.MoveNext Loop Rs.MoveNext Loop Set Rs = Nothing Set RsEdit = Nothing MsgBox " Êã ÍÝÙ ÇáÝÇÊæÑÉ Çáì ÇáÌÏæá ÈäÌÇÍ ", vbInformation, "Êã " Exit Function enderr: MsgBox " ÎØÇ Ýí ÇáÈíÇäÇÊ ", vbInformation, "áã íÊã ÇáÍÝÙ" DoCmd.SetWarnings True End Function

مرفق الصورة وبعتذر لو ما قدرت اوصل مشكلتي

تسلم يا غالي الكود يعمل تمام

اخي الكريم معلش ممكن تجرب تشوف بيخصم الكمية ولالا لانة عند ما بيخصم شئ في كل الحالات سواء البيع او الغاء الفاتورة

انا معاك في هذا الكلام لكن في المرفق الخاص بك اقصد لم تتغير الكمية عندي يعني بها مشكله

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