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 رابط هذا التعليق شارك More sharing options...
Bluemind قام بنشر مايو 5, 2010 مشاركة قام بنشر مايو 5, 2010 ارفق مثالك رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان