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

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

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

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

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

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

اريد ضغط واصلاح ونسخه احتياطيه اتوماتيك للبرامج بشكل اتوماتيك مثلا مره واحده أسبوعيا يوم الاثنين 3 عصرا هل هذا ممكن

هذا المطلوب ولكن ينقصه شئ الكميه المباعة تحدثت وخصمت بالفعل من المستودع وعند الإلغاء لم ترجع بالنسبه لرقم 2 المطلوب اعرف ماهي الحقول الخطأ تسميتها لكي اعدلها في برنامجي الأساسي وماهي العلاقه إلى عملتها فأنا لدى أكثر من فاتورة منسوخه من هذا النموذج لكي اعدلهم جميعا

شكرا لك يا غالي ع التوضيح هل لو انا عامل الملف accde ومش لاغي الشفت هل ممكن فتح الملف او التعديل علية ولو نفس الامتداد ولكن لاغي الشفت هل برامج الغاء الشفت تقدر تفتحة لاحظت شئ في التحزيم انة بعد التنصيب ينسخ ملف قاعدة البيانات فقط فبالتالي لو القاعدة مش مقفولة او محمية ممكن التعديل علية

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

اطراف الفاتورة اسمهاInvoiceTT انتظرك يا غالي وشكرا لك

ماهي افضل حماية لملف الاكسس اولا ساقوم بعمل نموذج لربط الملف بسريال الهارد والمزر بورد والمعالج وهو موجود في المنتدي 2- ساقوم بالغاء الشفت 3- ساقوم بوضع كلمة مرورو على الاكواد vba 4- اخفاء الجدوال والنماذج لكي لا يتم استيرادها 5- تحويل الملف accde 6 - تحزيم الملف وماذا بعد ؟؟؟؟؟

اطراف الفاتورة مازالت تخزن لكن الراس توقف عن التخزين وممكن تقولي عملت ايه علشان افهم

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

صور لشرح المشكلة والتوضيح

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