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

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

قام بنشر

السلام عليم

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information