اذا لم تخطط للنجاح , فقد خططت للفشل
رجاء إعطائي مثال مفصل بالارقام ، حيث اني لم افهم المطلوب :(
جعفر
عزيزى الاخ / جعفر
توصلت للكود التالى ونجح و اشكرك على الاهتمام
اذا لم تخطط للنجاح , فقد خططت للفشل
عمل جميل :)
واذا سمحت لي ان اغير الشئ البسيط في معادلتك:
Private Sub NUMB_SUB_BeforeUpdate(Cancel As Integer)
On Error Resume Next
a = DLookup("[iD_GROUP]", "GROUP", "[NUMB_GROUP]=" & Me.NUMB_GROUP & " AND [NUMB_SUB]=" & Me.NUMB_SUB)
If IsNull(a) = False Then
MsgBox " ÚÐÑÇ ÓÈÞ ÊßÑÇÑ ÑÞã ÇáßæÏ !!!!! ÓíÊã ÇáÛÇÁ ÇáÊÓÌíá ", , "N~O'C,a'E' E^I'?i'N~ "
DoCmd.CancelEvent
Me.Undo
Me.NUMB_GROUP.SetFocus
End If
End Sub
جعفر
jjafferr كتب:عمل جميل :)
واذا سمحت لي ان اغير الشئ البسيط في معادلتك:
Private Sub NUMB_SUB_BeforeUpdate(Cancel As Integer)
On Error Resume Next
a = DLookup("[iD_GROUP]", "GROUP", "[NUMB_GROUP]=" & Me.NUMB_GROUP & " AND [NUMB_SUB]=" & Me.NUMB_SUB)
If IsNull(a) = False Then
MsgBox " ÚÐÑÇ ÓÈÞ ÊßÑÇÑ ÑÞã ÇáßæÏ !!!!! ÓíÊã ÇáÛÇÁ ÇáÊÓÌíá ", , "N~O'C,a'E' E^I'?i'N~ "
DoCmd.CancelEvent
Me.Undo
Me.NUMB_GROUP.SetFocus
End If
End Sub
جعفر
الاخ العزيز جعفر
اشكرك على الاضافة
و الحقيقة انها اجمل و اسهل و اروع اشكرك
اذا لم تخطط للنجاح , فقد خططت للفشل
:)
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…