クエリの結果をHTMLファイルで出力するようなAccessVBAを作成しました。クエリのデータがあれば問題ないのですが、
データがない場合にエラーメッセージを出そうと考えていますが、
うまくできません。どうしたらいいのでしょうか。
よろしくおねがいします。
******************************************************
作成したVBA
******************************************************
Private Sub test_Click()
Dim fNAME As String
fNAME = "c:\test.html "
Open fNAME For Output As #
Print #, "<html>"
Print #, "<head>"
Print #, "</head>"
Print #, "<body>"
Print #, "<table>"
mySQL = "SELECT ……;"
Set myRS = CurrentDb.OpenRecordset(mySQL)
******************************************************
ここに、クエリのデータがなければ、
エラーメッセージを出そうかと考えています。
↓のようにしたらだめでした。
If mySQL <> False Then
MsgBox "入力した日付のデータはありません。"
End If
******************************************************
Do
Print #, "<tr><td>" & myRS(1).Value & "</td></tr>"
myRS.MoveNext
If myRS.EOF Then Exit Do
Loop
Print #, "</table>"
Print #, "</body>"
Print #, "</html>"
End Sub
お礼
回答ありがとうございます。 やってみたらできました。 ありがとうございました。