alcasir قام بنشر مايو 5, 2010 قام بنشر مايو 5, 2010 (معدل) السلام عليكم اريد رد سريع لو تكرمتو هل هذا الكود صحيح او لا 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
alcasir قام بنشر مايو 6, 2010 الكاتب قام بنشر مايو 6, 2010 اخئ الفاضل مشرف المنتدي شكرا للرد وان شاء الله سوف يتم مراعات الخطوات في مشاركأتي القادمه في هذا المنتدى المتميز أود الابلاغ بأني قد وجدت الخطأ بالكود واإلكود الصحيح هو كالاتي مع خالص شكري لك وللأعضاء المحترمين 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.