عند اضافة رقم id وترك النموذج الفرعي فارغ ( عدم تسجيل اي بيانات فيه ) ثم الانتقال الى سجل جديد في النموذج الرئيسي تظهر لي رسالة بان النموذج الفرعي فارغ لا توجد به بيانات للسجل السابق ومن ثم حذف السجل السابق من الجدول الذي ليس به بيانات في النموذج الفرعي .
[ تمت الإجابة ]اظهار رسالة بعدم وجود بيانات في النموذج الفرعي
تفضل اخى استخدم هذا الكود
If Me.child.Form.Recordset.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else MsgBox "لا يوجد سجلات" End If
mrnooo2000 كتب:تفضل اخى استخدم هذا الكود
If Me.child.Form.Recordset.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else MsgBox "لا يوجد سجلات" End If
اين اكتب هذا الكود اخي العزيز
فى حدث عند الضغط لزر الاضافة ( او سجل جديد)
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 30 يوليو 2010 في 21:05
استخدم هذا الكود
If Not Me.NewRecord Then
If DCount("no", "tab2", "isnull([nam]) and [no]=" & Me.no & "") > 0 Then
MsgBox " يوجد سجلات خالية و سيتم الغائها "
DoCmd.SetWarnings False
DoCmd.RunSQL "delete tab2.* from tab2 WHERE (((tab2.nam) Is Null) AND ((tab2.[no])=" & Me.no & "));"
Me.Requery
DoCmd.SetWarnings True
End If
End If
DoCmd.GoToRecord , , acNewRecتم تعديل هذه المشاركة بواسطة mrnooo2000 في 31 يوليو 2010 في 19:11
جزاكم الله خيرا
تمت الاجابة