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

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

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

السلام عليكم

اريد رد سريع لو تكرمتو

هل هذا الكود صحيح او لا

Private Sub command1_Click()

If P <= 10 Then

Dim stLinkCriteria As String

stLinkCriteria = "[id] =" & Me![id ]

DoCmd.OpenReport "a", acPreview, , stLinkCriteria

else

stLinkCriteria = "[id ] =" & Me![id ]

DoCmd.OpenReport "b", acPreview, , stLinkCriteria

DoCmd.OpenReport "c", acPreview, , stLinkCriteria

End If

End Sub

وشرح هذا الكود كالاتي

اذا كانت عدد السجلات اقل من او يساوي 10 اريده يفتح لي التقرير a

واذا كانت غير ذلك اريد يفتح لي التقريين b,c

بس اوقات تصير لي لخبطة فمثل عندما تكون السجلات اكثر من 10 يفتح لي التقرير a

والمفترض ان يفتح لي التقريرين b, c

ارجو الافادة العاجلة

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

اخئ الفاضل مشرف المنتدي

شكرا للرد وان شاء الله سوف يتم مراعات الخطوات في مشاركأتي القادمه في هذا المنتدى المتميز

أود الابلاغ بأني قد وجدت الخطأ بالكود

واإلكود الصحيح هو كالاتي

مع خالص شكري لك وللأعضاء المحترمين

Private Sub command1_Click()

Dim stlinkcriteria as strink

If P <= 10 Then

stLinkCriteria = "[id] =" & Me![id ]

DoCmd.OpenReport "a", acPreview, ,

stLinkCriteria

else

stLinkCriteria = "[id ] =" & Me![id ]

DoCmd.OpenReport "b", acPreview, ,

stLinkCriteria

DoCmd.OpenReport "c", acPreview, ,

stLinkCriteria

End If

En

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