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

عاجل جدا لو سمحتوا...ممكن التحقق من صحة هذا الكود؟؟؟؟


alcasir

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

السلام عليكم

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information