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

[عمر ضاحى]

انا عامل جدول للسلف 

هذا الجدول به حقل (الدفع) (نعم او لا)

وعامل فورم لترحيل الرواتب 

اريد كود اضعه فى فورم الصفحة الرئيسيه 

ويتحقق من جدول السلف (tblSolaf1) فى حقل (Paid) هل هناك سلف لم يتم دفعها ام لا 

والشرط الشهر الحالى او ما قبل  (حقل موعد الاستحقاق اسمه) (SolfaDate)  (هذا الحقل قد تكون به تواريخ كثير حسب قسط السلفه)

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

ويعطينى رساله بهذا 

 

مش عارف اذا كان هذا الطلب واضح ام لا

 

 

 

[عمر ضاحى]

انا فكرت فى كود زي كده

If DLookup("[Paid]", "[tblSolaf1]", "") = No And DLookup("[SolfaDate]", "[tblSolaf1]", "") <= Month() Then

MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه"
DoCmd.OpenForm "1Home"
Else

DoCmd.OpenForm "frmSalary"

End If

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

 

فمش عارف اعبر عنها ازاى

تم تعديل يوليو 18, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

  في 18‏/7‏/2021 at 20:32, عمر ضاحى said:

انا فكرت فى كود زي كده

If DLookup("[Paid]", "[tblSolaf1]", "") = No And DLookup("[SolfaDate]", "[tblSolaf1]", "") <= Month() Then

MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه"
DoCmd.OpenForm "1Home"
Else

DoCmd.OpenForm "frmSalary"

End If

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

 

فمش عارف اعبر عنها ازاى

Expand  

ارفق الملف مع بعض البيانات

[عمر ضاحى]

هذا هو كمثال

Project2.accdbFetching info...

[husamwahab]

جرب هذا الكود

Private Sub أمر1_Click()
If Nz(DCount("*", "tblSolaf1", "Paid=No" & " And SolfaDate<=#" & Date & "#"), 0) > 0 Then
  MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه"
  DoCmd.OpenForm "tblSolaf1"
Else
  DoCmd.OpenForm "Salary"
End If
End Sub

 

[عمر ضاحى]

  في 19‏/7‏/2021 at 06:35, husamwahab said:

جرب هذا الكود

Private Sub أمر1_Click()
If Nz(DCount("*", "tblSolaf1", "Paid=No" & " And SolfaDate<=#" & Date & "#"), 0) > 0 Then
  MsgBox "هناك سلف لم يتم الانتهاء منها", vbInformation, "تنبيه"
  DoCmd.OpenForm "tblSolaf1"
Else
  DoCmd.OpenForm "Salary"
End If
End Sub

 

Expand  

 

اولا احب اشكرك على مساعدتك

الكود يعمل جيدا 

[husamwahab]

بالخدمة استاذي العزيز