「変数にフォームからの入力値は入るのですが２。」

質問

「変数にフォームからの入力値は入るのですが２。」
VBA初心者です。
以前のご回答ありがとうございます。

（１）．画面を開き、条件を設定する。
　　　　→初期値設定ぐらいしかやっていません。
（２）．レポートをデザインビューにし、レコードソースの所でクエリビルダを起動。
（３）．クエリビルダでデータシートビューを開く
　　　　→クエリビルダまで行けるのですが、データシートビューを開くがありません。
（４）．データシートビューに#Errorの欄があるようなら、クエリの
　　　　該当部分がオカシイので、クエリのSQLを提示してください。　
　　　　（クエリビルダで、SQLビューを開くと表示される）
　　　　データシートビューが正常に表示されている場合は問題の
　　　　テキストボックスのコントロールソースを提示してください。
　　　　→データベースのクエリを見てもクエリは無いようです。
　　　　　データシートビューは（レポート？）＃Ｅｒｒｏｒで表示されています。
※．他の方が作られたものを修正している為、いまいち把握できていません。

Private Sub 印刷_Click()
On Error GoTo Err_印刷_Click

'*** 変数の宣言
Dim tuki As String
Dim mais As Integer
Dim denp As Integer
Dim busu As Integer
Dim joge As String
Dim kmsg As String

'*** 変数に入力値をセット
mais = 0
delt = Forms!メイン画面![リストDELTUKI]
joge = Forms!メイン画面![リストJYOGEDAN]
tuki = Forms!メイン画面![リストTUKI]
denp = Forms!メイン画面![テキストSBAN]
busu = Forms!メイン画面![テキストEBAN]

'*** 消し月と印刷月重複不可チェック
If delt = tuki Then
GoTo Err_印刷月_Click
End If

'*** 上段・下段使用と対象月から使用レポートを判定
Dim 月 As Long
月 = Val(tuki)

If (joge = "上段" Or joge = "下段") & (月 >= 1 & 月 <= 12) Then
stdocname = "レポート" & Format(月, "00") & Left(joge, 1)
Else
stdocname = "レポート原稿"
End If

kmsg = MsgBox(joge & tuki & stdocname)

'*** stdocname(判定で指定されたレポート)を仮に開く
DoCmd.OpenReport stdocname, acViewPreview

'*** レポートのセット
Set repo = Reports(stdocname)

上記、「型が一致しません」となってしまいました。

お分かりになる方でおみえならご教授下さい。

回答No.1

nda23 · ベストアンサー

>データシートビューを開く
クエリビルダのメニューバー「表示(V)」の中に
「データシートビュー(S)」があるので、これを
クリックします。
因みにSQLビューも同メニューバー内にあります。

>「型が一致しません」
stdocnameのデータ型、repoのデータ型の
どちらかがおかしいのですが、99%後者です。
Dim repo As Reports になってませんか？

お礼

分かりにくい説明で申し訳ありません。

補足

>データシートビューを開く
クエリビルダのメニューバー「表示(V)」の中に
「データシートビュー(S)」があるので、これを
クリックします。
因みにSQLビューも同メニューバー内にあります。
→データシートビューを開いても何もないのですが・・・。
　見ているところが悪いのでしょうか？。
　レポートをデザインビューで開いて左上の■からメニューが開けますが・・・。

>「型が一致しません」
stdocnameのデータ型、repoのデータ型の
どちらかがおかしいのですが、99%後者です。
Dim repo As Reports になってませんか？
→Dim repo As Reportsになっています。

Option Explicit

'共通変数の宣言
Dim stdocname As String
Dim repo As Report
Dim delt As String
Dim kmsg As String
Dim app As Object