Ｐａｇｅ 558 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼はじめまして タッド 04/3/18(木) 11:46 ┗Re:はじめまして こうちゃん 04/3/19(金) 8:58 ┗Re:はじめまして タッド 04/3/19(金) 14:14 ─────────────────────────────────────── ■題名 ： はじめまして ■名前 ： タッド ■日付 ： 04/3/18(木) 11:46 -------------------------------------------------------------------------
| 初歩的な内容とは思いますが、質問させてください。 Accessのフォームを開く時に、同じDB内の別のテーブルから データをセットしようと試みたのですが、 「実行時エラー3251 現在のプロバイダはIndex機能に必要な インターフェイスをサポートしてません。」というエラーが出てしまいます。 どのように対処したらよろしいでしょうか？ Public Sub KihonRstOpen() Dim rst As New ADODB.Recordset Dim cnc As New ADODB.Connection Dim seekCIF As Long '検索用顧客番号 Set cnc = CurrentProject.Connection With rst rst.Open "T_顧客情報", cnc, adOpenKeyset, _ adLockOptimistic, adCmdTableDirect If rst.EOF Then MsgBox "顧客情報にレコードが1件もありません。", _ vbCritical + vbOKOnly GoTo Db_Close End If rst.Index = "PrimaryKey" seekCIF = Me!txt顧客番号 rst.Seek seekCIF, adSeekFirstEQ If rst.EOF Then MsgBox "該当の顧客が見つかりません。", _ vbExclamation + vbOKOnly Else Me!txt顧客氏名 = rst!顧客氏名 End If End With Db_Close: rst.Close Set rst = Nothing cnc.Close Set cnc = Nothing End Sub |
| タッドさん、こんにちは レスがつかないようですね。 エラーが再現できません。 もう少し詳しい情報が必要です。 >Accessのフォームを開く時に、同じDB内の別のテーブルから >データをセットしようと試みたのですが、 >「実行時エラー3251 現在のプロバイダはIndex機能に必要な >インターフェイスをサポートしてません。」というエラーが出てしまいます。 >どのように対処したらよろしいでしょうか？ 該当のテーブルはmdb、SQLServer以外の（例えばオラクル）リンクテーブルだったりしませんか？ その辺を含めて、Accessバージョン、Windowsバージョン等情報をご提示ください。 |
| こうちゃんさん、レスありがとうございます。 私はKeyの設定や環境の修正等、肝心なことをいくつか忘れてました。 それらを改善したところ、症状が改善されました。 お騒がせして申し訳ございませんでした。 ちなみに、該当のテーブルはmdb形式です。 Accessは2000Professional Edition で、Windowsは2000です。 |