投稿日 | : 2004/07/18(Sun) 22:39 |
投稿者 | : miro |
Eメール | : |
URL | : |
タイトル | : VBからAccessのコントロールを変数で指定する方法 |
webで調べたのですが、"VBから"操作する方法が見つからなかったので
ご存知の方、いらっしゃいましたらお教え願えませんでしょうか。
VBからAccessのレポートを操作して印刷するプログラムを作成しています。
レポートにラベルを貼り付けて、そのラベルに
指定した文字を表示することは実現できました。
しかし、複数のラベルを指定する必要があり
下記のようにしてみましたが
"指定した式で参照されている 'strNum' フィールドが見つかりません。"
というエラーが発生してしまいます。
コントロールの名称を変数で指定することはできないのでしょうか?
環境はWindows XP + VB6.0(SP5)です。
Private Sub Command1_Click()
Dim db_Name As String
Dim Report_Name As String
Dim strNum As String
Dim intCnt As Integer
On Error GoTo Err
db_Name = App.Path & "\DB\" & "List.mdb"
Report_Name = "List"
Set ole_Access = New Access.Application
ole_Access.OpenCurrentDatabase db_Name, False
ole_Access.DoCmd.OpenReport Report_Name, acDesign
For intCnt = 1 To 5
strNum = "lblNum" & CStr(intCnt)
ole_Access.Reports!(Report_Name)![strNum].Caption = "文字を表示" & CStr(intCnt)
Next intCnt
ole_Access.CloseCurrentDatabase
Set ole_Access = Nothing
Exit Sub
Err:
MsgBox (Err.Description)
ole_Access.CloseCurrentDatabase
Set ole_Access = Nothing
End Sub