أكسس وبس

31 دقائق مضت, AbuuAhmed said:

هل بعد مشاركتك هذه والصورة المرفقة تصر على أنها غير متعمدة؟!!!
وبدلا من أن تعتذر تحسسني أني غلطان عليك وباقي تطلب مني الإعتذار ولو أنك طلبتها بشكل غير مباشر وقد تعاطفوا معك أصحاب القلوب الرحيمة 🙂 
وترانا مثلكم عندنا أولاد وأحفاد ومشاكل وبلاوي وأمراض وضغوطات ومع ذلك لا نستسلم لها ولا نعطي فرصة لأحد لانتقادنا بقدر الإمكان. 

أخي @ابوخليل سأرسل لك رسالة الليلة أو اللي بعدها إن شاء الله وسأكتب لك فيها عن بعض الممارسات التي يجب أن تختفي أو تتراجع ، أحدها أنت تداخلت فيها معي.
وبعض الحلول التي يمكن دراستها ومن ثم تطبيقها.

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

خلاص الموضوع انتهى ومش مكمله 

1 ساعه مضت, AbuuAhmed said:

سؤال أحاول أعرف جوابه لـ @أكسس وبس : أنا عملت لك تعديلات أتعبتني وأخذت مني وقت طويل في موضوعك السابق ، ثم أتفاجأ الآن أنك ترفع المثال حاذف منه كل تعديلاتي!!
ممكن طال عمرك تفهمنا السبب؟

اخى الكريم اطال الله عمرك وجزاك الله خيرا 

اولا : حلمك علي ورب الكعبة ان لم انكر جميلك ولم اقصد رفع الملف بدون التعديل الى قمت به 

ثانياً : عندى امور تثقل كاهلى اعاذك الله وكل الاحبة منها وبسببها لم اركز فى عملى اوحتى اطفالى 

ثالثاً : البرنامج الى قمت بتجميع افكاره من هذا الصرح العظيم ولم انكر ذلك ايضا قمت بتأسيس الجداول بناء على خبرتي المحاسبية فى الشراء والبيع 

رابعا : التمس لاخيك عذرا جزاكم الله خير

والله حاولت ولكن لم اجد احل على فكرة القاعدة معموله على اكسس 2007 وانا شغال على افيس 2007

ان شاء الله احلام سعيده وجزاك الله خيرا

جرب طريقة حضرتك على نموذج فاتورة البيع Trans_out ولكن لا يظهر اى قيم فى الجزء الاسفل فى النموذج

حضرتك استخدمت الكود بعد التحديث لحقل Number

[Forms]![Trans_in].Refresh
[Forms]![Trans_in]!TotalAmount = [Forms]![Trans_in]!dd

ممكن استخدم الكود والطريقة مع باقى النماذج ؟؟
 

اخى الكريم تم فتح الملف عن طريق موقع على الانترنت وجارى التجريب

1 ساعه مضت, ابوخليل said:

جرب كذا شوف التعديل على نموذج المشتريات 

وعطلت الخروج عند النقر على الزر من اجل تشوف النتيجة

اخى واستاذى للاسف الملف بيعطى رسالة معطوب 

انا ارفقت صورة لنموذج فاتورة المشتريات Trans_in توضح عمل فاتورة مشتريات وطريقتى فى نقل القيمة

28 دقائق مضت, ابوخليل said:

السلام عليكم

انا مشاركاتي في مثل هذه المواضيع ومشاكلها لا تعجب صاحب اي مشكلة .

التعليق :

من الخطأ الفادح والخطير  حذف اي معلومة تم تسجيلها .. واخص البرامج المالية .

يمنع منعا باتا حذف اي سجل تم ادخال بياناته

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

في الاستعلامات او التقارير اي عملية ملغاة لا تظهر .. وبما انها لا تحمل مبالغ ولا كميات فلن تؤثر في المجاميع او الارصدة

ايضا ..

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

اول بداية الخلل هو صنع اكواد تنقص وتزيد في الارصدة والكميات

 

اشكرك على النصيحة طيب ايه الحل يا استاذى انا بعتمد على حقلين Total خاص بالبيع او الشرا و Ttotal خاص بمرتجع البيع او مرتجع الشرا فى جدولي Add_doc الخاص بفاتورة المشتريات Trans_in وجدول Issue_doc الخاص بفاتورة المبيعات Trans_out 

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

فما هى الطريقة الاخرى لتفادى هذه الاهطاء افادونى اثابكم الله

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

مفيش مساعدة جزاكم الله خيرا

مممكن المساعدة من اساتذتى الكرام اثابكم الله

الحمدلله توصلت للحل بفضل الله ثم البحث 

وضعت كود فى حدث قبل تأكيد الحذف Response = DATA_ERRCONTINUE للنموذج Trans_in مع كود ممفتاح الحذف

هل هذه الطريقة صحيحة

توجد مشكلة واحدة فقط

فى النموذج Trans_in يوجد مربع نص غير منضم صافى الفاتورة dd ومربع نص منضم TotalAmount قمت بوضع المعادلة فى كود عند الخروج بمفتاح خروج 

Me.TotalAmount = Me.dd

المشكلة عند الخروج واعود للفاتورة لم اجد تم نقل القيمة من مربع نص dd الى مربع نص TotalAmount لا بد من فتح نموذج الفاتورة Trans_in مرة اخرى ثم تحديد الفاتورة من مربع تحرير وسرد بحث عن فواتير المشتريات ثم الخروج مرة اخرى ليتم اضافتها الى مربع نص TotalAmount

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

قاعدة بيانات4 - Copy.rar

الاخوة الافاضل 

الرجاء المساعدة فى تعديل كود حذف فاتورة فى نموذج Trans_in لمنع ظهور رسالة تأكد بوجود علاقات بين الجداول عند الحذف او رسائل اخرى من الاكسس غير الرسالة التى بالكود

يتم حذف السجل من جدول Add_doc الرئيسي والسجلات المرتبطه به فى جدول Transaction 

قاعدة بيانات4 - Copy.rar

اخى واستاذى الكريم 

تم حل المشكلة ولكن توجد مشكلة اخرى كما ذكرت فى الصورة المرفقة

ان مربع نص اجمالى اصناف الفاتورة وعدد بنود الفاتورة لا تظهر قيم فيها عند ادخال الكمية وعمل معادلة السعر فى الكمية وهذه المشكلةة فى نموذج فاتورة المشتريات Trans_in وفاتورة المبيعات Trans_out

ارجو ان يسعنى كرمكم 

قاعدة بيانات4 - Copy.rar

انا اسف على الاطالة وضعت الكود فى حدث عند التحميل وعند اضافة فاتورة جديدة واختيار مورد لا يعمل النموذج الفرعى frmPurches

اخى اشكرك على اهتمام حضرتك

نسخت الكود ولكن مازالت نفس المشكلة

للاسف الملف لا يفتح هناك مشكلة

معلش يا استاذى 

كمان فى خطا عند الحذف ظهور كلمة #خطأ فى بعض الحقول فى النموذج الرئيسي 

اخى واستاذى الكريم

قمت باضافة الكود فى نموذج Trans_in وجربت الكود ولكن هناك عدة مشاكل

1- النموذج الفرعى لا يعمل

2- عند الحذف تظهر رسالة خطا بعد رسالة تأكيد الحذف كما فى صورة خطا2

3- عند الخروج من النموذج تظهر رسالة كما فى صورة خطا لاننى عامل كود عند الخروج وعند النقر على مفتاح خروج ومع اغلاق نموذج Me.TotalAmount = Me.dd

مرفق القاعدة بعد اضافة الكود

ارجو ان يسعنى كرمكم

قاعدة بيانات4 - Copy.rar

اشكرك اخى واستاذى الكريم 

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

اما جدول Stor1 هو خاص بالمخزن رقم 1 وليكن المحل مثلا هو اننى اقوم بتكويد الاصناف ثم عند الخروج من شاشة التكويد Names يتم الحاق الاصناف الى الجداول الخاصة بالمخازن ليتم احتساب الكميات للاصناف بعد عملية الوارد او الصادر وهنا Stor1 يمثل المحل 

اشكركم يا اخوانى وجزاكم الله خيرا

قمت بتجريب الكود ولكن يوجد مشكلة 

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

الاخوة والاساتذة الافاضل

فى المرفق نموذجين 

الاول : Trans_in فاتورة مشتريات عبارة عن نموذج رئيسي ونموذج فرعى لاصناف الفاتورة 

الثاني : Trans_out فاتورة مبيعات عبارة عن نموذج رئيسي ونموذج فرعى لاصناف الفاتورة

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

المشكلة التى اريد المساعدة 

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

Private Sub أمر12_Click()
On Error Resume Next
If IsNull(Me.Number) Then

        MsgBox "السجل فارغ ", 48, "حورس"

Else

If MsgBox("هل اريد حذف الصنف من الفاتورة", vbInformation + vbYesNo, " حورس تحذير") = vbYes Then
  mm = mm - Qty_in
    bb = bb - Qty_in
   DoCmd.SetWarnings False
  DoCmd.RunCommand acCmdDeleteRecord
'   Refresh
   DoCmd.SetWarnings True
           
                 MsgBox "تم حذف السجل", 48, "حورس "

Else
        MsgBox "تم الإلغاء ", 48, "حورس "
End If
   End If
End Sub

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

جزاكم الله خيرا

قاعدة بيانات4.rar

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

خلاص استعوض الله فى البرنامج ولا لسه فى امل

جزاك الله خيرا انا عملت استرجاع للجهاز لاخر تاريخ كان البرنامج شغال وكانت نفس المشكلة نفسي ارجع بس الجداول عندى نسخة فاضية