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


الملفات المرفقة
.rar   Checkdateandhour.rar (الحجم : 95.95 ك ب / التحميلات : 16)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#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
الله يجبر بخاطرك اخ ابراهيم المحترم مشى الحال بفضل الله ثم فضلك اشكرك جزيل الشكر و بارك الله فيك و انعم عليك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التاريخ في sqlite محمد بن عطية 0 38 04-12-22, 06:01 PM
آخر رد: محمد بن عطية
Rainbow [كود] مشكله ظهور رساله خطا قابل للتثبيت ISAM تعذر العثور على محمد مسافر 0 62 29-11-22, 03:11 AM
آخر رد: محمد مسافر
  كيفية اظهار رسالة داخل الفيجوال بيزيك واختفائها تلقائياَ بعد فترة ابو نور الهدى 3 1,043 23-11-22, 11:29 PM
آخر رد: Mostafa201255411
  [VB.NET] السلام عليكم من فضلكم ما هذا الخطأ علما أنني أستعمل الدالة format لتغيير شكل التاريخ Aminsoft 0 78 21-11-22, 01:15 PM
آخر رد: Aminsoft
  ظهور جدول DATATABLE ali_ahmed12 1 202 27-10-22, 10:36 PM
آخر رد: قناص المدينة
  [سؤال] عدم ظهور البيانات نهى علي 11 818 06-09-22, 10:25 PM
آخر رد: رضوان الجماعي
  رسالة الخطا um_noor20 2 271 22-08-22, 01:55 PM
آخر رد: أبو خالد الشكري
  [سؤال] عندي مشكلة رسالة موقفة المشروع تماما عمور2016 3 345 13-08-22, 02:25 PM
آخر رد: عمور2016
  ارجو حل رسالة خطأ crazykinko 8 525 19-07-22, 04:53 PM
آخر رد: crazykinko
  ما هو سبب ظهور هذه الرسالة dr.programming 2 459 11-07-22, 12:53 AM
آخر رد: asemshahen5

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


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