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