■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#539-0Form LoadでSetステートメントは使えないの?イマズミン1999-08-02(月) 14:13
     #541-0RE#539:Form LoadでSetステートメントは使えないの?ゆう(U)1999-08-02(月) 15:34
#539-0
Form LoadでSetステートメントは使えないの?
どーも。続けて投稿です。
Form LoadでACCESSデータベースのレコードを読み込もうとしているのですが、エラーがでてしまいます。
ソースは以下の通りなんですが、エラーNo91オブジェクト変数または With ブロック変数が設定されて
いません。が表示されます。ヘルプを見ても良く分かりません。

Private Sub Form_Load()

Dim db As Database
Dim rst As Recordset

Set db = Data1.Database
Set rst = db.OpenRecordset("テーブル名")    'ここでエラーが出てしまいます。
Label1 = rst("フィールド名")

というソースで、読み込んだテーブルの一件目をラベルに表示させようとしています。
ここがおかしいとか、こうゆう方法があるなどありましたら、よろしくお願いします。
#541-0
RE#539:Form LoadでSetステートメントは使えないの?
> ソースは以下の通りなんですが、エラーNo91オブジェクト変数または With ブロック変数が設定されて
> いません。が表示されます。ヘルプを見ても良く分かりません。
> :
> Private Sub Form_Load()
> 
> Dim db As Database
> Dim rst As Recordset
> 
> Set db = Data1.Database
> Set rst = db.OpenRecordset("テーブル名")    'ここでエラーが出てしまいます。
> Label1 = rst("フィールド名")
Dataコントロールは、何も(Refresh)しないとLoadイベント終了後に
データベース接続、レコードセット取得を行います。

ですからこの場合、まだデータベースのオブジェクトが出来ていないので
そのデータベースを使用してOpenrecordsetをしても結果は得られない!
って所でしょう。

※デザイン時に設定した、データベース名・レコードソースをLoadイベント
 内で参照するには、まずRefreshをしてからにして下さい
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)