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



以上のように記述しコマンドボタンを押すと「メソッドまたはデータメンバが見つかりません」とエラーメッセージがでます。これはどういうことなのでしょうか？宜しくお願いいたします。

No.3 回答者： happypoint 回答日時： 2003/06/19 16:24

>SQLステートメントが正しくありません

>rs.Open "Ｔ-NTT",cn,dOpenStatic,adLockOptimistic

T-NTTというのはクエリですか？
SQLの内容も、T-NTTについても言及されていないので、
なんともいえないのですが。

文字通り、T-NTTのSQL文の内容が間違っているのではないですか？
チェックされました？

この回答への補足

お返事ありがとうございます。
T-NTTはテーブルです。
なぜこのようなメッセージがでるか分からないです。。

補足日時：2003/06/20 11:50

No.2 回答者： happypoint 回答日時： 2003/06/19 14:45

こんにちは。

　Me.ビル名 = rs![ビル名]
　Me.電話番号 = rs![電話番号]

とすべきところが、

　Me.ビル名 = rs.ビル名
　Me.電話番号 = rs.電話番号

になっちゃってます。

この回答への補足

ありがとうございます。言われた通りやってみたところ
今度はSQLステートメントが正しくありませんとエラーメッセージがでています。デバックで戻ると
rs.Open "Ｔ-NTT", cn,dOpenStatic,adLockOptimistic
の部分が選択されていますＴＴ

補足日時：2003/06/19 15:47

No.1 ベストアンサー 回答者： maruru01 回答日時： 2003/06/19 13:20

こんにちは。

maruru01です。

実際のコードが質問欄の通りなら、以下のところが入力ミスになっていると思います。

×
rs.Open "Ｔ_1", cn, adOpenStatic,LockOptimistic

○
rs.Open "Ｔ_1", cn, adOpenStatic,adLockOptimistic

第4引数（locktype）が違います。

これ以外は間違いはないと思いますが・・・

この回答への補足

お返事ありがとうございます。質問する際に間違えました。ちゃんとadLockOptimisticにしています（ＴＴ）

補足日時：2003/06/19 13:24