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.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

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

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

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

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

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

補足

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

回答No.3

happypoint

>SQLステートメントが正しくありません
>rs.Open "Ｔ-NTT",cn,dOpenStatic,adLockOptimistic

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

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

補足

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

回答No.2

happypoint

こんにちは。

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

とすべきところが、

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

になっちゃってます。

補足

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