تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عرض البيانات التي تتوافق مع تاريخ اليوم
#1
السلام عليكم
عندي جدول من نوع اكسيس ويحتوي علي جدول عملاء .
يتم تسجيل اسم العميل- وتاريخ الزياره -وتاريخ بعد الزياره بيومين
وبعد عرض العملاء في داتا جريد فيو
 
اريد عند الضغط علي زر معين يظهر لي اسماء العملاء الذي يتوافق تاريخ زيارتهم مع تاريخ اليوم
وجزاكم الله  خيرا 
وبارك الله فيكم جميعا
الرد
تم الشكر بواسطة:
#2
عليكم السلام 

راجع هذا الموضوع 

http://vb4arb.com/vb/showthread.php?tid=19343



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد
تم الشكر بواسطة:
#3
[b]hglogtd[/b]  
شكرا اخي علي رد حضرتك
الكود لم يعمل معي
سارفق لحضرتك الفورم وارجو ان توضح لي كيف يكون الكود
مع العلم اني اريد عند الضغط علي زر معين يظهر لي اسماء المرضي الذي يتوافق تاريخ ال  ResultDate مع تاريخ اليوم
وجزاك الله خيرا


الملفات المرفقة
.rar   Result Date.rar (الحجم : 321.01 ك ب / التحميلات : 35)
الرد
تم الشكر بواسطة:
#4
ضع هذا الكود في زر البحث بين تاريخين :
كود :
       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)

هكذا : 

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dtPatients.Clear()
       daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
       daPatients.Fill(dtPatients)
   End Sub
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#5
جزاك الله خيرا اخي  [b]عبدالله الدوسري[/b]
ولكن انا لا اريد ان يعرض لي النتائج في الداتا جريد فيو
بل اريد ان يعرض لي اسم المريض فقط الذي يتوافق مع تاريخ اليوم  في رساله او شاشه تنبيهيه بجوار الساعه
فعل يوجد حل لذالك 
وجزاك الله خيرا
الرد
تم الشكر بواسطة:
#6
كود :
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      dtPatients.Clear()
      daPatients = New OleDbDataAdapter("select * from Patients WHERE ResultDate BETWEEN #" & DateTimePicker1.Value.ToShortDateString & "# AND #" & DateTimePicker2.Value.ToShortDateString & "# order by Code", connAccess2007)
      daPatients.Fill(dtPatients)
  End Sub


هذا الكود يجلب لك الأسماء التي تتوافق مع تاريخ اليوم

جرب وإسأل عن عدد السجلات إذا أكبر من صفر 
إعرضها في شاشة جديدة , لأنه من الممكن أن يظهر لك أكثر من اسم , ولا يمكنك تحديد النتائج , وذلك تحتاج إلى نافذة مختلفة لعرض النتائج .


حاول بنفسك .
الرد
تم الشكر بواسطة:
#7
جزاك الله كل خير علي ماتقدمه من معلومات ومساعدات لغيرك
فقد جربت الكود وحاولت  وبالفعل الكود اشتغل بفضل الله 
اشكرك   [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]
الرد
#8
1 - أنشئ متغير جديد ( في أعلى الـ Form ) كالتالي :
كود :
   Dim MyNotifyIcon As New NotifyIcon With {.Visible = True, .Text = "***اسم البرنامج***"}





2 - في الحدث Form1_Load النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نعين الأيقونة ( Icon ) لهذا الكائن , لأنه بدونها لن تظهر أي رسالة , ولسرعة الشرح , أخذت الأيقوة الخاصة بالـ Form نفسة 
كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.MyNotifyIcon.Icon = Me.Icon
   End Sub







3 - في الحدث Form1_FormClosed عند إغلاق النافذة الرئيسية ( أول نافذة تفتح في المشروع ) , نقوم بإخفاء هذا الكائن , ثم نتخلص من الكائن , بدون هذا الإجراء ستظل أيقونة الكائن في صينية النظام جنب الساعة , ولن تختفي حتى تمرر الماوس فوقها. 
كود :
   Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
       Me.MyNotifyIcon.Visible = False
       Me.MyNotifyIcon.Dispose()
   End Sub



   








4 - بإستدعاء هذا الأمر يمكنك إظهار رسالة تنبيهية ( Notification Message ) 
5000 يعني عدد الثواني لمدة ظهور الرسالة التنبيهية , وهي تحسب بالمللي ثانية , كل ثانية = 1000 مللي ثانية , الـ 5000 مللي ثانية تعني 5 ثواني
يمكنك تغيير ToolTipIcon.Info , البراميتر الأخير , فهو لتحديد نوع الأيقونة داخل الرسالة التنبيهية , وليس لأيقونة للكائن بجانب الساعة.

كود :
       Me.MyNotifyIcon.ShowBalloonTip(5000, "عنوان الرسالة هنا", "محتوى نص الرسالة هنا", ToolTipIcon.Info)






5 - بعد عمل الخطوة رقم ( 1 , 2 , 3 ) قم بتغيير الكود الذي لديك , بهذا الكود :
كود :
       'لعمل رساله تظهر اذا جاء وقت كتابة النتيجه
       Dim searchDate1 As Date = Now.ToShortDateString
       dtPatientstoresuldate.Clear()
       daPatientstoresuldate = New OleDbDataAdapter("select * from Patients WHERE ResultDate  = # " & searchDate1 & " # ", connAccess2007)
       daPatientstoresuldate.Fill(dtPatientstoresuldate)
       DataGridView1.DataSource = (dtPatientstoresuldate)

       Dim Msg As String = ""
       For i As Integer = 0 To DataGridView1.Rows.Count - 2
           Msg &= i & " - " & DataGridView1.Rows(i).Cells(6).Value & vbNewLine
       Next

       Me.MyNotifyIcon.ShowBalloonTip(5000, "نتائج المرضى :", "برجاء طباعة نتائج المرضى التالية أسمائهم" & vbNewLine & Msg, ToolTipIcon.Info)
الرد
#9
والله اني عاجز عن شكرك اخي   [b]عبدالله الدوسري[/b]  
جزاك الله كل خير
سانف الكود بان الله تعالي
الرد
تم الشكر بواسطة:
#10
الكود اشتغل تمام والحمد لله
اشكرك كثيرا يا اخي  [b]عبدالله الدوسري[/b]
جعله الله في ميزان حسناتك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 3 175 08-04-21, 07:24 PM
آخر رد: mmaalmesry
  [VB.NET] اضافة البيانات من الداتاتابل الي الداتابيز احمد 2021 0 87 05-04-21, 11:10 PM
آخر رد: احمد 2021
  [VB.NET] نقل البيانات من الكمبو الي التريفيو احمد 2021 11 294 05-04-21, 03:28 AM
آخر رد: messry
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 1 373 04-04-21, 03:45 AM
آخر رد: messry
  [VB.NET] مشكلة عند تحويل المتغير الي تاريخ احمد 2021 4 258 01-04-21, 09:39 PM
آخر رد: احمد 2021
  [سؤال] سؤال عن ListView و الربط مع قاعدة البيانات alims 1 196 18-03-21, 01:59 AM
آخر رد: alims
  ارجو المساعدة في عرض البيانات على التاتا جرد فيو moahmed.abdelmohsen 1 228 15-03-21, 09:38 PM
آخر رد: moahmed.abdelmohsen
  [سؤال] سؤال طريق اعمل بحث و اضافة و تعديل دخل قاعد البيانات فى نفس الوقت alims 1 213 15-03-21, 07:17 AM
آخر رد: alims
  التأكد من أن الليست بوكس خالية من البيانات aftfm 1 194 12-03-21, 09:08 PM
آخر رد: 3booody
  [VB.NET] البحث عن تاريخ SHAM1 4 451 06-03-21, 07:50 AM
آخر رد: ZaerAllail

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم