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

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

قام بنشر (معدل)

السلام عليكم

كتبت دالة IF كالتالي لكن لا ادري لماذا يوجد خطأ END IF WITHOUT BLOCK IF

Private Sub endate_AfterUpdate()
Dim X, Z As Integer
X = #1/1/2018#
Z = #12/31/2018#
If Me.endate >= X And Me.endate <= Z Then MsgBox ("التاريخ يجب ان يكون خلال عام2018")
endate = Date
End If
Refresh
End Sub

 

 

تم تعديل بواسطه يوسف السيد
قام بنشر (معدل)

السلام عليكم

 

بعد اذنك اخي العزيز ابو ياسين

اخي العزيز يوسف

هناك اخطاء واضحة في الكود وهي 

المتغيرين من المفترض ان يكونا من النوع Date  و ليس integer

جملة if تم اغلاقها بالجملة End If  مع انها لا تحتاج الى اغلاق لأن جواب الشرط موجود في نفس السطر

 

بالتوفيق

تم تعديل بواسطه يوسف أحمد
  • Like 2
قام بنشر (معدل)

تفضل استاذ ابو ياسين

123.accdb

بدون عنوان.png

 

 

فعلا استاذ يوسف عندما غيرت المتغيرين الي DATE
وازلت ENDIF الكود يعمل بصورة صحيحية عدا انه لايظهر الرسالة

تم تعديل بواسطه يوسف السيد
  • Like 1
قام بنشر
7 minutes ago, يوسف السيد said:

تفضل استاذ ابو ياسين

123.accdb

بدون عنوان.png

استأذن من الجماعة
اتفضل اخي يوسف
الكود صار هكذ
 

Private Sub endate_AfterUpdate()
    Dim X, Z As Date
        X = #1/1/2018#
        Z = #12/31/2018#
    If Me.endate > X Or Me.endate < Z Then
            MsgBox ("التاريخ يجب ان يكون خلال عام2018")
            endate = Date
    End If
        Refresh
End Sub

 

123 (1).accdb

  • Like 3
قام بنشر
4 minutes ago, يوسف السيد said:

واعذرني لكثرة الطلبات فانا ما زلت مبتدأ

استغفر الله
نحن بخدمتكم

  • Like 1
  • 2 weeks later...
قام بنشر

الاخ يوسف السيد..انا مبتدئ جدا في الاكسس واحاول الاستفادة من اساتذة الموقع

لكنك اردت حصر التاريخ فقط في 2018 واظن ان الصحيح

If Me.endate < X Or Me.endate > Z Then

MsgBox ("التاريخ يجب ان يكون خلال عام2018")

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information