اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليم

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

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

حقل اسمه تاريخ بداية الحجز واختار فيه تاريخ 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