تنبيه قبل وصول موعد صرف الشيك بيوم او يومين

[ابوماجد46]

اخواني الاعزاء السلام عليكم ورحمة الله وبركاته.

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

شيكات.rar

[ابوماجد46]

•  

اخواني الاعزاء السلام عليكم ورحمة الله وبركاته.

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

شيكات.rar

[Shivan Rekany]

3 ساعات مضت, حسن احمد التميمي said:

• اخواني الاعزاء السلام عليكم ورحمة الله وبركاته.

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

شيكات.rar

اتفضل اخي
اولا عملنا استعلام باسم Q1
وفي حقل التاريخ كتبنا شرط لكي يبين لنا الريكوردات اللي فيه تاريخ اليوم و حتى تاريخ بعد يومين اي تاريخ زائد يومين

وبعدين عملنا نموذج على تلك الاستعلام اي مصدر النموذج هو استعلام Q1

وفي نموذج الشيكات الاجلة وفي حالة التحميل كتبنا هذا الكود

 

Private Sub Form_Load()
On Error Resume Next 
    Dim nCount As Integer 
nCount = DCount("[ID]", "Q1")
    If nCount > 0 Then 
       DoCmd.Minimize 
            If MsgBox("ÇÞÊÑÈ ãæÚÏ ÕÑÝ " & " ( " & nCount & " ) " & "ÔíßÇÊ , åá ÊÑíÏ ãÊÇÈÚÊå ", vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then 
                    DoCmd.OpenForm "FRM1", acNormal 
                        Else
                Exit Sub
            End If ' MSGBOX
    End If  ' NCOUNT > 0
End Sub

 

شيكات.rar

[sandanet]

اخي Shivan  هل بامكانك تحويل الملف الى صيغة اكسس 2003 او 2007 ولك جزيل الشكر 

تم تعديل فبراير 14, 2017 بواسطه sandanet

[Shivan Rekany]

11 ساعات مضت, sandanet said:

اخي Shivan  هل بامكانك تحويل الملف الى صيغة اكسس 2003 او 2007 ولك جزيل الشكر 

اتفضل اخي الكريم
اليك ملف بصيغة mdb اي 2003

من الممكن ان نستخدم هذا الكود بدل الكود عند تحميل شيكات الاجلة
لان في كود الاعلاه حين تضغط لا بيعمل ميني مايز النموذج الشيكات
والان ان شاء الله الكود تمام

On Error Resume Next 
    Dim nCount As Integer 
nCount = DCount("[ID]", "Q1") 
    If nCount > 0 Then 
            If MsgBox("ÇÞÊÑÈ ãæÚÏ ÕÑÝ " & " ( " & nCount & " ) " & "ÔíßÇÊ , åá ÊÑíÏ ãÊÇÈÚÊå ", vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then 
                    Forms!shikatacila.SetFocus
                    DoCmd.Minimize
                    DoCmd.OpenForm "FRM1", acNormal 
                        Else
                Exit Sub
            End If ' MSGBOX
    End If  ' NCOUNT > 0
End Sub

شيكات.rar

تم تعديل فبراير 15, 2017 بواسطه Shivan Rekany

[ابوماجد46]

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

اخي الفاضل  Shivan Rekany تحياتي لك وللأخوة الكرام على تجاوبكم معنا. اسال الله اين يكون ذلك في ميزان حسناتكم. ولكن هناك كلمات غير مفهومه. في المسج.

لكم مني خالص التقدير والاحترام.

[ابو جودي]

1 ساعه مضت, Shivan Rekany said:

اتفضل اخي الكريم
اليك ملف بصيغة mdb اي 2003

من الممكن ان نستخدم هذا الكود بدل الكود عند تحميل شيكات الاجلة
لان في كود الاعلاه حين تضغط لا بيعمل ميني مايز النموذج الشيكات
والان ان شاء الله الكود تمام

On Error Resume Next 
    Dim nCount As Integer 
nCount = DCount("[ID]", "Q1") 
    If nCount > 0 Then 
            If MsgBox("ÇÞÊÑÈ ãæÚÏ ÕÑÝ " & " ( " & nCount & " ) " & "ÔíßÇÊ , åá ÊÑíÏ ãÊÇÈÚÊå ", vbYesNo + vbMsgBoxRight, "ÊäÈíå") = vbYes Then 
                    Forms!shikatacila.SetFocus
                    DoCmd.Minimize
                    DoCmd.OpenForm "FRM1", acNormal 
                        Else
                Exit Sub
            End If ' MSGBOX
    End If  ' NCOUNT > 0
End Sub

شيكات.rar

السلام عليكم 
كل الشكر والتقدير للاستاذ شيفان

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

شيكات.rar

[Shivan Rekany]

23 دقائق مضت, حسن احمد التميمي said:

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

اخي الفاضل  Shivan Rekany تحياتي لك وللأخوة الكرام على تجاوبكم معنا. اسال الله اين يكون ذلك في ميزان حسناتكم. ولكن هناك كلمات غير مفهومه. في المسج.

لكم مني خالص التقدير والاحترام.

اخي الكريم
هل عملت كوبى باست للكود الاعلاه في مشاركتي السابقة ؟
اذا نعم
اليك هذا

On Error Resume Next 
    Dim nCount As Integer 
nCount = DCount("[ID]", "Q1") 
    If nCount > 0 Then 
            If MsgBox(" اقترب موعد صرف " & " ( " & nCount & " ) " & " شيكات , هل تريد متابعته ", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then 
                    Forms!shikatacila.SetFocus
                    DoCmd.Minimize
                    DoCmd.OpenForm "FRM1", acNormal 
                        Else
                Exit Sub
            End If ' MSGBOX
    End If  ' NCOUNT > 0
End Sub

لكن انتبه حين تعمل كوبي باست للكود
يغير الكلمات اللغة العربية الى ذاك الكلمات الغير مفهومة
افتح محرر فيجوال للاكواد وغير بنفسك
تحياتي

 

12 دقائق مضت, ابا جودى said:

السلام عليكم 
كل الشكر والتقدير للاستاذ شيفان

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

شيكات.rar

شكرا لك استاذ اباجودي
على الاضافة النغمة
تحياتي الك

[sandanet]

رائع جداً