التنبيه كل ستة شهور

هذه فكرة الحل اخى

حاول التطبيق و اذا لم تنجح ارفق مثال

Dim FirstDate As Date ' Declare variables.

Dim IntervalType As String

Dim Number As Integer

Dim Msg

IntervalType = "m" ' "m" specifies months as interval.

FirstDate = InputBox("Enter a date")

Number = InputBox("Enter number of months to add")

Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)

MsgBox Msg

أشكرك اخي الكريم ..

لكن هذه هي المشكلة أني لم أتوصل لحد الآن لفكرة المثال .. وايش الحقول المطلوبة حتى استطيع أطرح المثال واطلب المسعدة في الكود ..

فهل لديك تصور عن كيف يكون النظام ؟ وماهي الحقول المطلوبة ؟

هذه محاولة للتصور :

الدفع كل ( 6 ) شهر

تاريخ البداية : 1 / 1 /1431

التنبيه قبل الأستحقاق بـــ ( 10 ) يوم

يعني المطلوب ينبهني في تاريخ 20/ 6 /1431

...

ثم التنبيه مرة أخرى في تاريخ 20/ 12 / 1431

ثم التنبيه في 20/ 6 / 1431

لأن الدفع كل 6 شهور والتنبيه قبل موعد الأستحقاق بـ 10 يوم

( مرفق حسب مثال حسب التصور السابق )

1111.rar

اخي / فتي الوادي

لي ملاحطة على سؤالك وهي انك قلت

تاريخ البداية : 1 / 1 /1431

التنبيه قبل الأستحقاق بـــ ( 10 ) يوم

يعني المطلوب ينبهني في تاريخ 20/ 6 /1431...

ثم التنبيه مرة أخرى في تاريخ 20/ 12 / 1431

ثم التنبيه في 20/ 6 / 1431

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

وهذه محاولة مني على ملفك لعلها تكون طلبك في المرفقات

1111.rar

السلام عليكم

أشكرك أخي الكريم على الرد ...

ولكن يبدو أني لم أوفق في شرح المطلوب ...

المطلوب مرة أخرى :

الفكرة :

انا استأجرت محل تجاري ..... بمبلغ 20.000 ريال

أدفع كل ستة شهور نصف المبلغ 10.000

وبداية العقد من 1/ 1 / 1431هـ

يعني يكون الدفع كل شهور ....

راح يكون الدفع القادم في تاريخ 1 / 7/ 1431

اريد من البرنامج التنبيه قبل موعد الأستحقاق القادم بــــ 15 يوم مثلا

--- ولن يكون هناك تحديث للبيانات ....

لأنه تلقائيا كل ستة شهور يطلع يكون فيه استحقاق لدفع المبلغ ويكون التنبيه قبلها بـ 15 يوما

الأستحقاق القادم 1 / 7 /1431 التنبيه في 15/6/1431

========1 / 1 /1432 التنبيه في 15/12/1431

========1/7/1432 التنبيه في 15/6/1432

وهكذا تلقائيا ....

حسب طريقة الدفع كل 6 شهر او كل شهر او كل سنة ... الخ

وحسب مدة التنبيه قله 10 يوم او أقل أو أكثر ....

هل أنتم معي ؟!؟؟

للرفع

تفضل اخى

اتمنى ان يفى المرفق بما تريد

221.rar

بارك الله فيك أخي الكريم ..

ينفع جزئيا .. لكن لماذا وضعت طريقة الدفع ثابته (6) في الكود

السجلات تختلف منها ما هم 6 شهور ومنها 3 شهور ومنها ما 12 شهر ..الخ يعني متغيره وليست ثابته

اخي قم بتغيير السطر في حدث txtdate_AfterUpdate

ليصبح هكذا

nextdate = DateAdd("m", [txtkin], txtdate)

وأيضا نفس Form_current

    If Not IsNull(Me.nextdate) Then
       If DateDiff("d", Date, nextdate) <= 10 And DateDiff("d", Date, nextdate) > 0 Then
          xx.Caption = "لاتنسى " & DateDiff("d", Date, nextdate)
        ElseIf DateDiff("d", Date, nextdate) = 0 Then
          xx.Caption = "اليوم الأخير " & DateDiff("d", Date, nextdate)
        ElseIf DateDiff("d", Date, nextdate) > 10 Then
          xx.Caption = " براحتك " & DateDiff("d", Date, nextdate)
        ElseIf DateDiff("d", Date, nextdate) < 0 Then
           xx.Caption = " موعد جديد" & DateDiff("d", Date, nextdate)
           nextdate = DateAdd("m", [txtkin], nextdate)
        End If
    End If

تحياتي

أشكرك أخي عماني على الرد السريع ...

سأجرب المثال بعد التعديل وأرى النتيجة ..

شكرا للأخوة جميعا وخاصة الأخ / mrnooo2000

وبارك الله فيكم وفي علمك ونفع الله بكم البلاد والعباد .

-( لم ينتهي الموضوع بعد )- سأجرب وأرد لكم خبر فتحمول اخوكم الصغير .

فتى الوادي كتب:

بارك الله فيك أخي الكريم ..

ينفع جزئيا .. لكن لماذا وضعت طريقة الدفع ثابته (6) في الكود

السجلات تختلف منها ما هم 6 شهور ومنها 3 شهور ومنها ما 12 شهر ..الخ يعني متغيره وليست ثابته

اخى العزيز

ان اعطيك فكرة الحل و انت تطبق بما يناسب متطلباتك

عموما فقد تفضل اخونا عمانى بالاجابة

و لو كان هناك اى استفسار فلن يتأخر احد ان شاء الله

الي كل من ساهم في الردود ... جعل الله اعمالكم هذه في موازين حسناتكم بعدد من استفاد منها

جزاكم الله عنا خير الجزاء