alsihran قام بنشر يناير 25, 2006 قام بنشر يناير 25, 2006 لدي زر امر فتح نموذج فرعي مرتبط اريد عند عدم وجود بيانات بالنموذج الفرعي ان تطلع رساله بعدم وجود بيانات لعرضها تحياتي
بو يوسف الراشد قام بنشر يناير 25, 2006 قام بنشر يناير 25, 2006 باستخدم الدالة Dcount ومع وضع شرط في حال عدم وجود سجلات تستطيع منع فتح النموذج حيث أن الدالة تقوم بحساب عدد السجلات
alsihran قام بنشر يناير 26, 2006 الكاتب قام بنشر يناير 26, 2006 الف شكر على ردك اخ ابو يوسف وياريت مثال او وضع الكود وشكراً مره ثانيه
rudwan قام بنشر يناير 29, 2006 قام بنشر يناير 29, 2006 (معدل) جرب أن تضع هذا الكود في حدث زر الأمر With Me![SubformName].Form if not(.RecordsetClone.RecordCount > 0) then msgbox " SubForm Hs No Records " exit sub else - أكتب هنا تعليمة فتح النموذج الفرعي end if End With و اخبرني بالنتيجه تم تعديل يناير 29, 2006 بواسطه rudwan
alsihran قام بنشر يناير 29, 2006 الكاتب قام بنشر يناير 29, 2006 الاخ رضوان شكرالك وضع الكود بهذه الطريقه وعند ضغط زر امر تأتي الرساله التي نصها بالاسفل ولايفتح النموذج الفرعي مع العلم هناك سجلات تحياتي Private Sub أمر193_Click() On Error GoTo Err_أمر193_Click With Me![أمر193].Form If Not (.RecordsetClone.RecordCount > 0) Then MsgBox " SubForm Hs No Records " Exit Sub Else Dim stDocName As String Dim stLinkCriteria As String stDocName = "copy_ex1" stLinkCriteria = "[ex_no]=" & Me![ex_no] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر193_Click: Exit Sub Err_أمر193_Click: MsgBox Err.Description Resume Exit_أمر193_Click End If End With End Sub عفواً لم اتمكن من ارفاق الصوره هذا نص الرساله object doesn'tsupport this property or method موافق
rudwan قام بنشر يناير 31, 2006 قام بنشر يناير 31, 2006 (معدل) توضيح السؤال نصف الاجابة أنت قلت لديك نموذج فرعي , و واذح من كود فتح نموذجك أنه كود فتح نموذج آخر مرتبط بالنموذج الأصلي عبر حقل معين لذلك لن يصلح معك الكود الذي أعطيته لك و انما استخدم كود بويوسف الراشد Private Sub _ Click On Error GoTo Err_أمر193_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "copy_ex1" stLinkCriteria = "[ex_no]=" & Me![ex_no] if ( dcount("MyField","MyTable","[ex_no]=" & Me![ex_no ] >0)) then DoCmd.OpenForm stDocName, , , stLinkCriteria else MsgBox " SubForm Hs No Records " end if Exit_أمر193_Click: Exit Sub Err_أمر193_Click: MsgBox Err.Description Resume Exit_أمر193_Click End Sub تم تعديل يناير 31, 2006 بواسطه rudwan
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.