フォームから、DoCmd.OpenFormを使って、
別のフォームを子画面として開くようにしています。
そのときフォーム間で、Functionの引数と戻り値のような感覚で
値の受け渡しをしたいと思っています。

値をわたす方は、OpenFormの引数のいちばん最後にある
OpenArgsを使うことでうまく解決できたのですが、
値を返す方のやり方がイマイチわかりません。

  DoCmd.OpenForm "フォーム名",,,,OpenArgs
    (カンマの数が間違ってるかも…とりあえずテキトーです)
という記述方法の他に、
  DoCmd.OpenForm("フォーム名",,,,OpenArgs)
という記述もできるようなんですが、そのようにすると
「=」をつけろ、というようなエラーがその場で出ます。

MsgBoxでも同じようなことが起こりますが、
MsgBoxだと「vbOk」やら「vbCancel」やらを返してくれるので
OpenFormでも似たようなことができるのかな…と思うのですが。

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

A 回答 (2件)

こんにちは。

maruru01です。
質問の意図に沿うかどうか分かりませんが、
フォーム間で値をやり取りするなら、標準モジュールにグローバル変数を宣言して、その変数でやり取りすればいいと思います。
例えば、Aというフォームであるグローバル変数に値を代入しておき、Bのフォームを開いたら、その適当なイベント(フォームを開くと同時に使用するなら、フォームのLoadイベントかな)でその変数の値を使用するという風です。
またすでに開いているフォームなら、直接値を入れてやればいいと思います。
例えば、Bのフォームのあるイベントで、
Forms!A!Text1.Text = (値)
という風です。
では。
    • good
    • 0
この回答へのお礼

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

私はOpenFormについて、ちょっと誤認識してたみたいです。
いわゆるWindowsのダイアログを開くときのように、
処理が子画面の方に移って、子画面を閉じたときに
親画面の処理が戻り、次の処理へ移るのかと思ってました。

でも実際は、ただフォームを開くだけで、開いたフォームに
処理は移らず、そのまま次の処理が行われるんですね。
それなら「戻り値をもらう」という考え方はないですよね…。

今回はとくに、他に標準モジュールを使う必要性がなくて
標準モジュールを設けていないので、標準モジュールを使わず
何かうまい手がないかなぁ…と思っていたんです。

実際のところは、親フォームに戻るような画面遷移なので
親フォームは必ず開いた状態にありますから、
親フォームのプロパティやメソッドに対して
子フォームから手をつけるやり方で解決できました。

お礼日時:2002/03/18 22:50

MsgBox は、関数ですので、引数のセットを ( ) で囲みますが、OpenForm は、メソッドですので、( ) で囲みません。

ですから、
DoCmd.OpenForm ("フォーム名, , , , , , "OpenArgsの内容") のような記述はできませんので、当然エラーになります。

ちなみに、"フォーム名" は、文字列の値ですので、("フォーム名") と記述することもできます。
ですから、DoCmd.OpenForm ("フォーム名"), , , , , , (“OpenArgsの内容”) と記述することは、問題ありません。
("フォーム名・・・のような ( の書き出しでエラーが出ないのは、上記の理由からです。

以下蛇足になりますが、コードの書き方についての個人的な趣味でのアドバイスです。
DoCmd.OpenForm "フォーム名, , , , , , "OpenArgsの内容"
と記述するより多少煩雑になりますが、
DoCmd.OpenForm FormName:="フォーム名", OpenArgs:="OpenArgsの内容"
と記述する方が、後でプログラムを見直すときに分かりやすいので、オススメです。
    • good
    • 0
この回答へのお礼

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

どうやら私の誤認識だったようですね。
VBAも、VBも今まで経験がなかったので、
まだ今ひとつVB独特の感覚がつかめてないですね…。

引数の書き方、そういえばそういう方法もありましたね。
引数が増えるとちょっと長くなってしまうようですが、
でも引数の意味が明確になってわかりやすいですね。
参考にさせていただきたいと思います。

お礼日時:2002/03/18 22:55

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

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

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

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

QACCESS VBA コマンドDoCmd.OpenFormの引数

2つの項目で主キーを構成するテーブルを定義しました。
この場合、VBA コマンドを使って登録画面を開く為の
コマンドの引数の指定方法がわかりません。

テーブル名: T運転手割当
1)W業務依頼日 <=主キー
2)W使用車両  <=主キー
3)W運転手番号


DoCmd.OpenFormの書式
■第4引数 WhereCondition/レコード抽出条件(省略可能)
テーブルやクエリと連結しているときのレコード抽出条件を指定します。

1)仮に主キーが1つの時、以下の表記で正常に表示されます。
'フォームを開く
DoCmd.OpenForm "F運転手割当登録", acNormal, , "W業務依頼日 = " & Me![lstWariate]


2)主キーが2つの時、以下の表記ではF運転手割当画面は表示されるのですが、
肝心のデータがセットされずに空白で表示されます。
'フォームを開く
DoCmd.OpenForm "F運転手割当登録", acNormal, , ("W業務依頼日 = " & Me![lstWariate]) & " And " & ("W使用車両 = " & Me![lstWariate])


[lstWariate]とは、データの検索画面で検索結果を表示するリストボックスの名称です。
検索結果から該当データを選択して、個別データの修正画面に移行したいのですが・・・。

Me![lstWariate]の表記が良くないのだと思うのですが、具体的な表記方法が分かりません。
よろしくお願いします。

2つの項目で主キーを構成するテーブルを定義しました。
この場合、VBA コマンドを使って登録画面を開く為の
コマンドの引数の指定方法がわかりません。

テーブル名: T運転手割当
1)W業務依頼日 <=主キー
2)W使用車両  <=主キー
3)W運転手番号


DoCmd.OpenFormの書式
■第4引数 WhereCondition/レコード抽出条件(省略可能)
テーブルやクエリと連結しているときのレコード抽出条件を指定します。

1)仮に主キーが1つの時、以下の表記で正常に表示されます。
'フォームを開く
DoCmd...続きを読む

Aベストアンサー

遅くなりましたが、以下の記述ではどうでしょうか?
(長すぎて、勝手に改行されていますが、一行にして試してください)

DoCmd.OpenForm "F運転手割当登録", acNormal, , "W業務依頼日 = " & CDate(Me![lstWariate].Column(0)) & " And " & "W使用車両 = " & Me![lstWariate].Column(1)

QMS ACCESS2000のVBAでDocmd.openformしてます

openform のパラメータのwhereconditionに、like演算子を使って、

「 フィールド名 like %文字% 」

というような指定をしたいのですが、上手くいきません。
演算子が無いとか、いろいろ言われてしまいます。
どのように記述すると、動作するでしょうか?

Aベストアンサー

> 「 フィールド名 like %文字% 」
Oracle系とはワイルドカードキャラクタが異なります。

フィールド名 like '*文字*' か
フィールド名 like "*文字*" を使用してください。

任意の文字列を表す場合の%は*、
任意の1文字を表す場合の_は? です。

QDoCmd.OpenFormパラメータが表示される

いつもお世話になっています。

DoCmd.OpenFormで条件に合致するフォームが開く以下のコードを作成して使っています。

Private Sub send_Click()
DoCmd.OpenForm "集計", acFormDS, , "[支所] =" & Me.支所 & " And [部署] =" & Me.部署, , acHidden
End Sub

[部署]はこれまで数値で表していましたが、テキストを使用することになりました。
上記のプロシージャを実行すると[部署] のところにパラメータが表示されて
入力すると指定の支所と部署のデータが表示されます。

別の質問で、テキスト型を検索する記述方法は教えていただいて解決したのですが、
パラメータを表示せずに上記の式に反映するにはどうしたらいいのでしょうか。
型は数値型からテキスト型に変更しています。

お力添えをお願いいたします。

Aベストアンサー

> " & Me.部署

'" & Me.部署 & "'

QDoCmd.ApplyFilter引数を文字にする

いつもお世話になっています。

以下のフィルタを作成して使っています。

Private Sub to12_Click()
DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"
DoCmd.OpenForm "F_登録"
Set Forms!F_登録.Recordset = Me.Recordset
End Sub

DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"
の [社員番号]にテキストを使用することになりました。
元テーブルも数値型からテキスト型に変更したのですが、
こうした検索の式に反映するにはどうしたらいいのでしょうか。

お力添えをお願いいたします。

Aベストアンサー

> DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=2)"

 DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]='2')"

あるいは

 DoCmd.ApplyFilter , "([部署コード] = 1 And [社員番号]=""2"")"

前者の方が分かりやすいでしょう。

ちなみに、日付時刻なら

 [日付]=#2011/7/15#

です。

Q★アクセス2002★DoCmd.ApplyFilterの記述

先日同じような質問をして回答頂きましたが再度お願いします。
住所検索フォームを作成中です。

住所検索フォームにテキストボックス[検索値]を配置して、[検索値]に入力した語句で始まるレコードを表示させています。[抽出開始]コマンドボタンに下記の様に記述していますが、これだと[住所]の頭の文字でしか抽出できません。[検索値]に入力する語句は必ずしも頭の文字ではないので、途中の一部の語句でもヒットするようにしたいのですが、上手く記述できずに困っています。
DoCmd.ApplyFilter , "[住所] Like '" & Forms![住所テーブル一覧]![検索値] & "*'"

Aベストアンサー

未検証ですが・・・

DoCmd.ApplyFilter , "[住所] Like '*" & Forms![住所テーブル一覧]![検索値] & "*'"

・・・ではいかがですか?


人気Q&Aランキング

おすすめ情報