- 締切済み
フォームから別フォームを開くには？
こんにちは。 Access2010を使っています。 開いているフォームから別のフォームを開きたいのですが、その後ろ側のみにワイルドカード（「*」マーク）を入れたいのですが、上手くいきません。 いろいろやってみましたが、「メモリ不足です」となってしまい、上手くいきません。下記コードにどのようにしてワイルドカードを入れたらよいでしょうか？ DoCmd.OpenForm "開きたいフォーム名", acNormal, "", "[キー名]=[Forms]![開いているフォーム名]![キー名]", , acNormal ご教授よろしくお願い致します。
- shoe-gal
- お礼率70% (7/10)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- m3_maki
- ベストアンサー率64% (295/459)
> その後ろ側のみにワイルドカード（「*」マーク）を入れたいのですが、上手くいきません。 この意味が分からなくて考え込んでしまいましたが 曖昧検索をしたい、ということでしょうか？ DoCmd.OpenForm "開きたいフォーム名", acNormal, "", "[キー名] Like '" & Me![キー名] & "*'", , acNormal
関連するQ&A
- 「DoCmd.OpenForm」が実行できない（vbaでフォームを開きたい）
「フォーム1を開く」vbaで行ないたいのですが エラーになってしまいます。 Sub test1() DoCmd.OpenForm , acNormal, フォーム1 End Sub は「変数が定義されていません」と表示され （「変数の宣言を強制する」にチェックを入れています） Sub test2() DoCmd.OpenForm , acNormal, "フォーム1" End Sub は「引数は省略できません」となります。 Sub test1() DoCmd.OpenForm , フォーム1, acNormal End Sub Sub test2() DoCmd.OpenForm , "フォーム1", acNormal End Sub これにしても同じでした。 「OpenForm」をヘルプで調べてみたところ 「expression 」と「FormName」が「 必ず指定します。」でした。 「expression 」がないからだめなのでしょうか？ すいません、助けてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ACCESS 別フォームから別フォームの処理を
ACCESSでメインフォームから別フォームを 【メインフォーム】 DoCmd.OpenForm "FM_商品検索", , , , , acWindowNormal 【商品検索フォーム】 検索画面でJANコードを選んだらJANコードをセットして、商品マスタの読込等の処理をしたい Forms!F_仕入!F_仕入sub.Form!JANコード = Me.JANコード ↑これは動く Forms!F_仕入!F_仕入sub.JANコード_BeforeUpdate ↑これがエラーになります 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」 でエラーになります。 Forms!F_仕入!F_仕入sub.JANコード_BeforeUpdate Public Sub JANコード_BeforeUpdate(Cancel As Integer) 何がおかしいのでしょうか？ 宜しくお願いします
- ベストアンサー
- Access（アクセス）
- Access2003 条件を指定してフォームを開く
アクセス初心者です。 初歩的な質問で本当に申し訳ないんですが、教えてください！ 下記コードに条件を追加してフォームを開きたいのですが、どのようなコードを追記すればよろしいでしょうか？ 今までは「SAPコード」が一致するものを表示していましたが、それにプラス「品番」も一致するもので条件を変更したいです。 ※今回の対象フォーム名：SCALE メインフォーム名：発注実績 Else ' [SCALE] フォームを開き、現在のSAPコードのSCALEを表示します。 strDocName = "SCALE" strLinkCriteria = "[SAPコード] = Forms![発注実績]![SAPコード]" DoCmd.OpenForm strDocName, , , strLinkCriteria DoCmd.MoveSize (1440 * 0.78), (1440 * 1.8) End If 下記コードに条件式を追記すればいいと思いますが、ちょっと上手くいきませんでした。。。 strLinkCriteria = "[SAPコード] = Forms![発注実績]![SAPコード]" よろしくお願いします！！
- ベストアンサー
- オフィス系ソフト
- Access すべてのフォームを開く
おしえてくださいｍ＿＿ｍ AccessにてWindowを最小化した後に現在開いているフォームを開くVBAを 作成しようとしていますがうまくいきません。 現在はWindowを最小化した後一つのフォームを開くVBAは下記の通り作成しました DoCmd.RunCommand acCmdAppMinimize DoCmd.OpenForm "メインフォーム", acNormal しかしながら現在開いているすべてのフォームをAccess Windowを最小化した後に 開くVBAはどのように記載すればいいでしょうか 皆さまのお知恵をかしてくださいｍ＿＿ｍ
- ベストアンサー
- その他（プログラミング・開発）
- 実行時エラー7「メモリが不足しています」
アクセスで DoCmd.OpenForm Form_F1.Name, acNormal で、開こうとすると、 実行時エラー7「メモリが不足しています」がでました。 今まで一度も出なかったのですが、いきなりどうしたのでしょうか？ パソコンのメモリは8Gです。 不足するほど少ないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- ACCESS フォームの値がすぐに表示されない
フォームの値がすぐに表示されない。 宜しくお願い致します。皆様の知恵をお貸しください。 WinXPでACCESS2000を使っております。 テーブル_在庫には 取引先｜商品名｜買取金額｜売上金額｜日付のフィールドがあり A社｜みかん｜0｜10000｜2012/11/13 A社｜りんご｜10000｜0｜2012/11/13 B社｜ぶどう｜5000｜0｜2012/11/13 C社｜かき｜0｜3000｜2012/11/13 というレコードがあります。 フォーム_取引先のコンボボックスで、A社を選びコマンドボタンで、 クエリ_取引先買取、クエリ_取引先売上 を実行して、A社だけの取引を抽出し、その結果を フォーム_取引先買取とフォーム_取引先売上 に、表形式で表示させています。 このままでは、フォームが2つになるので、新たに基になるテーブルも クエリも持たない、フォーム_売買を作りました。 このフォーム_売買にテキストボックスを6つ作り次のようにしました。 テキストボックス｜コントロールソース ---------------------------------------- テキスト1(取引先)｜=Forms![取引先]![コンボ1] テキスト2(買取金額)｜=Forms![買取]![テキスト1] テキスト3(売上金額)｜=Forms![売上]![テキスト1] テキスト4(買取報償料)｜非連結 テキスト5(売上報償料)｜非連結 テキスト6(合計金額)｜=[テキスト2]+[テキスト4]-[テキスト3]-[テキスト5] ここで、問題になっているのが、フォーム_売買を表示させた時に、テキスト1は 普通にA社と表示されているのですが、テキスト2とテキスト3に金額が表示され ません。 しかし、テキスト4もしくはテキスト5に金額を入力すると、表示されるようになり ます。 テキスト4とテキスト5のどちらかには必ず金額を入力するので、このままでも とりあえずは計算出来ているのですが、できれば、フォームが表示された時に 初めからテキスト2とテキスト3には金額が入っていたほうがいいと思い、あれ これ試してみたのですが、出来ませんでした。 フォーム_取引先のコマンドボタンは次のように実行しています。 Dim stDocName As String Dim stDocName1 As String stDocName = "取引先売上" DoCmd.OpenQuery stDocName, acNormal, acEdit stDocName1 = "取引先買取" DoCmd.OpenQuery stDocName1, acNormal, acEdit DoCmd.OpenForm stDocName, acNormal DoCmd.OpenForm stDocName1, acNormal DoCmd.OpenForm "売買", acNormal どうすれば、フォーム_売買が表示された時に、テキスト2とテキスト3に金額が 入っているようになるのでしょうか。 素人が見よう見まねで作っておりますので、おかしい点が多々あるかと思い ますが、ご教授のほど、よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- Access64bitへ移行後、フォーム起動不安定
Access64bit移行後、特定のフォームの起動が不安定になりました。 3-4回目にようやく開くことができます。 ・開くことができない時は、エラーメッセージなし、Accessそのものが、異常終了しています。 ・一旦開いてしまえば、問題なく使用できます。 ・コマンドボタンで開きます。 DoCmd.OpenForm "フォーム名", acNormal, "", "", , acNormal ・データDBは、社内ネットワーク上のサーバにあります。各自のパソコンにあるAccessから、リンクテーブルで使用しています。 ・Access32bitでは上記不具合はありません。 エラーもなく、静かに異常終了してしまうため、原因の特定ができなくて困っています。 助言等お願いします
- ベストアンサー
- Access（アクセス）
- Access-フォームのCaption変更
お願い致します。 Access97のフォームのクラスモジュールでCaptionの変更を行うコードを書いたのですが、いまいちうまくいきません。 ご指導お願い致します。 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓ *********************************************** Private sub Form_Load() DoCmd.OpenForm "F_OPEN" Forms!F_OPEN!Msg.Caption="お待ちください" ************************************************ このForms!F_OPEN!Msg.Caption="お待ちください" のところで、エラーメッセージ 「'Item'メソッドは失敗しました:'Forms'オブジェクト」がでてしまうのです。 お願い致します。
- 締切済み
- オフィス系ソフト
- [Access2000] フォーム間で値の受け渡し
フォームから、DoCmd.OpenFormを使って、 別のフォームを子画面として開くようにしています。 そのときフォーム間で、Functionの引数と戻り値のような感覚で 値の受け渡しをしたいと思っています。 値をわたす方は、OpenFormの引数のいちばん最後にある OpenArgsを使うことでうまく解決できたのですが、 値を返す方のやり方がイマイチわかりません。 DoCmd.OpenForm "フォーム名",,,,OpenArgs （カンマの数が間違ってるかも…とりあえずテキトーです） という記述方法の他に、 DoCmd.OpenForm("フォーム名",,,,OpenArgs) という記述もできるようなんですが、そのようにすると 「＝」をつけろ、というようなエラーがその場で出ます。 MsgBoxでも同じようなことが起こりますが、 MsgBoxだと「vbOk」やら「vbCancel」やらを返してくれるので OpenFormでも似たようなことができるのかな…と思うのですが。
- ベストアンサー
- その他(データベース)
