سؤال في في عمل رسائل التنبيه

انتضر الرد يأخواني .. وينك ياحريف برمجه وينكم ياأعضاء

اقتباس

فهل باستطاعة احد الاعضاء الكرام التنويه بهذه الفكره..

اربط البرنامج مع قاعدة بيانات

نعم اخي المزمجر... انا ربطت البرنامج مع قاعدة البيانات.

لكن مأريده هو كود يقوم بأضهار رساله قبل انتهاء المده المحدده أي قبل وصوله الى تاريخ انتهاء التأجير بمده يحددها المؤجر(يوم اسبوع شهر ...)

جزاك الله خير اخي المزمجر على التعقيب..

والسلام...

جرب استخدام هذا الكود

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

Private Sub Command1_Click()
	'تعريف
	Dim Date1 As Date, Date2 As Date, a As Integer, b As Integer

	' تاريخ اليوم
	Date1 = Text1.Text
	' تاريخ الانتهاء
	Date2 = Text2.Text
	'الفرق سيظهر هنا
	Text3.Text = DateDiff("d", Date1, Date2)
	''''''''''''''''''''''''''''''''''''''''
	' الفرق
	a = Val(Text3.Text)
	' عدد الايام قبل التنبيه
	b = Val(Text4.Text)
	'''''''''''''''''''''''''''''''''
	'هنا المناقشة و إظهار التنبيه
	If b >= a Then
		MsgBox "انتبه لقد تجاوز المستخدم الفترة المحددة له"
	Else
		'هنا الفرق للايام عندما لا خطر
		Text5.Text = a - b
		MsgBox "الاوضاع تمام و باقي   " & Text5.Text & "  أيام"
	End If
End Sub

Private Sub Form_Load()
	'جعل التكست هو تاريخ اليوم
	Text1.Text = Date
End Sub

NOUR_data.rar

اقتباس

وينك ياحريف برمجه وينكم ياأعضاء

هذا الموضوع اول مرة ادخله واقراه اخى تقريبا عندما وجدت رد المزمجر فلا تزعل منى والحمد لله معك عضو مميز قد اوجد لك الاجابة

سؤال لك اخى المزمجر

هل لك علاقة بعضو اسمه نور نبهان ارى ان مشاريعك تبدا باسمه

اقتباس

هل لك علاقة بعضو اسمه نور نبهان ارى ان مشاريعك تبدا باسمه

وهل تعرف نور النبهان

أشكرك أخي المزمجر على التقاعل معي ... كما اشكرك انت ايضا حريف برمجه....

كما ابشركم اني استطعت ان اصنع كود يفي بالغرض وعلى ماقالوا(الحاجه ام الاختراع)

وسأضعه ليستفيد منه الاعضاء:

'تنبيه بقرب انتهاء الاقامة والجواز
Sub JGEnd()
Dim GEnd As Long
Dim JEnd As Long
SQL = "SELECT * FROM mlmt"
Set QIP = Cn.Execute(SQL)
Do Until QIP.EOF
GEnd = DateDiff("d", FrmMain.StBar.Panels(2), QIP!GDTEND)
If GEnd < 30 Then
MsgBox " " & " نحيطكم علما بأن اقامة الموظف: " & QIP!Name + QIP!father & " ورقم اقامته: " & QIP!EgmhNUM & " تنتهي في تاريخ: " & QIP!GDTEND & " واسم كفيله: " & QIP!KflNAM & " ورقم هاتفه: " & QIP!Tel, vbExclamation, "تنبيه بقرب تاريخ انتهاء الاقامة"
End If
If QIP!JDTEND <> "" Then JEnd = DateDiff("d", FrmMain.StBar.Panels(2), QIP!JDTEND)
If JEnd < 30 Then
MsgBox " " & " نحيطكم علما بأن جواز الموظف: " & QIP!Name + QIP!father & " ورقم جوازه: " & QIP!jwzNUM & " ينتهي في تاريخ: " & QIP!JDTEND & " واسم كفيله: " & QIP!KflNAM & " ورقم هاتفه: " & QIP!Tel, vbExclamation, "تنبيه بقرب تاريخ انتهاء الجواز"
End If
QIP.MoveNext
Loop
Set QIP = Nothing
End Sub

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

/index.php?showtopic=122211

اقتباس

سؤال لك اخى المزمجر :huh:

هل لك علاقة بعضو اسمه نور نبهان ارى ان مشاريعك تبدا باسمه

نور نبهان <_<

سوف تجد المزمجر هنا

اقتباس

وهل تعرف نور النبهان

لا أعرفه -_-

:lol:

يبدو أن موضوعي صار نادي للتعارف ههههههههه

اكيد لي اجر

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