اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

ويتحقق من جدول السلف (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

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

 

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

تم تعديل بواسطه عمر ضاحى
قام بنشر
51 minutes ago, عمر ضاحى said:

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


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

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

DoCmd.OpenForm "frmSalary"

End If

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

 

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

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

  • Like 1
  • أفضل إجابة
قام بنشر

جرب هذا الكود

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

 

  • Like 1
  • Thanks 1
قام بنشر
1 ساعه مضت, 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

 

 

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information