تصحيح في دالة IF

[يوسف السيد]

السلام عليكم

كتبت دالة 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

 

 

تم تعديل فبراير 19, 2018 بواسطه يوسف السيد

[ابو ياسين المشولي]

اخي ارفق مثال 

واشرح المطلوب  كل واحد وله طريقه

حتى تستفيد من طرق اخرى

[يوسف أحمد]

السلام عليكم

 

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

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

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

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

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

 

بالتوفيق

تم تعديل فبراير 19, 2018 بواسطه يوسف أحمد

[يوسف السيد]

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

123.accdb

 

 

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

تم تعديل فبراير 19, 2018 بواسطه يوسف السيد

[Shivan Rekany]

7 minutes ago, يوسف السيد said:

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

123.accdb

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

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

[يوسف السيد]

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

[Shivan Rekany]

4 minutes ago, يوسف السيد said:

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

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

[qassim-t]

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

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

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

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