出産前後の痔にはご注意！

Accessのマクロでモジュールを実行させたい。

解決済

  • 質問者：haasan99
  • 質問日時：
  • 回答数：4件

Access2002を勉強中の初心者です。

AccessでDB1という名前のデータベースを作成し、その中で、モジュール1というモジュールを作成しました。これを実行するマクロを作成したく、次のようにマクロを作成しました。
マクロのデザイン画面でアクションに「プロージャの実行」を選択、プロージャ名入力覧の右側の．．．のボタンを押して式ビルダ画面を表示、ここの「関数」フォルダを開いてDB1を選択、表示されたモジュール1を貼り付けてOK。
しかし、このマクロを実行すると、次のエラーとなります。「DB1　指定されたDB1が見つけることができない関数名が含まれています」

根本的に方法が間違っているのでしょうか?
アドバイスをよろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

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

「マクロ アクセス」に関するQ&A： 【ACCESS】複数のパソコンからアクセスして同時にマクロを動かせますか？

A 回答 (4件)

No.4ベストアンサー

  • 回答者： happypoint
  • 回答日時：

#1です。



ちょっと時間ができたので、Accessのヘルプで、
　"RunCode/プロシージャの実行" アクション
についてのトピックを見てみました。

結論から言うと、基本的な考え方が間違っているみたいです^^;。

「プロシージャの実行」アクションでは、「Function」プロシージャを指定するようです。
Subプロシージャではエラーになります。


つまりご質問の件では、
「Subプロシージャを呼び出すFnctionプロシージャ」をまず書かなけれえばならない。
そして、マクロのアクションでは、あらためてこのFunctionプロシージャを指定しなければいけません。
    • good
    • 2
    • 件
通報する
この回答へのお礼

happypointさん、お忙しいところいつもありがとうございます。Functionプロシージャをまず書かなければならないですね。早速トライしてみます。ありがとうございました。

通報する
お礼日時：2003/07/16 16:04

No.3

  • 回答者： vantage
  • 回答日時：

マクロからプロシージャの実行に関する基本的な考えは間違っていないと思います。



あなたが実行したいプロシージャが、例えば

Public Function test()

MsgBox "hello!"

End Function

ならば、マクロの[プロシージャ名]には
“ test() ”
と、“()”も入力しなければなりません。でないと#2さんのお返事に書かれたエラーになります。

式ビルダも便利ですが、わたしなんかはモジュール画面からコピー＆ペーストしてしまいますね、普段は。

この回答への補足

ご回答ありがとうございます。
おっしゃるとおり()もつけてみたのですが、質問の「・・・含まれていません」のエラーが出ます。
なにか間違えていると思いますので、調べてみます。

補足日時：2003/07/16 08:27
通報する
    • good
    • 3
    • 件
通報する
この回答へのお礼

ご回答ありがとうございました。

通報する
お礼日時：2003/07/17 08:03

No.2

  • 回答者： zealzany
  • 回答日時：

#1さんと同意見ですが。



文章を読むとモジュール1をプロシージャ名として設定
しているように見えますが、プロシージャ名を指定し
てください。
こんなん↓なら　プロシージャ aaa　です

Public Sub aaa()

End Sub

この回答への補足

アドバイスありがとうございます。
おっしゃるとおりやっているつもりなのですが、「指定された式に含まれる名前"aaa"が見つかりません」とのエラーが出ます。なにか、私が考え相違しているのでしょうね．．．

補足日時：2003/07/15 15:31
通報する
    • good
    • 0
    • 件
通報する
この回答へのお礼

ご回答ありがとうございました。
もっと勉強します。

通報する
お礼日時：2003/07/17 08:03

No.1

  • 回答者： happypoint
  • 回答日時：

こんにちは。



フォームから実行するとかだったら、
直接VBAで呼び出した方が早いと思うんですが、
何故マクロ？

的外れだったらすいません。

この回答への補足

説明不足ですみません。
既に作成しているマクロの１行として組み入れたいと思ったものですから・・・
考え方が根本的に外れてますか?

補足日時：2003/07/15 13:04
通報する
    • good
    • 2
    • 件
通報する

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

Q質問する（無料）

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

ピックアップおすすめ記事

関連するQ&A

関連するカテゴリからQ&Aを探す

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

Q質問する（無料）

他の専門家の回答をチェック

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

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

QAccess VBA標準モジュールについてです。

Access VBA標準モジュールについてです。
現在、仕事上必要にかられAccessVBAを勉強中の初心者です。初歩的な質問で申し訳ありませんが、ご存知の方教えて下さい。
フォーム上のコマンドボタンを押した時に標準モジュールを作動させたいのですが、そんな方法はありますか？【クラスモジュールについての本は沢山あって何とか理解できつつありますが、標準モジュールに関しての記述があまり無い気がします。】
宜しくお願いします。

Aベストアンサー

>クラスモジュールについての本は沢山あって何とか理解できつつありますが
そうですかね。
実情とかけ離れているように思いますが、勉強が足らんのかな。
クラス主義のＶＢ．Ｎｅｔと違いますよね。
普通はＡｃｃｅｓｓＶＢＡでもエクセルＶＢＡでも、標準モジュールにコードを書きますが。
クラスモジュールなど高等すぎて。もっとほかにＡｃｃｅｓｓＶＢＡで勉強することが多いのでね。
フォームのコマンドボタンを押したときのコードは、フォームのコントロールをデザインしている画面ででそのコマンドボタンをダブルクリックすると、プロパティほかの項目の、設定場面が出て、そのイベントの「クリック時」の右端の「・・・」をクリクすると
Private Sub コマンド2_Click()

End Sub
が自動的に現れる。
この間にクリックしたときの処理のコードを直接書くのだが、他のコントロールからも利用したいときや
そっくり標準モジュールに書きたいとき、（ユーザー）関数は、標準モジュールのModule1などに
Sub test08()
MsgBox "sss"
End Sub
と書いて
Private Sub コマンド2_Click()
module1.test03()
End Sub
と書くとボタン２をクリックしたとき「ｓｓｓ」のメッセージボックスが表示される（された）.
他のＭｏｄｕｌｅにもTest03はあるので、module1.test03()と限定しただけ。

>クラスモジュールについての本は沢山あって何とか理解できつつありますが
そうですかね。
実情とかけ離れているように思いますが、勉強が足らんのかな。
クラス主義のＶＢ．Ｎｅｔと違いますよね。
普通はＡｃｃｅｓｓＶＢＡでもエクセルＶＢＡでも、標準モジュールにコードを書きますが。
クラスモジュールなど高等すぎて。もっとほかにＡｃｃｅｓｓＶＢＡで勉強することが多いのでね。
フォームのコマンドボタンを押したときのコードは、フォームのコントロールをデザインしている画面ででそのコマンドボタンを...続きを読む

他の回答も見る

QACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ

ACCESSで空白のデーターをクエリで判定/識別する方法を教えてください。
EXCELでは空白を""で判定/識別表していますがACCESSではどうなるのでしょうか。

下の例はフィールドに試験番号があればその番号を、空白なら”欠席”と表示しようとしています。
IIf(([試験番号]="空白の場合何を入れる？"),[試験番号],"欠席")

Aベストアンサー

もうひとつの書き方は
式1: IIf([試験番号] Is Not Null,[試験番号],"欠席")
第２、第３引数の、質問の順序にあわせるとこうなる。

他の回答も見る

QACCESS　IIF関数　複数条件の設定について

　選択クエリにおいて、あるフィールド「 X」 のレコード数値が
　
　　0＜[X]＜＝50　　　であれば　A　
　　50＜[X]＜＝100　　であれば　B　
　　100＜[X]＜＝150　　であれば　C

　と表記させるフィールド「Y」を追加したいと考えています。
　この場合、Yのフィールド設定で指定する数式についてご教授願います。

　一応、
　 IIf(0<[X]<=50,"A","") Or IIf(50<[X]<=100,"B","") Or IIf(100<[X]<=150,"C","")

　　としましたが、実行すると、Yの列がすべて「-1」と表記されてしまいます。

　何卒よろしくお願いいたします。

Aベストアンサー

a)IIF関数で対応する場合：
　IIF関数の第2引数または第3引数に、IIF関数を入れ子とする必要があります。

式: IIF([X]<=0, "", IIF([X]<=50, "A", IIF([X]<=100, "B", IIF([X]<=150, "C", ""))))


b)別の組込関数を使用する場合：
　IIF関数は二択ですので入れ子にする必要がありますが、Accessのクエリで
　使用できる、似た機能の関数に、Switch関数というものもあります。
　これであれば、入れ子にする必要がなくなります。
　(詳しくは、Accessのヘルプを参照下さい)

式: Switch([X]<=0, "", [X]<=50, "A", [X]<=100, "B", [X]<=150, "C", True, "")


なお、数学あるいは一般生活では確かに「0<[X]<=50」という表記をしますが、
Accessの関数などではこれだと正しい結果が得られません。
正しく認識させるためには、等号・不等号を挟んだ式は、「左辺」と「右辺」の
2つの要素からなる形にする必要があります。
(「0<[X]<=50」は「[X]>0 And [X]>=50」と分割してやる、と)

但し、今回のご質問のような『連続した範囲』であれば、前(左)で既出となる
式の要素で「[X]<=0」が「真(=-1)」とならなかった時点で、「[X]>0」が保証
されますので、上記のように、「[X]>0」を省略して「[X]<=50」だけを条件として
指定すればOk、ということになります。
(「0<[X]<=50」の次が「80<[X]<120」などのように、「50～80」が欠けた
　場合は、省略ができない、と)


【参考】
「0<[X]<=50」は、このままだと「0 < ([X]<=50)」という式と解釈されます。
この場合、「[X]<=50」は、「真(=-1)」か「偽(=0)」か「Null」のいずれかに
なります。
何にせよ、「0<[X]<=50」全体として「正(=-1)」となることがないため、
ご質問の式では、IIF関数は常に第3引数に指定された値「""」を返す
ことになります。

この結果、式全体としては「"" Or "" Or ""」という形となり、「0かNull」
以外なので、「真(=-1)」という値が返された、ということです。

なお、Nullについては、以前、他の方の質問につけた回答も、併せて参考までに：
http://oshiete.goo.ne.jp/qa/4850675.html

a)IIF関数で対応する場合：
　IIF関数の第2引数または第3引数に、IIF関数を入れ子とする必要があります。

式: IIF([X]<=0, "", IIF([X]<=50, "A", IIF([X]<=100, "B", IIF([X]<=150, "C", ""))))


b)別の組込関数を使用する場合：
　IIF関数は二択ですので入れ子にする必要がありますが、Accessのクエリで
　使用できる、似た機能の関数に、Switch関数というものもあります。
　これであれば、入れ子にする必要がなくなります。
　(詳しくは、Accessのヘルプを参照下さい)

式: Switch([X]<=0, "", [X]<=50, "A"...続きを読む

他の回答も見る

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード（テーブル）を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード（テーブル）を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか？
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL：http://www.nurs.or.jp/~ppoy/access/access/acF007.html

他の回答も見る

QOfficeアクセス　テーブル「テキスト型」⇒「日付型」への変換について

テーブルにデータが保管されており、そのフィールドの一つに「テキスト型」で”20080301”のようなデータを持っています。これを「日付/時刻型」”2008/03/01”のように変換したいのですが、どのようにすればよいのでしょうか。

※ちなみにこのオリジナルデータは毎日、自動的にテーブルにダウンロードされており、このテーブル自体の型を予め「日付/時刻型」に変換すると、日々のデータ取得時にエラーとなってしまいます。ですので、「日付/時刻型」のフィールドを持った新規のテーブルに、この”20080301”のデータを変換し格納したいのですがどのようにすればよろしいでしょうか。

テーブル⇒デザインより、該当のフィールドの型を「テキスト型」⇒「日付/時刻型」へ直接変換してしまうと、「データの変換中にエラーが発生しました。○○件のレコードのデータが失われました。」と表示されます。素人のため、なるべく追加クエリや更新クエリや簡単な関数のみでの方法を教えていただけたら幸いです。

Aベストアンサー

テーブルに日付時刻型フィールドを追加して、
更新クエリを使って、#1さんが提案されている
数式を使えばよいのでは？

他の回答も見る

Qアクセスで＃エラーを表示させない方法は？

アクセス２０００を使用しています。フォームにテキストボックスを貼り付けて、計算式を入れています。計算できない数値になると、＃エラーと表示されます。目障りなので、＃エラー　という表示を消したいのですが、どうしたらよろしいでしょうか？宜しくお願い申し上げ候。

Aベストアンサー

はじめは「IIF関数とIsError関数を使用して」と考えたものの、IIF関数は引数がエラーになった時点で
エラーが返されてしまう(=元の木阿弥)ので、どうしたものかと思ったのですが・・・
とりあえず、「見た感じ、何も表示されていないように見える」ということで、『条件付書式』での対応と
いうのはいかがでしょうか。

1)当該フォームをデザインビューで開く
2)当該テキストボックスを選択
3)メニューで「書式(O)→条件付き書式(D)」を選択
4)『条件付き書式設定』ダイアログが開くので、『条件1(1)』枠の左端にあるコンボボックスで「式」を選択
5)上記コンボボックスの隣が1つのテキストボックスになるので、そこに以下のような式を入力
　IsError([テキスト0])
　※上記の式は当該テキストボックスの名前が「テキスト0」の場合です。
6)上記テキストボックスの下、右から2番目に「Ａ」と表示された、文字色を指定するボタンがあるので、
　その左の小さな「▼」をクリックし、当該テキストボックスの背景と同じ色(既定では白のはず)を選択
7)『OK』ボタンをクリックしてダイアログを閉じる

・・・以上です。
これで、『テキスト0』の計算式がエラーになった場合は、文字色が背景と同じ色になるので、「#エラー」と
いう表示はされていないように見える、という状態にすることができると思います。

はじめは「IIF関数とIsError関数を使用して」と考えたものの、IIF関数は引数がエラーになった時点で
エラーが返されてしまう(=元の木阿弥)ので、どうしたものかと思ったのですが・・・
とりあえず、「見た感じ、何も表示されていないように見える」ということで、『条件付書式』での対応と
いうのはいかがでしょうか。

1)当該フォームをデザインビューで開く
2)当該テキストボックスを選択
3)メニューで「書式(O)→条件付き書式(D)」を選択
4)『条件付き書式設定』ダイアログが開くので、『条件1(1)』枠の...続きを読む

他の回答も見る

QAccessで別テーブルの値をフォームに表示したい

初めてのＡｃｃｅｓｓで分からない事があり質問させてください。

＜会社テーブル＞
会社ID
会社名
住所

＜社員テーブル＞
会社ＩＤ
社員名
ソート番号

＊1社に対し複数の社員レコードが存在

以上のようなテーブルがあるとします

現在「会社テーブル」を表形式で一覧表示しています
会社ＩＤ，会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています（現状は番号関係なく表示させる方法すら分かりません）

色々いじくりまわしたのですが、初めてＡｃｃｅｓｓをさわる事もあってよくわかりません

リレーション等でひっぱってくる事ができるのでしょうか？

どなたか教えて頂けませんでしょうか

何卒よろしくお願い致します

ＰＳ．Ａｃｃｅｓｓ2013で作成中です

Aベストアンサー

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FROM 社員
ORDER BY 社員.ソート番号;

２、コントロールソースに次のように書きます。

=DLookUp("社員名","社員ソートクエリ","会社ID=" & [会社ID])

http://office.microsoft.com/ja-jp/access-help/HA001228825.aspx

DLookup()については、マイクロソフトの解説を参照されてください。

【DLookup()の限界を破るにはVBAで同じ関数を作るしかない】

マイクロソフトの解説を読めば判りますが、ORDER BY 節を指定する引数が用意されていません。ですから、どうしても、"社員ソートクエリ"を作成するという手間が必要となります。そこで、SQL文を引数とするDBLookup()をVBAで書けば、その手間を省けるという算段になります。この辺りは、好みと趣味の問題。どっちでも良いと思います。そういうお断りをした上で DBLookup()を紹介しておきます。なお、ADOは、つぎのように参照設定しないと利用できません。

http://www.happy2-island.com/access/gogo03/capter00307.shtml

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　　　　 As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FR...続きを読む

他の回答も見る

QAccessからExcelにエクスポートする時に常に上書きしたい

AccessのテーブルをExcelへ出力する際に、常に同じファイル名で保存する場合、
2回目以降は、上書きするかどうかを尋ねるメッセージが表示されます。
「常に上書きする」と決まっているので、メッセージを表示させたくないのですが、どうしたらいいのでしょうか。

現在、マクロで作成しており、出力の前後に「メッセージの設定」を入れてみたのですが、ダメでした。
VBAなら可能でしょうか？よろしくお願いします。

Aベストアンサー

こんにちは。maruru01です。

エクスポートする直前に、元のファイルを削除するか、移動するか、リネームするのはどうですか。（VBAですが）


削除
Kill "C:\エクスポート.xls"

移動
Name "C:\エクスポート.xls" As "C:\移動後\エクスポート.xls"

リネーム
Name "C:\エクスポート.xls" As "C:\エクスポート_1.xls"

他の回答も見る

Qマクロにてaccessへテキストファイルをインポートする方法

マクロを利用しaccessへテキストファイルをインポートしようとしているのですが、
どのHPを参照しても、
マクロを利用してのテキストインポートはできないみたいなことが書かれてます。
一度、CSVに落として実行するしか方法はないのでしょうか？

Aベストアンサー

１度、「ファイル」「外部データの取り込み」でテキストファイルを参照
左下の「設定」ボタンでフィールドの設定をして定義を保存します。

マクロにて「テキスト変換」を選び
[変換の種類]区切り記号付きインポート　又は　固定長インポート
[定　義　名]上記で保存した定義
[テーブル名]保存するテーブル
[ファイル名]テキストファイル名（パス付き）

これでできると思いますが...

他の回答も見る

QACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入力画面
　　　　　　　↓
レコード番号を入れると、そのレコードのデーターが画面に表示され、
その画面で修正可能
　　　　　　　↓
　保存　ボタンで保存

という流れです。

レコードナンバーはIDを使おうと思っています。

データの量が莫大な為、コンポボックスなどは使えません。

できるだけ、VBAなどは使わずに作りたいです。

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

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入...続きを読む

Aベストアンサー

まずそのテーブルを基にしてフォームを作成します。
そのフォームのヘッダー部分にテキストボックスを配置後、一旦
上書き保存。
フォームのレコードソースを
SELECT *
FROM テーブル名 WHERE ID=[Forms]![フォーム名]![テキストボックス名]
とします。
次にテキストボックスの更新後処理に
Me.Requery
とすれば完成です。
フォームを開いてテキストボックスにID入力後エンターしてください。

保存に関しては、コマンドボタン作成後クリック時イベントに
DoCmd.RunCommand acCmdSaveRecord
とすれば良いでしょう。

この手のモノは検索すれば相当数ヒットするので、そちらを参考にされるのもよろしいかと。

他の回答も見る
ページトップページトップ

Q質問する（無料）

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

人気Q&Aランキング

おすすめ情報