اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

تحياتي

قام بنشر

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

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

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

قام بنشر (معدل)

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

With Me![SubformName].Form
if not(.RecordsetClone.RecordCount > 0) then
msgbox "  SubForm Hs No Records "
exit sub
else
 - أكتب هنا تعليمة فتح النموذج الفرعي
end if
End With

و اخبرني بالنتيجه

تم تعديل بواسطه rudwan
قام بنشر

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

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

تحياتي

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

موافق

قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه rudwan

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information