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

الان, ابو ياسين المشولي said:

رجاء خاص يكون السوال واضح

او لم تستطع طرح المطلوب

ارفق صور

اتفضل اتوقع هذا طلبك

والله اعلم لعلي غلطان كمان

لاني مابعرف شوي اللي عايزه بالضبط

تحديث الكميه.accdb

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

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
 

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

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

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

الان, ابو زاهر said:

عجيب

انا بنظري انه الكميه بالمستودع تنقص بحاله الحفظ وعند عدم الحفظ تبقي كما هي 

واذا لك رائ اخر افتح موضوع جديد اشرح بالتفصيل 

صراحه لم استطع فهمك يالغالي

تحياتي

 

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

الان, ابو زاهر said:

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

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

كان من رائي تفتح موضوع جديد بشان التحديث 

اعتذاري للاداره ان كنت خالفت الشروط 

تحياتي

تحديث الكميه.accdb

تظل الكمية كما هي سواء حفظت او لم تحفظ

والموضوع اعتقد ما خالفنا لانة ما زلنا في نفس الفاتورة 

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

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

بالنسبه لرقم 2 

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

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

لاحظت شئ في التحزيم انة بعد التنصيب ينسخ ملف قاعدة البيانات فقط فبالتالي لو القاعدة مش مقفولة او محمية ممكن التعديل علية 

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

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

ماهي افضل حماية لملف الاكسس 

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

2- ساقوم بالغاء الشفت 

3- ساقوم بوضع كلمة مرورو على الاكواد vba

4- اخفاء الجدوال والنماذج لكي لا يتم استيرادها 

5- تحويل الملف accde

6 - تحزيم الملف 

وماذا بعد ؟؟؟؟؟

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

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

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

3 ساعات مضت, ابو ياسين المشولي said:

طلبك هنا

 

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