ボロボロです。知恵が足りずとても困っています。どなたか教えてください。
テーブル「T_SQL」の各レコードに、
クエリのSQL文(フィールド名=「strSQL」)と
クエリ名(フィールド名=「QName」)と
通しNo.(フィールド名=「No」)
をデータとして入力し、アクション等に応じて、「T_SQL」から
抽出したSQL文を、
マクロの「プロシージャの実行」の
プロシージャ名 SetSQL("クエリー1",FindSQL(No)) により
クエリ「クエリー1」に代入したいのです。
現在以下の通りに作りました。
'データベース定義
Public db As Database
'レコードセット定義
Public rs As Recordset
Public Function SetSQL(QName As String, strSQL As String)
CurrentDb.QueryDefs("QName").SQL = strSQL
End Function
Public Function FindSQL(No As String)
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_SQL", dbopendynaset)
strcriteria = "[No]='" & No & "'"
rs.FindFirst strcriteria
FindSQL = rs!strSQL
rs.Close
db.Close
End Function
これで実行すると、
「コンパイルエラー メソッドまたはデータメンバが
見つかりません」
というエラーメッセージが出ます。
ちょこちょこいろんなところを修正してみても、
このメッセージだけでなく他にもいろんな
エラーメッセージが出ます。
冒頭に書いたような機能を可能にするには、
どのように記述すればよいのでしょうか??
ほんとにほんとに困っています。どなたか助けてください。
No.2ベストアンサー
- 回答日時:
「ぼろぼろ」て言われてもね
当方では問題なくSQL文を返して来ていますが...
テーブルのデータ型はどうなっていますか?
どのような作業をされているか不明なので補足願います。
呼び元の記述もお願いします。
DAOを使っているのでMS DAO 3.6・・・は参照設定でチェックはつけて下さいね。コンパイルが通ってるので問題ないとは思いますが...
No.1
- 回答日時:
Accessのバージョンは記載した方が良いですよ。
大抵レコードセットをパブリックで指定しているのが悪いのでしょう。
通常は実行ではなく「コンパイル」をしてエラー個所を修正した方が良いですね。
下記の内容でコンパイルは通りました。
Public Function FindSQL(No As String)
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("T_SQL", dbopendynaset)
strcriteria = "[No]='" & No & "'"
rs.FindFirst strcriteria
FindSQL = rs!strSQL
rs.Close
db.Close
End Function
この回答への補足
ボロボロです。
ご回答ありがとうございました。説明不足で申し訳ありません。
バージョンはAccess2000です。
もともとコンパイルは通っていたのですが、実行すると
エラーがでるような状況でした。
yanmaaさんので早速試してみたところ、コンパイルは通るのですが
なぜかFindSQLが実行されません。
マクロのプロシージャ名の記述が間違っているのでしょうか?
それとも他に原因があるのか、ほんとに何が悪いのか、
全くわかりません・・・
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
access2021 強制終了してしまう
-
access2021 VBA メソッドまたは...
-
Access Error3061 パラメータが...
-
accessデータを指定したExcel、...
-
実行時エラー3131 FROM 句の構...
-
AccessVBAで任意の複数リンクテ...
-
Accessのスプレッドシートエク...
-
Accessレポートのチェックボッ...
-
accessの代わりになるもの
-
Accessのリンクテーブルのパス...
-
Access IF文でテーブルに存在し...
-
access クエリ yes/no型のクエ...
-
Access VBA でHTML文を表示したい
-
accessでlaccdbファイルが削除...
-
accessについて(超初心者です)
-
アクセス レポートを開いたとき...
-
Microsoft365にAccessってあり...
-
Access DAOのExecuteメソッドの...
-
Accessのクエリで、replace関数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
希望の位置へフィールドを追加...
-
Access 余分な件数分データ削除...
-
[ACCESS/VBA]動的にSQL文を...
-
パススルークエリの使い方について
-
FindFirst複数条件
-
accessのvbaでの実行時エラーに...
-
Access2000のVBAでコンパイルエ...
-
whileが上手く回らず困っています
-
列名が無効です
-
Berkeley DB 1.85 -> GNU dbm ...
-
VBAのfor next で繰り返しが出...
-
sqlite_open()なんですが
-
AndroidからのAccessデータベー...
-
型 varchar から型 numeric へ...
-
データベースの最適化をマクロ...
-
DB2 UDBって?
-
エクセルの重複データの曖昧検索
-
スタライズとは、どういう意味...
-
データベースの2GBって・・・?
-
構文エラー:演算子がありませ...
おすすめ情報