- ベストアンサー
ACCESS2000でOpenFormがエラーになる理由とは？
chayamatiの回答
- chayamati
- ベストアンサー率41% (254/607)
＞Office365では出ないことが首をかしげるところです。 そうですか、 たまにですが自分も 訳の分からないエラーに出くわすことがあります。 そんな時、新規に空のファイルを作成して、ここへ問題のファイルをインポートすると解決することがあります。参考URL 今回は次をお試しください ACCESS2016(office365）で動作しているファイルを名前を付けてaccess2000形式で保存してみ見て下さい
関連するQ&A
- アクセスＶＢＡ 変数を渡したい
フォーム１のcmd_ボタンをクリックして、フォーム2を開く際に、変数を渡したいのですが、どう渡せばいいのでしょうか？ Private Sub cmd_ボタン_Click() myStr = "あああ" DoCmd.OpenForm "フォーム2" (myStr) End Sub とすると、エラーになります。 文の書き方を教えてください。
- 締切済み
- オフィス系ソフト
- アクセスのマクロ
友人がアクセスで作ったマクロです。３行目で止まってしまいます。どこが悪いのでしょうか。（私は全くの素人でわかりません） Private Sub 記載事項入力ボタン_Click() DoCmd.Close acForm, "初期画面", acSaveYes DoCmd.OpenForm "入力フォーム", acNormal ←ここ End Sub
- ベストアンサー
- Visual Basic
- 「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 」がないからだめなのでしょうか？ すいません、助けてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセスフォームのサイズの調整について
一つは全画面表示（Maximize）で開きもう一つは普通の表示（Restore）で開くには？ フォーム１とフォーム２があります。画像をご覧ください。 フォーム１は Private Sub Form_Load() DoCmd.Maximize End Sub で、 フォーム２は Private Sub Form_Load() DoCmd.Restore End Sub としてます。 フォーム１にコマンドボタンを設置して、 Private Sub フォーム2を開く_Click() DoCmd.OpenForm "フォーム2" End Sub として、フォーム２を開くのですが、 フォーム2が開くとフォーム1まで、元の大きさに戻ってしまいます。 行いたいことは、 フォーム１は全画面表示、フォーム2は、ノーマルな表示（全画面でも最小化でもない） にしたいのですが、不可能なのでしょうか？
- ベストアンサー
- オフィス系ソフト
- VisibleとOpenFormは意味が同じ？
データベースにフォームが１つあります。 標準モジュールに Sub Visible() Form_フォーム1.Visible = True End Sub Sub OpenForm() DoCmd.OpenForm "フォーム1" End Sub を作り、どちらも実行させても同じ動きをします。（フォームが開きます） この二つは同じ動きをすると思っていいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- アクセスOpenForm 引数FilterName
テーブルをレコードソースとしているフォームがあるのですが そのテーブルのtestフィールドに値がいくつかはいっていて、「い」と言う値を抽出した状態で フォームを開きたいのですが Sub test() DoCmd.OpenForm "フォーム1", acNormal, "test ='い'" End Sub これは、意味がないのですか？ このコードを実行してフォームを開いても、 testにフィルタは適用されない状態で開きます。 また、ヘルプのFilterNameの項目を見ると ------------------------------------------- 有効なSQLWHERE句を文字列式で指定します。 ただし、WHEREという語を指定する必要はありません。 ------------------------------------------- と書いてありますが、"test ='い'"と言う記載の仕方は間違っていますか？ Private Sub Form_Load() Me.Form.Filter = "test ='い'" Me.Form.FilterOn = True End Sub だと、フィルタが適用されます。 OpenForm メソッドを使ってフィルタを適用する方法を教えてください。
- ベストアンサー
- その他MS Office製品
- DoCmd.OpenFormパラメータが表示される
いつもお世話になっています。 DoCmd.OpenFormで条件に合致するフォームが開く以下のコードを作成して使っています。 Private Sub send_Click() DoCmd.OpenForm "集計", acFormDS, , "[支所] =" & Me.支所 & " And [部署] =" & Me.部署, , acHidden End Sub [部署]はこれまで数値で表していましたが、テキストを使用することになりました。 上記のプロシージャを実行すると[部署] のところにパラメータが表示されて 入力すると指定の支所と部署のデータが表示されます。 別の質問で、テキスト型を検索する記述方法は教えていただいて解決したのですが、 パラメータを表示せずに上記の式に反映するにはどうしたらいいのでしょうか。 型は数値型からテキスト型に変更しています。 お力添えをお願いいたします。
- ベストアンサー
- その他(データベース)
- コマンドボタン名を取得して変数に代入したい。
OS:windowsＸｐ Access Version:Ｘｐ 既出でしたらすみません。 ＩＮＤＥＸのフォームにて複数コマンドボタンを作り、それを押すと各登録フォームや集計フォームが開くようにしています。 さて、質問なのですが、コマンドボタンで別のフォームを開く時の処理を（フォーム名が違うだけで後は同じなので）まとめて書きたいのです。 現在は次のようにやっています。 ------------------------------------------------- Private Sub F_メニュー_Click() Call close_form DoCmd.OpenForm "F_メニュー", acNormal, , , acFormEdit, acWindowNormal End Sub Private Sub F_売上伝票_Click() Call close_form DoCmd.OpenForm "F_売上伝票", acNormal, , , acFormEdit, acWindowNormal End Sub （中略） Private Sub 事業所別集計_Click() Call close_form DoCmd.OpenForm "F_事業所別集計", acNormal, , , acFormEdit, acWindowNormal End Sub Private Sub 消費税変更_Click() Call close_form DoCmd.OpenForm "F_消費税変更", acNormal, , , acFormEdit, acWindowNormal End Sub Private Sub システム終了_Click() Call close_form DoCmd.RunCommand acCmdExit End Sub Private Sub close_form() msgbx = False DoCmd.Close acForm, "ｉｎｄｅｘ", acSaveYes End Sub ------------------------------------------------- これを ボタン名_Click() ではなく frm_open() 押されたボタン名を変数に取得（ボタン名＝Form名にします。） DoCmd.OpenForm 押されたボタン名変数 のように共有したいのです。 どうすれば出来ますでしょうか？ご指導よろしくお願いします。
- 締切済み
- その他(データベース)
- AccessVBAにおけるOpenArgsの使用について
AccessVBAを最近はじめた初心者です。 ～～～フォーム1～～～ Private Sub コマンド0_Click() DoCmd.OpenForm "フォーム2", , , , , , "コマンド0" End Sub Private Sub コマンド1_Click() DoCmd.OpenForm "フォーム2", , , , , , "コマンド1" End Sub ～～～フォーム2～～～ Private Sub Form_Load() Dim strFormName As String strFormName = Forms.フォーム1.OpenArgs DoCmd.PrintOut strFormName End Sub 上のプログラムのようにフォーム1でクリックしたボタンによってフォーム2を読み込んだ時の動作を変えるプログラムを作成しようとしています。 しかし、実際に起動させると、『strFormName = Forms.フォーム1.OpenArgs』の辺りで 「Null の使い方が不正です。」 というエラーメッセージが表示されます。 Accessのヘルプを参照に組んでみたのですが、どの箇所が間違っているのでしょうか？ 回答、よろしくお願いします。
- 締切済み
- その他（プログラミング・開発）
- Access ２重３重のポップアップフォームの場合
Accessです。 フォームを3つ作りました。 フォーム1=「Ａ］ フォーム1=「Ｂ］＞ポップアップ「はい」 作業ウインド固定「はい」 フォーム1=「Ｃ］＞ポップアップ「はい」 作業ウインド固定「はい」 「Ａ」が開くとき Private Sub Form_Open(Cancel As Integer) ____DoCmd.OpenForm "フォーム2", , , , , acHidden ____DoCmd.OpenForm "フォーム3", , , , , acHidden End Sub として 「Ａ」にはボタンがあってクリックすると「Ｂ」が Visible=True になります。 Private Sub コマンド1_Click() ____Forms!フォーム2.Visible = True ____Forms!フォーム2.SetFocus End Sub さらに「Ｂ」にもボタンがあってクリックすると「Ｃ」が Visible=True になります。 Private Sub コマンド1_Click() ____Forms!フォーム3.Visible = True ____Forms!フォーム3.SetFocus End Sub 「Ｃ」が現れた後、マウスイベントがきかなくなります。 というより、閉じることもできなく、アクセス本体をＣＬＴ+ＡＬＴ+ＤＥＬで強制終了させなくてはいけなくなります。 対処方法を教えて下さい。
- ベストアンサー
- Visual Basic
補足
何度もありがとうございます。 私もおかしくなった時、空のファイルに元のファイルの構成パーツを全部インポートしたことがあります。今回はまだですのでやってみます。 また、365で2000形式での保存の方法ですが、今回は2000形式のまま365で開いていますので、現状で2000形式のままなのです。