مساعدة في كتابة كود

[ازهر عبد العزيز]

السلام عليكم ,,,,,

اريد ان اضيف زر في النموذج الرئيسي y عند الضغط علية وكان السجل الاول في النموذج  الفرعي x  فارغا يظهر لي تنبية بذلك

تم تعديل سبتمبر 28, 2020 بواسطه ازهر عبد العزيز

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الريم

    If Nz([X].[Form]![Id], 0) = 0 then
        MsgBox "النموذج الفرعي فارغ"
    end If

تحياتي

[ازهر عبد العزيز]

استاذ محمد أبوعبدالله جزاك الله خير على هذا الكود المفيد لكن الكود لاينظر الى اول سجل بل الى موقع التركيز فلو كان  النموذج الفرعي يحوي 3 سجلات وكان التركيز على السجل الرابع وهو فارغ سيظهر لي ايضا رسالة التنبية

[محمد أبوعبدالله]

تفضل اخي الكريم جرب الكود التالي

If Me.X.Form.RecordsetClone.RecordCount = 0 Then
	MsgBox "النموذج الفرعي فارغ"
end If

تحياتي

[ازهر عبد العزيز]