アクセスのコードについて２

質問

アクセス２０００で、以下のようなコードを記述して、case_noのデータをファイル名としたhtmlファイルを、d:\data\のフォルダに出力するようにしています。
Open "d:\data\" & Me!case_no & ".htm" For Output As #1
　出力先のフォルダを各レコード毎ではなく、全体として任意に設定できるようにしたいと思い、フォルダ名を入力可能な管理テーブルを別途作成しました。
　この別に作成した管理テーブルのデータを、コード内で参照したいのですが、うまくいきません。どのようにすればよいのでしょうか？

回答No.1

ARC

えっと、フォルダ名が格納されたテーブルがあって、そのテーブルからデータを取り出したい、ってことでいいのでしょうか？

「管理テーブル」テーブルに「フォルダ名」フィールドがあって、その１レコード目のデータを取り出すには、以下のようにします。

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim strFolderName As String

Set con = Application.CurrentProject.Connection
strSQL = "SELECT * FROM [管理テーブル];"
Set rs = New ADODB.Recordset
rs.Open strSQL, con, adOpenKeyset

strFolderName = rs![フォルダ名]
MsgBox strFolderName