変数にフォームからの入力値が入らない。

質問

変数にフォームからの入力値が入らない。
VBA初心者です。下記コードを書きました。
フォームからの入力値をレポート印刷しようとしています。
MSGBOXで内容を参照したところ、JOGEしか入っていませんでした。
どこが悪いのでしょうか？。
お分かりになる方でおみえならご教授下さい。

Option Explicit

'共通変数の宣言
Dim stdocname As String
Dim repo As Report
Dim delt As String
Dim kmsg As String
　　　　　　　：
　　　　　　　：
　　　　　　　：
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

'*** 上段・下段使用と対象月から使用レポートを判定
Select Case joge & tuki
Case "上段" & "1"
stdocname = "レポート01上"
Case "上段" & "2"
stdocname = "レポート02上"
Case "上段" & "3"
stdocname = "レポート03上"
　　　　　　　：
　　　　　　　：
　　　　　　　：
Case "下段" & "10"
stdocname = "レポート10下"
Case "下段" & "11"
stdocname = "レポート11下"
Case "下段" & "12"
stdocname = "レポート12下"
Case Else
stdocname = "レポート原稿"
End Select

kmsg = MsgBox(joge, tuki, stdocname)

回答No.1

nmktksk · ベストアンサー

MsgBox(joge & tuki & stdocname)

お礼

どうもありがとうございます。
質問の意図とは違っていましたが、構文ミスでした。
申し訳ありませんでした。