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

[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

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

تم تعديل مايو 5, 2010 بواسطه alcasir

[Bluemind]

ارفق مثالك

[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