jjafferr

السلام عليكم 

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

تفضل أخي 

هذا البرنامج حل المشكلة: http://www.datanumen.com/access-repair/

جعفر

9.khaled2015_fixed.accdb.zip

نعم هذا صحيح ،

لأننا يجب ان نفحص كل مادة اذا كانت الضريبة تنطبق عليها ،

واسهل مكان لعمل هذا هو في الكود ،

لذلك المجموع يتم عمله في كود النموذج الرئيسي ، في الحدث بعد التحديث لقيمة الضريبة 

جعفر

تفضل 

في خصائص الاكسس ، اختر اللي عليها الدائرة الحمراء 

جعفر

قيم الضريبة والخصم موجودان في نفس سجل الفاتورة ،

ولابد انك ستستدعي سجل الفاتورة ، وستجد الحقلين في نفس السجل 

جعفر

وعليكم السلام أخي عبدالرحمن 

وحياك الله 

هذه المعادلة موجودة في النموذج الفرعي ، بينما حقل [txt_Discount] موجود في النموذج الرئيسي (او في النموذج الأُم) ، [Parent] معناه النموذج الأُم   

فلمناداة القيمة من الحقل الأُم ، يجب ان نخبر المعادلة بأن الحقل هناك ، هكذا:

[Parent].[txt_Discount]

بدلا عن

Forms!Frm_EznADD!txt_Discount

جعفر

تفضل 

1. اضفنا حقل جديد في الجدول Items ، اسمه Taxable ، بصيغة نعم/لا (يعني المادة اللي يكون عليها ضريبة ، تختار الصح ، وإلا ، لا تختار شئ) ،

لاحظ عملت جميع المواد عليهم ضريبة إلا Toshiba icore5:

2. في النموذج الفرعي ، للحقل Item_No ، اضفنا حقل Taxable ، وذلك حتى يميز الكود الفرق في ضريبة المواد:

3. وهذه النتيجة:

4. بالنسبة الى الخصم او الضريبة ، فيمكن ادخالهم باليد (يعني انك تخلي خانات ثابته للارقام المتداوله دائما ، وعندك الخيار في ادخالها يدويا كذلك).

جعفر

5.1.test.mdb.zip

وعليكم السلام أخي ناصر 

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

الرابط والشرح: http://www.officena.net/ib/index.php?showtopic=58001

جعفر

وعليكم السلام أخي محسن 

كيف يمكن ارفاق كل الجداول من كل القواعد من نفس القولدر في نفس اللحظة

اذا كان قصدك استيراد السجلات الى برنامجك ، 

فالرجاء ارفاق:

1. برنامجك الذي تريد ان تستورد اليه السجلات (اعتقد انه هو الذي ارفقته سابقا) ، وتذكر اسم الجدول اللي تريد الاستيراد له ،

2. المجلد وفيه مجموعة من الملفات والتي نريد استيراد سجلاتها الى البرنامج في الرقم #1.

جعفر

في هذه الحالة ، الافضل انه نعمل حقل جديد في جدول Items ، ونسميه Taxable ، بصيغة نعم/لا ،

فعند ادخال المادة لأول مرة في البرنامج:

فان كانت ينطبق عليها الضريبة ، يدخل قيمة الحقل بـ نعم ، وإلا ، فـ لا .

وعند حساب الضريبة ، الكود يراعي هذا الحقل ، وعلى اساسه تدخل قيمة الضريبة (او حتى لو لم تدخل ، فيكون الحساب العام يحسب حساب هذا الحقل).

اذا كان هذا اللي تريده ، ومافي تغييرات لاحقه ، فنتوكل على الله ونعدل في الكود 

وسؤال آخر ، هل تريد اظهار قيمة الضريبة في السجل او لا.

جعفر

آسف ما فهمت اللي تريده 

اعطني مثال لوسمحت 

جعفر

السلام عليكم ورحمة الله وبركاته

أخي الوئام

أسير الشروق ارفق لك برنامج شؤون الموظفين في المشاركة رقم 2 ،

لماذا لا تستخدم هذا البرنامج كأساس ، وتزيد فيه المطلوب (ونحن نساعدك) ، وتغير فيه ما شئت (ونحن نساعدك) ، لأنه في نهاية الأمر ، برنامجك سيتوسع ويصبح نوعا ما مثل هذا البرنامج 

جعفر

وعليكم السلام ورحمة الله وبركاته

1. هل من الممكن أن اجعل الضريبة في الرئيسي الذي تفضلت مشكورا بعملها أن تعمل أيضاً مع الضريبة الموجودة في الفرعي من الجدول Detls_ADD

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

3. مع شرط تصفير الحقول التي ستختفي عند استخدام الآخر؟؟

4. أريد فقط معرفة إن كانت فكرتي ستكون صحيحة أم أنها خطأ ولا يمكن عملها

أخي عبدالرحمن

1. هي تعمل هكذا الان ،

2. مسألة إخفاء الحقول سهلة ، ولكني لا اراها واقعية ، 

3. تستطيع إخفاء الحقول في النموذج الرئيسي ، ولكن لا تصفرها ، لأن حقلي الضرائب مرتبطة بنفس المصدر ، فاذا صفرت من مكان ، اصبحت النتيجة صفر للحقل بالكامل ،

4. انا في اعتقادي انه: اذا الضريبة ستكون واحدة لجميع اصناف الفاتورة الواحدة ، فلماذا وضعها في سجل النموذج الفرعي اصلا!!

لاحظ بأننا الان نحفظ الضريبة والخصم في الجدول Ezn_ADD في سجل الفاتورة ، وكما تتم عملية الخصم على الفاتورة الكلية ، يجب ان تتم عملية الضريبة على الفاتورة الكلية كذلك ، بدون حفظها في النموذج الفرعي لكل سجل على حدة   

جعفر

السلام عليكم أخي عبدالرحمن 

اعتذر عن التأخر في الرد عليك 

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

عن تغيير قيمة خانات الضريبة والخصم في النموذج الرئيسي ، فانها تعكس نتائجها مباشرة في النموذج الفرعي ،

الضريبة لا تزال موجودة في سجلات النموذج الفرعي ، ونتائجها تعمل على المجموع ،

ولكن الخصم يعمل على المجموع فقط 

تم إضافة حقلين في الجدول Ezn_ADD وهما Tax و Discount ،

وهذا الكود الذي يعمل على الحدث بعد التحديث للضريبة والخصم:

Private Sub Opt_Discount_AfterUpdate()

    'get the Discount for the option
    Call txt_Discount_AfterUpdate
End Sub

Private Sub txt_Discount_AfterUpdate()
    
    'just need to Requery, so that the Discount can be taken from the Main/Parent Form
    Me.Sub_EznADD.Form.Requery
End Sub

Private Sub opt_Tax_AfterUpdate()
    
    'get the Tax for the option
    Call txt_Tax_AfterUpdate
End Sub

Private Sub txt_Tax_AfterUpdate()

    'Apply ONE Tax on the whole invoice in the SubForm Sub_EznADD
    'if Tax selected in txt_Tax = 10 , this means 10%
    
    Set rst = Me.Sub_EznADD.Form.Recordset
    rst.MoveLast: rst.MoveFirst
    
    RC = rst.RecordCount
    
    For i = 1 To RC

        Me.Sub_EznADD!Out_Tax = Me.txt_Tax / 100
        
        rst.MoveNext
    Next i
    
End Sub

جعفر

5.test.mdb.zip

وعليكم السلام

الظاهر انك لعبت وجربت مجموعة اشياء في الخيارات 

اختار التالي:

جعفر

حياك الله أخي عبدالفتاح 

 

مشكلة بسيطة 
حقل التسلسل عرضه يكون كبيرا

في ملاحظاتي التي شرحت فيها البرنامج ، انا قلت بالنسبة للترقيم:

وهناك خطان صفر ، فالمسافة بينهم ستكون للترقيم التلقائي للتقرير

 

وقلت:

ولاحظ ان البرنامج يوسع عمود الترقيم التلقائي ليسد المسافة

 

رجاء إخباري اذا كان في شئ غير هاتان الملاحظات 

جعفر

نصيحة:

احذف حساب الـ Admin ،

لان جميع قواعد البيانات اسم المستخدم لها هو Admin 

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

جعفر

كبير يا ابوآلآء ، كبير 

الله

الله

الله

لا املك سوى ان اقول الله ينور

وعاوز 4 اسابيع دراسه وتحليل لعلى افهم البعض من عملك الجميل والرائع

جعله الله فى ميزان حسناتك 

هشوف واحاول افهم واردس وارد عليك ان شاء الله

______________________-

بارك الله فيك فى مالك وفى اهلك وفى عملك واعاطك من الخير قدر كرمه

اللهم أمين

وانا تحت امرك اشرح لك سطر سطر 

هذا البرنامج بصيغة 2007-2010 ، ولا استطيع تغييرها ، لآن في الجداول حقول تجميع ، والتي لا توجد في النسخة 2003.

جعفر

أخي عبدالرحمن 

شكرا على التوضيح ، المسألة الان اصبحت سهلة 

ولكن عندي استفسار:

1. انت تريد ان تحذف حقل "نسبة ضريبة المبيعات" من النموذج الفرعي ، وتستخدم بدلا عنه "إضافة ضريبة بالمائة على الإجمالي بدون التقيد  بالأصناف" و "إضافة خصم بالمبلغ على الإجمالي بدون التقيد بالأصناف" ، صح ؟

2. تريد تشوف نتائج العملية اعلاه ، في الحقول "إجمالي بدون ضريبة" و "إجمالي بالضريبة" و "إجمالي ض. مبيعات" ، صح ؟

3. يجب حفظ بيانات "إضافة ضريبة بالمائة على الإجمالي بدون التقيد  بالأصناف" و "إضافة خصم بالمبلغ على الإجمالي بدون التقيد بالأصناف" لكل فاتورة ، فهل تريد ان تحفظهم في الجدول Ezn_ADD ، صح ؟

4. نتيجة التفقيط عندك غلط ، للعلم 

اعطني الاجابه للاسئلة اعلاه حتى ابدء في العمل ان شاء الله 

جعفر

السلام عليكم 

1. عملت استعلام يربط الجداول ، ويكون فيه الحقول المطلوبة:

2. ثم نموذج عادي يأخذ نتائجه من هذا الاستعلام ، وعملت نسخة من الحقول المطلوبة للبحث في الاعلى:

3. بعض الحقول تحتوي على ارقام ، واسماء هذه الحقول موجودة في جداول اخرى ، فكان لازم نغيرها من نص الى مربع سرد:

وهذه طريقة ربط الجداول للحقل اعلاه:

والنتيجة:

4. عملت حدث بعد التحديث لحقول البحث ، وهذا هو الكود:

Option Compare Database


Private Sub Form_Close()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

Private Sub Check_Selected()
    
    Dim FF As String

'cmb_alaam_aldrasy
    If Len(Me.cmb_alaam_aldrasy & "") = 0 Then
        FF = ""
    Else
        FF = "[alaam-aldrasy] ='" & Me.cmb_alaam_aldrasy & "'"
    End If
'---------

'cmb_almadrasa
    If Len(Me.cmb_almadrasa & "") = 0 Then
    
    Else
        FF = FF & " And [almadrasa] ='" & Me.cmb_almadrasa & "'"
    End If
'---------

'cmb_alsaf
    If Len(Me.cmb_alsaf & "") = 0 Then
    
    Else
        FF = FF & " And [alsaf] ='" & Me.cmb_alsaf & "'"
    End If
'---------

'cmb_alsuaph_aldrasy
    If Len(Me.cmb_alsuaph_aldrasy & "") = 0 Then
    
    Else
        FF = FF & " And [alsuaph-aldrasy] ='" & Me.cmb_alsuaph_aldrasy & "'"
    End If
'---------

'cmb_IDalmada
    If Len(Me.cmb_IDalmada & "") = 0 Then
    
    Else
        FF = FF & " And [IDalmada] =" & Me.cmb_IDalmada
    End If
'---------

'cmb_IDalsahr
    If Len(Me.cmb_IDalsahr & "") = 0 Then
    
    Else
        FF = FF & " And [IDalsahr] =" & Me.cmb_IDalsahr
    End If
'---------

    If Left(FF, 4) = " And" Then FF = Mid(FF, 6)
    Me.Filter = FF
    Me.FilterOn = True
    
End Sub

Private Sub cmb_alaam_aldrasy_AfterUpdate()

    Call Check_Selected
End Sub

Private Sub cmb_alaam_aldrasy_DblClick(Cancel As Integer)

    Me.cmb_alaam_aldrasy = ""
    Call Check_Selected
End Sub

وتركت لك في الكود بونص    انقر مرتين على اي حقول البحث ، وسيتنحذف الكلمات اللي فيه 

5. والنتيجة:

يا الله يا ابوآلآء ، خلينا نشوف اللي عملته ونستفيد ان شاء الله 

جعفر

6.برنامجي2.accdb.zip

اعتذر منك أخي عبدالرحمن على التأخير ، فانا اساعد احد الشباب في موضوع آخر ، ولما اخلص ، ساوجه تركيزي لموضوعك ان شاء الله 

جعفر

العفو ابو الآء ، احنا نتعلم من بعض ، وبالعكس ، لما انتهي من عملي ، ساقارن عملي بعملك ، ونتوصل الى النتيجة الافضل للرد على السؤال ، ونتعلم شئ جديد 

يعني ، في سباق بيننا نحن الاثنين لإرضاء الاخ عبدالعزيز 

جعفر

اعطني شوية وقت لوسمحت ، انا اعمل على المطلوب 

جعفر

اخي عبدالعزيز 

اسئلتي كانت:

ياريت تعطينا مثال او مثالين علشان نحاول نوصل لنفس نتائجهم ،

مع مراعاة استخدام اسماء الجداول والحقول التي في البرنامج.

فلا اعطيتنا مثال تطبيقي علشان نفهم ،

ولا اعطيتنا اسماء الجداول والحقول التي في البرنامج 

طلبك واضح لك ، لكننا لا نرى إلا جداول وحقول وبيانات ،

1. فمن ايهم ،

2. تريد ماذا ،

3. للوصول الى ماذا.

مثال من برنامجك لوسمحت 

جعفر