كيفيه معرفه ان كشف رواتب هذا الشهر تم انشائه او لا

[Dr.Rasha]

السلام عليكم 

انا عندي استعلام يحسب لي صافي الراتب ويعد كشف بالرواتب ويحفظة في جدول الرواتب 

كيف اتحكم بزر انشاء الكشف بحيث انه ينقر مره واحده بالشهر )لتجنب تكرار الكشف مرتين) او انه يتم التاكد من الجدول اذا كان الكشف انشئ فان زر انشاء كشف يتم تعطيله في النموذج

مثال :   الجدول : 

الاسم   صافي الراتب   الشهر     السنة 

محمد      2000              1             2016

 

اذا فكشف الرواتب لشهر يناير قد تم انشائه بالتالي يجب ان يكون زر انشاء الكشف في النموذج غير مفعل 

 

ارجو مساعدتي ربنا يفرج همكم ان شاء الله 

[سعيد صواب]

حياك الله اخي الكريم 

شاهد المرفق ...

ملاحظة : استخدام شرط الشهر والسنة مهم ..

ضع الكود اينما تريد .

Dim a
a = Nz(DCount("monnth", "salary", "monnth=forms!frm1!m and yeaar=forms!frm1!y"), 0)
If a > 0 Then 
MsgBox "áÞÏÊã Êã ÇÖÇÝÉ ãÓíÑ áåÐÇ ÇáÔåÑ ", vbCritical
Else
MsgBox "áã ÊÊã ÇÖÇÝÉ ãÓíÑ áåÐÇ ÇáÔåÑ  ", vbInformation
'ÈÅãßÇäß ÇÓÊÈÏÇá ÇáÑÓÇáÉ ÈãÇ ÊÑíÏ
End If

 بالتوفيق

 

Salary.rar

تم تعديل يناير 21, 2016 بواسطه سعيد صواب

[أبو عبدالله الحلوانى]

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

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

وعلى كل حال الفكرة التى تدور برأسى الآن انشاء استعلام ووضع معيار البيانات فيه = تاريخ شهر الكشف و سنة الكشف

ثم استخدام دالة Dcount مع زر الانشاء لوجود بيانات بالاستلام أم لا ان كان نعم فلا تصنع شىء وان كان لا فأنشأ الكشف. أرجو أن تكون الفكرة واضحة والا فنحن حاضرين للتطبيق بعد ارفاق المرفق