Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3281 / 9994

←次へ　｜　前へ→


	【9974】Re:アクセス95から2000に移行後のエラー

timtim

- 07/11/13(火) 23:14 -


	引用なし

	パスワード

▼クロさん：
こんばんは　ご心配かけてすみません、不在でしたので
連絡が遅くなってすみません。

下のように変えると又エラーがでました。
>おはようございます　
>「参照設定」で[Microsoft DAO 3.* Object Library] を参照する。
>※3.6があれば3.6を
>
>>Private Sub Form_Open(Cancel As Integer)
>>　　Dim D_DB As Database, CTL As Recordset, TOK As Recordset
>>　　Set D_DB = DBEngine.Workspaces(0).OpenDatabase(DBNAME)
>
>ここを
>Dim D_DB As DAO.Database
>Dim CTL As DAO.Recordset
>Dim TOK As DAO.Recordset
>Set D_DB = Currentdb
>
>以下省略
>
>としてみてはどうですか？
>※Ac2000ではデフォルトでDAOが参照されていないと思います。

Private Sub Form_Open(Cancel As Integer)
　　Dim D_DB As DAO.Database
　　Dim CTL As DAO.Recordset
　　Dim TOK As DAO.Recordset
　　Set D_DB = CurrentDb

　　Set CTL = D_DB.OpenRecordset("Fコントロール")
　　　　CTL.INDEX = "主キー"
　　　　CTL.Seek "=", 1
　　If CTL.NoMatch Then

上記のように入力すると
実行時エラー　3251
CTL.INDEX = "主キー"　が黄色くなります。
入力が間違ってますか？

1,483 hits

▼

【9970】アクセス95から2000に移行後のエラー timtim 07/11/9(金) 10:13