Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
466 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11560】ＤＢアクセスでコンパイルエラー アクセス引継人 10/3/31(水) 10:19 質問[未読]
【11561】Re:ＤＢアクセスでコンパイルエラー よろずや 10/3/31(水) 22:21 回答[未読]
【11562】Re:ＤＢアクセスでコンパイルエラー アクセス引継人 10/4/1(木) 6:06 質問[未読]
【11563】Re:ＤＢアクセスでコンパイルエラー アクセス引継人 10/4/1(木) 7:27 発言[未読]
【11560】ＤＢアクセスでコンパイルエラー
質問  アクセス引継人  - 10/3/31(水) 10:19 -
引用なし
パスワード
   ACCESS2003で動作しているマクロが2007では、下記　「.Edit」で
コンパイルエラーが発生します。
メソッドまたはデータ メンバが見つかりません。 (Error 461)
何か環境が不足しているのでしょうか？

strSQL = "select * from " & strUseTable & " where 年月= '" & lCnt & "'"
Set Rs2 = dbs.OpenRecordset(strSQL, dbOpenDynaset)
Rs2.Edit
【11561】Re:ＤＢアクセスでコンパイルエラー
回答  よろずや  - 10/3/31(水) 22:21 -
引用なし
パスワード
   ▼アクセス引継人 さん：
>ACCESS2003で動作しているマクロが2007では、下記　「.Edit」で
>コンパイルエラーが発生します。
>メソッドまたはデータ メンバが見つかりません。 (Error 461)
>何か環境が不足しているのでしょうか？
>
>strSQL = "select * from " & strUseTable & " where 年月= '" & lCnt & "'"
>Set Rs2 = dbs.OpenRecordset(strSQL, dbOpenDynaset)
>Rs2.Edit

ACCESS2003ではDAOを使っていたのでしょう。

ACCESS2007では明示的にDAOを指定しないとADOとみなされます。タブン
ADOの場合は、Editというメソッドはありません。
【11562】Re:ＤＢアクセスでコンパイルエラー
質問  アクセス引継人  - 10/4/1(木) 6:06 -
引用なし
パスワード
   ▼よろずや さん：
>▼アクセス引継人 さん：
>>ACCESS2003で動作しているマクロが2007では、下記　「.Edit」で
>>コンパイルエラーが発生します。
>>メソッドまたはデータ メンバが見つかりません。 (Error 461)
>>何か環境が不足しているのでしょうか？
>>
>>strSQL = "select * from " & strUseTable & " where 年月= '" & lCnt & "'"
>>Set Rs2 = dbs.OpenRecordset(strSQL, dbOpenDynaset)
>>Rs2.Edit
>
>ACCESS2003ではDAOを使っていたのでしょう。
>
>ACCESS2007では明示的にDAOを指定しないとADOとみなされます。タブン
>ADOの場合は、Editというメソッドはありません。

早速の回答ありがとうございます。
　ただ、ＡＤＯ、ＤＡＯもわからないので、具体的にどのような設定をすれば
良いか教えていただけるとたすかります。恐縮です。
【11563】Re:ＤＢアクセスでコンパイルエラー
発言  アクセス引継人  - 10/4/1(木) 7:27 -
引用なし
パスワード
   ▼アクセス引継人 さん：
>▼よろずや さん：
>>▼アクセス引継人 さん：
>>>ACCESS2003で動作しているマクロが2007では、下記　「.Edit」で
>>>コンパイルエラーが発生します。
>>>メソッドまたはデータ メンバが見つかりません。 (Error 461)
>>>何か環境が不足しているのでしょうか？
>>>
>>>strSQL = "select * from " & strUseTable & " where 年月= '" & lCnt & "'"
>>>Set Rs2 = dbs.OpenRecordset(strSQL, dbOpenDynaset)
>>>Rs2.Edit
>>
>>ACCESS2003ではDAOを使っていたのでしょう。
>>
>>ACCESS2007では明示的にDAOを指定しないとADOとみなされます。タブン
>>ADOの場合は、Editというメソッドはありません。
>
> 早速の回答ありがとうございます。
>　ただ、ＡＤＯ、ＤＡＯもわからないので、具体的にどのような設定をすれば
>良いか教えていただけるとたすかります。恐縮です。

VBEの参照設定で、ＡＤＯＥの優先順位をＡＤＯより上げてみたら、
動作しました。
　これでよろしいのでしょうか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
466 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078193
(SS)C-BOARD v3.8 is Free