19-03-18, 04:18 AM
(آخر تعديل لهذه المشاركة : 19-03-18, 04:40 AM {2} بواسطة emamtron2014.)
جزاك الله كل خير علي ماتقدمه من معلومات ومساعدات لغيرك
فقد جربت الكود وحاولت وبالفعل الكود اشتغل بفضل الله
اشكرك [b]عبدالله الدوسري [/b]علي تعاونك اخي
وهذا هو الكود للعلم ولعل احد اخر ينتفع به
اخي [b]عبدالله الدوسري الكود اشتغل تمام كما قلت لك[/b]
[b]ولكن هل من طريق لعرض هذه الاسماء في بالون بجوار الساعه بدلا من msgbox[/b]
[b]ياريت الكود وبارك الله فيك[/b]
فقد جربت الكود وحاولت وبالفعل الكود اشتغل بفضل الله
اشكرك [b]عبدالله الدوسري [/b]علي تعاونك اخي
وهذا هو الكود للعلم ولعل احد اخر ينتفع به
كود :
'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
Dim searchDate1 As Date = Now.ToShortDateString
dtPatientstoresuldate.Clear()
daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate = # " & searchDate1 & " # ", connAccess2007)
daPatientstoresuldate.Fill(dtPatientstoresuldate)
DataGridView1.DataSource = (dtPatientstoresuldate)
For i As Integer = 0 To DataGridView1.Rows.Count - 2
MsgBox("برجاء طباعة نتائجه " & " . " & DataGridView1.Rows(i).Cells(6).Value & " : سيتم استلام نتائج المريض")
Nextاخي [b]عبدالله الدوسري الكود اشتغل تمام كما قلت لك[/b]
[b]ولكن هل من طريق لعرض هذه الاسماء في بالون بجوار الساعه بدلا من msgbox[/b]
[b]ياريت الكود وبارك الله فيك[/b]
