ممتاز اخي صلاح هذا المطلوب
....لاكن كيف الطريقه هل ماكرو ام كود
حسب ما رايت انك عملت حساب لعدد السجلات الموجودين في النموذج الفرعي
فاذا كانت القيمه صفر تجي الرساله واذا كانت معبئه فالامور في السليم
ولاكن اين وضعت هذا الكود
If Me.tob = 0 Then
MsgBox "ÇÏÎá ÑÞã ÇáÓÇÆÞ", vbCritical, "ÕáÇÍ ÌÈÑ"
Me.Child12.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If
لم اري حدثا في خصائص الحقول او النماذج
جزيت خيرا