ACCESSでステータスバーにインジケータを表示する方法
★T_1 ・・・ビル名,電話番号
T_1テーブルに登録されてあるすべてのレコードにアクセス
し、その間、インジケータを表示させたいと思っています。・・・が上手くいきませんTT
手順があっているかご指導宜しくお願いいたします。
(1)フォームを作成して非連結のテキストボックスを2つ作りました。(テキストボックス名→ビル名,電話番号にしました)さらにコマンドボタン(調査)を一つ作りました。
(2)コマンドボタンに以下のVBAを記述しました。
Private Sub 調査_Click()
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnt As Integer
Dim i As Integer
Dim j As Long
Set cn = CurrentProject.Connection
rs.Open "Ｔ_1", cn, adOpenStatic,LockOptimistic
cnt = rs.RecordCount
SysCmd acSysCmdInitMeter, "処理中です・・・", cnt
For i = 0 To cnt - 1
Me.ビル名 = rs.ビル名
Me.電話番号 = rs.電話番号
Me.Repaint
SysCmd acSysCmdUpdateMeter, i
rs.MoveNext
For j = 0 To 1000000
Next j
Next i
SysCmd acSysCmdRemoveMeter
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
以上のように記述しコマンドボタンを押すと「メソッドまたはデータメンバが見つかりません」とエラーメッセージがでます。これはどういうことなのでしょうか？宜しくお願いいたします。
お礼
早速ありがとうございました。