こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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 "T_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



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

投稿日時 - 2003-06-19 12:03:18

QNo.579311

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。maruru01です。

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

×
rs.Open "T_1", cn, adOpenStatic,LockOptimistic


rs.Open "T_1", cn, adOpenStatic,adLockOptimistic

第4引数(locktype)が違います。

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

投稿日時 - 2003-06-19 13:20:51

補足

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

投稿日時 - 2003-06-19 13:24:16

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

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

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

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

投稿日時 - 2003-06-19 16:24:59

補足

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

投稿日時 - 2003-06-20 11:50:04

ANo.2

こんにちは。

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

とすべきところが、

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

になっちゃってます。

投稿日時 - 2003-06-19 14:45:15

補足

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

投稿日時 - 2003-06-19 15:47:20

あなたにオススメの質問