اخي الكريم ، تم تصحيح الكود
Private Sub kind_Res_AfterUpdate()
If IsNull(DLookup("[txtdatay]", "Valueco", "[txtdatay] = '" & Me.kind_Res & "'")) Then
MsgBox "تعبير غير صحيح", , ""
End If
End Sub
لعدم توافر جهاز كمبيوتر في الوقت الحالي ، راجع هذا الفيديو قد يفيدك ، وحاولت استخدام خاصية البحث في المنتدى فستجد الكثير من المواضيع حول هذه النقطة.
وهذه بعض المواضيع التي تتحدث عن نفس طلبك في منتدانا 😊 .
الموضوع الأول
الموضوع الثاني
أستاذي ومعلمي @عمر ضاحى ، مداخلة
Private Sub kind_Res_BeforeUpdate(Cancel As Integer)
If Me.kind_Res <> DLookup("[txtdatay]", "[Valueco]", "[txtdatay]='" & Me.kind_Res & "'") Then
MsgBox "تعبير غير صحيح"
Cancel = True
End If
End Sub
جرب هذا التعديل
بداية هل النسخة التجريبية قاعدة بيانات آكسيس ؟؟
وارسل النسخة التجريبية التي تتحدث عنها لتجربتها إن كانت هناك آلية لتعديلها ، مع العلم أن هناك بالمنتدى نسخة محدثة من الأخ والاستاذ @Moosak تجدها في هذا الرابط