مش عارف الكود الخاص بقاعدة IF مش عايز يضبط معايا باعمل قاعدة بيانات لفواتير الموظفين
جدول بيانات
1-رقم هاتف الموظف
ا2- سم الموظف
3- القسم
4- الحد المسموح له
وفي جدول الفواتير
1-رقم هاتف الموظف
ثم نموذج الفاتورة عملت COMBO BOX لاسم الموضف والقسم والحد المسموح به ( بحيث اذا ادخلت رقم هاتف الموظف تظهر بيانات الموظف )
2- تاريخ الفاتورة
3- قيمة الفاتورة InvoiceAmount
4- المبلغ التي تتحمله الشركة CompanyDebit
5- المبلغ الذي يتحمله الموظف EmployeeDebit
عند فتح نموذج بيانات الفاتورة Invoices FORM
يتم ادخال رقم هاتف الموظف فتظهر بياناته تلقائيا ومنها الحد المسموح به للموظف
ويتم ادخال تاريخ الفاتورة ، وقيمة الفاتورة وعند الخروج من سجل الفاتورة كتبت الكود التالي
Private Sub InvoiceAmount_Exit(Cancel As Integer) If InvoiceAmount >= Me.Combo14.Column(1) Then CompanyDebit = Me.Combo14.Column(1) EmployeeDebit = InvoiceAmount - Me.Combo14.Column(1) Else CompanyDebit = InvoiceAmount EmployeeDebit = 0 End If End Sub
وما اريده هو
اذا كان مبلغ الفاتورة اكبر من او يساوي الحد المسموح به عندئذ
المبلغ التي تتحمله الشركة = الحد المسموح به
المبلغ الذي يتحمله الموظف - قيمة الفاتورة - الحد المسموح به
والا فان ( في حال ان الفاتورة اقل من الحد المسموح به )
المبلغ التي تتحمله الشركة = قيمة الفاتورة
المبلغ الذي يتحمله الموظف = 0
