ボロボロです。知恵が足りずとても困っています。どなたか教えてください。

テーブル「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


これで実行すると、
「コンパイルエラー メソッドまたはデータメンバが
見つかりません」
というエラーメッセージが出ます。
ちょこちょこいろんなところを修正してみても、
このメッセージだけでなく他にもいろんな
エラーメッセージが出ます。

冒頭に書いたような機能を可能にするには、
どのように記述すればよいのでしょうか??

ほんとにほんとに困っています。どなたか助けてください。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

「ぼろぼろ」て言われてもね


当方では問題なくSQL文を返して来ていますが...
テーブルのデータ型はどうなっていますか?
どのような作業をされているか不明なので補足願います。
呼び元の記述もお願いします。

DAOを使っているのでMS DAO 3.6・・・は参照設定でチェックはつけて下さいね。コンパイルが通ってるので問題ないとは思いますが...
    • good
    • 0
この回答へのお礼

ほんとにどうもありがとうございました。
まだ格闘中ですが。。。がんばってみます。

お礼日時:2001/07/11 15:35

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が実行されません。
マクロのプロシージャ名の記述が間違っているのでしょうか?
それとも他に原因があるのか、ほんとに何が悪いのか、
全くわかりません・・・
よろしくお願いします。

補足日時:2001/06/28 10:40
    • good
    • 0
この回答へのお礼

早速のご回答ありがとうございます。試してみます。

お礼日時:2001/06/27 17:24

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QAccessVBAで「dim dbs as database」がエラーになる

済みませんが、非常に基本的なことを聞かせていただきたいと思います。

AccessのVBAで関数を実行すると、いきなりエラーになりました。
dim dbs as database の文でエラーになり、「コンパイルエラー ユーザ定義型が定義されていません」というエラーメッセージが出ました。
databaseが定義されているような感じです。

どうすれば宜しいでしょうか?

Aベストアンサー

こんにちは。maruru01です。

VBEの画面のメニューの[ツール]→[参照設定]で、

「Microsoft DAO X.X Object Library」(X.Xはバージョン)

の項目にチェックが入っていますか?

ちなみに、DatabaseオブジェクトはDAOしかないのでいいですが、Recordsetオブジェクトなどは、ADOとDAOの両方にあるので、

Dim rs As DAO.Recordset

のように、どちらかを明確に記述しないといけません。
統一的で分かりやすいコーディングのためには、Databaseオブジェクトも、

Dim dbs As DAO.Database

のように記述するように心がけましょう。

Q文字列の入っているString値、何も入力されていないString値、Null値の全てを表示されるには?

access2003です。
フォーム1とクエリ1とテーブル1があります。
クエリ1の「テーブル1の番号フィールド」の抽出条件に
「Like "*" & [Forms]![フォーム1]![番号テキスト] & "*"」と入力しています。

フォーム1の番号テキストに「1」を入力しコマンドホ゛タンを押すと
「1」を含むレコードを表示され

フォーム1の番号テキストに「*」を入力しコマンドホ゛タンを押すと
何かしらの文字列が入力されているレコート゛が表示されます。

しかし
テーブル1番号フィールドには、
Null値と何も入力されていないString値(""←が入っている)も含まれています。
(見た目は空白どちらも空白です)
(String値がある理由はADOを使って何も入力されてない値もまとめてレコードに追加している為)

ここで質問なのですが

フォーム1のコマンドホ゛タンを押したときに
文字列の入っているString値、何も入力されていないString値、Null値の全てを表示されるには
どうすればいいのでしょうか?

よろしくお願い致します。

access2003です。
フォーム1とクエリ1とテーブル1があります。
クエリ1の「テーブル1の番号フィールド」の抽出条件に
「Like "*" & [Forms]![フォーム1]![番号テキスト] & "*"」と入力しています。

フォーム1の番号テキストに「1」を入力しコマンドホ゛タンを押すと
「1」を含むレコードを表示され

フォーム1の番号テキストに「*」を入力しコマンドホ゛タンを押すと
何かしらの文字列が入力されているレコート゛が表示されます。

しかし
テーブル1番号フィールドには、
Null値と何も入力...続きを読む

Aベストアンサー

> 何も入力されていないString値、Null値
は、
Len(Nz([フィールド名],"")) = 0 で得られます。

全てということであれば、
Len(Nz([フィールド名],"")) >= 0 になると思います。

Q実行時エラー'-2147467259(80004005)':

エクセルからADOでアクセスに繋ごうとしたときに
実行時エラー'-2147467259(80004005)':
マシン'マシン名'のユーザー'Admin'がデータベースを開けない状態、またはロックできない状態にしています。

というエラーが出てしまいます。

書いているコードは以下です。

Public cn As ADOdb.Connection
Set cn = New ADOdb.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"



test.mdb自体はテーブルもクエリもフォームも何も開いていない状態です。
一度アクセスを終了させて再起動させればうまくできるのですが、何が原因でこのメッセージが出るのでしょうか?
もしわかれば教えてください。
よろしくお願いします。

Aベストアンサー

Accessで、test.mdbを開いた状態(テーブルも、クエリも、フォームも何も開かない状態)で、ExcelからADOで接続しようとすると、
「-2147467259"は既に使用されているので、使用できませんでした。」
というエラーが再現されました。(当方Office2000Pro)
そういうものなのでしょう。
何をなさりたいのですか?
AccessからExcelを起動して、データの移し替えをしたり、レポート代わりに印刷させたりという方法ではダメなのでしょうか?
何をしたいかという、切り口で質問をされてはいかがですか。

QVBAの実行時エラー'2522'について

前任者がAccess2003により作成したデータベースがあります。
CSVデータを取り込む仕組みがあるのですが、下記のエラーが出て困っています。

実行時エラー '2522':
このアクションまたはメソッドを実行するには[File Name/ファイル名]引数が必要です。

どうやらVBAによるエラーだと判明しましたが、それ以上はよくわかりません。
以下のような構文になっています。

Option Compare Database
----------
Private Sub CSV取込_Click()
TextConv strFileName, "マスター定義", "T_マスター"
End Sub
----------
Sub TextConv(strFle, strInp, strTbl)
Dim strSQL As String
strSQL = "DELETE * FROM " & strTbl
If MsgBox("テーブルデータを更新しますか?", 4, "テーブル更新") = vbYes Then
CurrentProject.Connection.Execute strSQL
DoCmd.TransferText acImportDelim, strInp, strTbl, strFle, True
MsgBox "テーブルデータを更新しました"
End If
End Sub
----------
Private Sub 参照_Click()
Dim strFileName As String
strFileName = GetFileName()
If Len(strFileName) > 0 Then
Me.filepath = strFileName
Else
MsgBox "取込対象ファイルを選択してください! "
End If
End Sub

以上のようになっています。
デバッグを実行すると「strFle」の値がEmptyになっているのでここだとは思うのですが、どうしたらよいかわかりません。
どなたかお知恵をお貸し願えませんでしょうか。
宜しくお願いします。

前任者がAccess2003により作成したデータベースがあります。
CSVデータを取り込む仕組みがあるのですが、下記のエラーが出て困っています。

実行時エラー '2522':
このアクションまたはメソッドを実行するには[File Name/ファイル名]引数が必要です。

どうやらVBAによるエラーだと判明しましたが、それ以上はよくわかりません。
以下のような構文になっています。

Option Compare Database
----------
Private Sub CSV取込_Click()
TextConv strFileName, "マスター定義", "T_マスター"
End ...続きを読む

Aベストアンサー

Private Sub CSV取込_Click()
  TextConv Me.filepath "マスター定義", "T_マスター"
End Sub
でしょうか?

> Option Compare Database
の次に
Option Explicit
を追加すると、このようなエラーは発見しやすくなります。

VBEの画面で
[ツール] - [オプション] - [編集]タブで
「変数の宣言を強制する」にチェックを入れると
新しく作成するモジュールでは
自動で「Option Explicit」が挿入されるようになります。

Q実行時エラー '3464': 抽出条件でデータ型が

フォームにフィルタをかけようとすると
実行時エラー '3464': 抽出条件でデータ型が一致しません。

になります。

Private Sub Form_Load()
Me.Form.Filter = "フィールド1 =200"
Me.Form.FilterOn = True
End Sub

コードはこれです。
フィールド1はテキスト型です。
何がダメなのでしょう?

Aベストアンサー

Me.Form.Filter = "フィールド1 =200"

Me.Form.Filter = "フィールド1 ='200'"
に変更してください。
フィールドのデータ型によって
テキスト型→ ' で括る
日付/時刻型→ # で括る
数値型 → 何も括らない。
と合わせる必要があります。


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報