اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليم

عندي طلب والمتمثل في

عندما اختار تاريخ بداية الحجز وتاريخ نهاية الحجز  ثم اختار سيارة  مثلا 

حقل اسمه تاريخ بداية الحجز واختار فيه تاريخ 01/01/2021 وحقل اسمه تاريخ نهاية الحجز 05/01/2021 ثم اختار من حقل نوع السيارة.

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

 

قام بنشر

وعليكم السلام 🙂

 

تفضل 🙂


    Dim mySQL As String
    
    mySQL = "[Date_From]=#" & Me.Date_From & "#"
    mySQL = mySQL & " And "
    mySQL = mySQL & "[Date_To]=#" & Me.Date_To & "#"
    mySQL = mySQL & " And "
    mySQL = mySQL & "[Car]='" & Me.Car & "'"

    If DCount("*", "TABLE_NAME", mySQL) > 0 Then
        MsgBox "تم حجز السيارة بهذا التاريخ سابقا"
        Exit Sub
    End If

 

جعفر

  • Like 2
  • Haha 1
قام بنشر

شكرا اخي جعفر دائما ترد على طلبي  

اطلب منك مثال عملي اذا امكن ليسهل الأمر علي

 

قام بنشر

اخي ناصر 🙂

انت رجاء تضع بياناتك حسب هذه الجزئية من سؤالك ، فما فيه فائدة اعطيك مثال ماله علاقة ببرنامجك 🙂

 

جعفر

  • Like 1
قام بنشر
منذ ساعه, nacer_alger said:

نفس الخطئ اخي جعفر 

انا استعمل افيس 2007

غير العبارات المكتوبة بالعربية في الرسالة في محرر الاكود الى لغة جهازك ...

قام بنشر
في ١٣‏/١‏/٢٠٢٢ at 13:48, nacer_alger said:

عندما اضغط على حفظ يظهر هذا الخطئ

 

هذه الرسالة لا علاقة لها بالكود ، وانما هي بسبب اعدادات الوندوز لديك :

 

 

جعفر

  • Like 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information