Accessオプショングループで用紙選択

質問

お世話になります
オプショングループで用紙選択を行いたいのですが

○平日 1
○夜 2
○深夜 3
上記のように設定します

たとえば平日を選択されたら平日用の用紙をプレビュさせたいのですが。
ご教授願います

回答No.1

noname#140971 · ベストアンサー

Private Sub フレーム0_AfterUpdate()
On Error Resume Next
　　DoCmd.OpenReport CutStr("Report1/Report2/Report3", "/", Me.フレーム0), acPreview
End Sub

レポートを３種類用意しておけば、このように簡単にプレビューできます。
次のようなCutStr関数を用いない場合は、If Then Else文を使えば良いと思います。

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　 ByVal Separator As String, _
　　　　　　　　　　　 ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function

お礼

できました。
まことにありがとうございました
ちょいあせってテンパリきみでした。m(__)m

補足

お返事ありがとうございます
言葉足らずで申し訳ないです

平日
休日
深夜
上記を選んでボタンで表示、または印刷が理想です
いまいちどご教授願います

回答No.2

Masa2072

とりあえずANo1のHusky2007氏が回答してくれた内容を確認しましょう。
確かにボタンを押したら、というアクションではないものの、それ以外はそのまんま通用する内容ですよ。

まずはソースをヘルプ等で確認してから分からないことを再度質問されたほうがよさそうです。
じゃなきゃほんとに丸投げですから・・・

ヒントはイベント クリック時

お礼

いけました。
一押しありがとうございます

補足

お返事ありがとうございます
放置されてしまってもう終わってしまったと諦めかけてました。

更新後処理だとおもっていました。
ちょいチャレンジしてみます