المساعده في عدم فتح نموذج اذا لم يكن به بيانات

[alsihran]

لدي زر امر فتح نموذج فرعي مرتبط

اريد عند عدم وجود بيانات بالنموذج الفرعي ان تطلع رساله بعدم وجود بيانات لعرضها

تحياتي

[بو يوسف الراشد]

باستخدم الدالة Dcount ومع وضع شرط في حال عدم وجود سجلات تستطيع منع فتح النموذج

حيث أن الدالة تقوم بحساب عدد السجلات

[alsihran]

الف شكر على ردك اخ ابو يوسف

وياريت مثال او وضع الكود

وشكراً مره ثانيه

[alsihran]

مازلت بأنتظار رد الاخ ابو يوسف

[rudwan]

جرب أن تضع هذا الكود في حدث زر الأمر

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]

الاخ رضوان شكرالك

وضع الكود بهذه الطريقه وعند ضغط زر امر تأتي الرساله التي نصها بالاسفل ولايفتح النموذج الفرعي مع العلم هناك سجلات

تحياتي

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]

توضيح السؤال نصف الاجابة

أنت قلت لديك نموذج فرعي , و واذح من كود فتح نموذجك أنه كود فتح نموذج آخر مرتبط بالنموذج الأصلي عبر حقل معين

لذلك لن يصلح معك الكود الذي أعطيته لك و انما استخدم كود بويوسف الراشد

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

[alsihran]

الاخ رضوان

الف شكر لك