تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك
#1
السلام عليكم.اخواني رجاء المساعدة.عندي بالجدول حقل للتاريخ و حقل لتوقيت البداية و توقيت نهاية الموعد.اريد عندما اضغط على زر الامر يقوم بفحص الحجدول بحيث لا يمكن اختيار نفس التاريخ و نفس توقيت البداية و النهاية .يعني لما يكون التاريخ و التوقيت به حجز لا يمكن لي الحجز بنفس الموعد و نفس التوقيت ما عرفت كيف اضبط هذا الجزء بارك الله فيكم
كود :
   If Dt = Dr.Item(0) And Time_Begin >= Real_Begin Then


الملفات المرفقة
.rar   Checkdateandhour.rar (الحجم : 95.95 ك ب / التحميلات : 9)
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم العيدروس
اعتقد ان المواعيد المحجوزة مسجلة في جدول وهنا سنبحث عنها
لكن انتبه للداتا تابل التي تجلب كل البيانات يجب ان تكون معرفة على مستوى الكلاس لتكون مرئية في حدث التحقق حتى نبحث في صفوفها
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       For i As Integer = 0 To dt.Rows.Count - 1
           If CDate(dt.Rows(i).Item("CV_BirthDay")) >= DateTimePicker1.Value Then
               MsgBox("هذا الموعد محجوز")
           End If
       Next

   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: العيدروس
#3
أشكرك جزيل الشكر أخ ابراهيم .الفكرة هي صالة أفراح .. العقبى لنا جميعا و يا رب يجعل أيامنا و ليالينا كلها أفراح ان شاء الله و يتم حجز المواعد .. يعني الحجز بالساعات و ادخل توقيت البداية و توقيت النهاية بالداتتيمر بيكر 1 للبداية و الداتبيكر 2 لتوقيت النهاية اريد لو اجي اعمل حجز في هذا التوقيت بين داتبيكر 1 و 2 تظهرلي رسالة بارك الله فيك اخي
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
اخي الكريم العيدروس
لسا بحاجة الى موعد البداية يكفي موعد النهاية للمقارنة به مع DateTimePecker
اختر الموعد منها وقم بالتحقق عبر حلقة فور على حقل المواعيد 
الا اذا كان لديك فجوات في المواعيد هذه الان خطرت في بالي هنا تحتاج الى 2 DateTimePicker
واحد للبداية والاخر للنهاية
كود :
For i As Integer = 0 To dt.Rows.Count - 1
           If CDate(dt.Rows(i).Item("CV_Day")) >= DateTimePicker1.Value And CDate(dt.Rows(i).Item("CV_Day")) <= DateTimePicker2.Valueand Then
               MsgBox("هذا الموعد محجوز")
           End If
       Next
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: العيدروس , العيدروس
#5
الله يجبر بخاطرك اخ ابراهيم المحترم مشى الحال بفضل الله ثم فضلك اشكرك جزيل الشكر و بارك الله فيك و انعم عليك
الرد
تم الشكر بواسطة:



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


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