Accessでメッセージを表示しきれない。

質問

Accessでメッセージボックスを表示しています。
クエリのリストが、多いとメッセージを表示仕切れません。
改善策を探しています。

Access2000を使用
モジュールの記述は下記の内容です。

Public Function koukiMessage()
Call kouki
End Function

Sub kouki()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("受注管理 完了工期－Check")

Do Until rs.EOF
varRet = "No." & rs!業務番号 & Chr(9) & Format(rs!業務完了, "gggee\年mm\月dd\日") & Chr(9) & "残工期 " & rs!残工期 & "日" & " ：" & rs!業務名
StrMsg = StrMsg & vbNewLine & varRet
rs.MoveNext
Loop
If varRet <> "" Then
MsgBox "業務の完了工期が１ヶ月以内になりました。" & vbNewLine & StrMsg, 48, "完了工期の確認です。"
Else: Close
End If

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub

回答No.1

BellBell · ベストアンサー

表示させたいのは起動時か何かで、『期限が迫っていますよ』的なアラートですかね？

メッセージボックスではなくて、工期確認フォームを作ってはいかがでしょうか？
たぶん、現在でも『工期一覧』のようなフォームがあるでしょうから、そのリストを表示する際に期限の近い順に並べるのをデフォルトにして、一カ月を切ったら背景色を赤にするとか。

起動時に、操作メニューのようなものを表示しているなら、その中に『○件の工期が一カ月を切っています』という表示があって、クリックすると先の『工期一覧』フォームを表示するとか。
もっと確認を強制したいなら、『○件の工期が一カ月を切っています』とメッセージボックスを出して、OKを押せば強制的にその『工期一覧』フォームを表示するとか。

お礼

ありがとうございます。
一覧表をフォームで表示する方法で、やってみます。