اجرای گزارش با استفاده از option bottun

[mehdigholami]

با سلام خدمت دوستان
در برنامه ای که به پیوست ارائه شده است من میخواهم با کلیک روی اجرای گزارش در صورتی که گزارش یک انتخاب شده باشد گزارش یک و در صورتی که گزارش دو انتخاب شده باشد گزارش دو اجرا شود
قبلا از همکاری شما سپاسگذارم

[syasamboo3]

با سلام. میتونید از این دستور توی رویداد کلیک کلیدتون استفاده کنید

If option1.Value = True Then
DoCmd.OpenReport "report1", acViewReport, , , acWindowNormal
ElseIf option2.Value = True Then
DoCmd.OpenReport "report2", acViewReport, , , acWindowNormal
End If

[mehdigholami]

با سلام. میتونید از این دستور توی رویداد کلیک کلیدتون استفاده کنید

If option1.Value = True Then
DoCmd.OpenReport "report1", acViewReport, , , acWindowNormal
ElseIf option2.Value = True Then
DoCmd.OpenReport "report2", acViewReport, , , acWindowNormal
End If
با تشکر از شما
اما وقتی من این کد رو وارد میکنم ارور میده چون این کد برای حالتی نوشته شده که آپشن بوتونها جدا از هم هستند ولی وقتی که آپشن بوتونها یک مجموعه واحد هستند ( از option group استفاده کنیم )این کد جوابگو نیست
اگه براتون ممکنه فایل رو برام اصلاح کنید تا جواب رو توی فایل ببینم
بازهم ممنون

[mehdigholami]

دوستان عزيز
پاسخي نيافتيد؟

[syasamboo3]

سلام.ببخشید بابت تاخیر. کدی که نوشتم درست کار میکرد.ولی متاسفانه فایلش رو پاک کردم.باز که مینویسم ارور میده.نمیدونم دردش چیه.بگذریم.
یه راه ساده و کم دردسر.کارت رو هم راه میندازه:
روی فرمت یه لیبل بزار از دید کاربر مخفیش کن.
برای option اولت کد زیر رو بنویس

Private Sub Option3_GotFocus()
Label7.Caption = Option3.OptionValue
End Sub
برای option دومت هم کد زیر رو بنویس

Private Sub Option5_GotFocus()
Label7.Caption = Option5.OptionValue
End Sub

برای کلیدت هم این کدرو بنویس

Private Sub Command8_Click()
Select Case Label7.Caption
Case "1"
DoCmd.OpenReport "Report1", acViewPreview, , , acWindowNormal
Case "2"
DoCmd.OpenReport "Report2", acViewPreview, , , acWindowNormal
End Select
End Sub
اسم آبجکتها رو بسته به فایلت عوض کن چون اینا اسامی اشیا توی فایل من هستن.
فک کنم راحت تر این نشه.البته با ایرادهایی که داشتیم

[mehdigholami]

سپاس جناب syasamboo3 (http://barnamenevis.org/member.php?264002-mehdigholami)

[syasamboo3]

انجام وظیفه بود.اشاالله که مشکلتون حل شده باشه

[meytiu]

با تشکر از syasamboo3 عزیز
فایل شما اصلاح شد دوست عزیز

[mehdigholami]

از شما هم ممنونم جناب meytiu (http://barnamenevis.org/member.php?166055-meytiu) راه حل شما ساده تر است

[syasamboo3]

عالی بود جناب meytiu و قطعا ساده تر