>ACCESSのサブフォームコピーについて入力中の回答があります。ページを離れますか?※ページを離れると、回答が消えてしまいますページを離れるA回答を続ける入力中のお礼があります。23:42回答数:17件ACCESSのサブフォームコピーについてお世話になります。検索してたのですがなかなか解決できず、教えて下さい。下記のようなフォームがあります。メインフォームにボタンを設置し、メインフォームとサブフォームを同時にコピーしたいです。プロシージャ]に下記が記載してあります。Sub---これではメインフォームのコピーしか出来ません。サブフォームも一緒にコピーしたいのですが、どういった方法があるでしょうか。通報するこの質問への回答は締め切られました。デバッグ」に関するQ&A:VBAにおいて「デバッグ」と「コンパイル」は同じ意味ですか?「CHR」に関するQ&A:chr関数の戻り値について質問です。23:27No.16です。数日のタイムラグはありますので大丈夫です(^^)とりあえず、それを聞いて安心しました。フォーカスはサブフォームのレコードを貼り付けたところで止まっています。前回回答した「フォーカス移動の対応」を入れる前にはエラーがなかったことから考えても、改修部分での発生と思います。思いつくパターンをこちらのサンプルで確認したところa)「Me!」の直後の部分(IDやサブフォーム名)を、実際にはない「ID1」などにした場合:「2465」の当該フィールドがないとのエラーb)「Me.」の直後の部分(GotoPage)に、実際にはない「GotoPageA」などを指定した場合:コマンドボタンを押した直後にコンパイルエラーc)「Me!」の後に続いて、「.」で始まる「SetFocus」や「SourceObject」を、それぞれ「SetFocus1」や「SourceObject1」にした場合:「438」のサポートしていないとのエラーという結果になりましたので、「c」の部分のスペルミスの可能性が高いように思います。・・・IDやサブフォームがコントロールであることをわかりやすくする意味で、先頭に「Me!」をつけたのですが、実際には「Me!」はなくても正しく動作します。○○のコンパイル(L)」をクリックしてみてください。間違いがあった部分が反転表示されますので、そこが修正が必要な箇所ということになります。(「.SetFocus」「.SourceObject」の部分を削除後、IDやサブフォーム名の後ろに半角ピリオド「.」を入力すると、指定できるパラメータの候補が表示されるので、そこから選ぶのが一番確実です:予め「Me!」を削除しておかないと、この機能は働かないのでご注意を)・・・もしも上記とは別のところでエラーが発生していた場合は、そこに対して、同様の手順を試してみてください。エラー処理」の先頭に「'」を追加して、独自のエラー処理を無効化してから、再度コピー処理を実行してみてください。(エラーメッセージに『デバッグ』というボタンが表示されるので、それをクリックすると、エラー箇所が黄色表示されます)※メニューから「実行(R)→リセット(R)」を選択するか、ツールバーのリセットボタン(青い四角形)を押して黄色表示を解除した後、その行を改修します。VBAに表示制限用のパスワードを設定している場合は、予めパスワードを通しておかないと、エラーメッセージの『デバッグ』ボタンは押せないので、ご注意下さい。通報するこの回答へのお礼できました!!!感動です(T▽T)ありがとうございます!エラーの原因は画像で頂いた、メインフォームのIDの名前が違いました。変更した記憶もなく・・・。数年前から積み重ねてきたファイルだったので、何かの時に編集したままになっていたのでしょう(汗ともかく、思った通りの動作になりまして大変満足しております。説明も分かりやすく、とても感謝してます。ありがとうございました。23:56No.14です。可能でしょうか?可能です。・・・可能なんですが、その動作の検証のためにサンプルを動かしてみたところ、動作に重大な欠陥が発生することがわかりました(汗)具体的には、2回目以降のコピーでエラーが発生し、画面上はコピーされているように見えるのに、その状態でフォームを閉じてから再度開くと、2回目のサブフォーム分のレコードがなくなっている、という恐ろしいものです(汗)大変申し訳ありません。0」を第2及び第3引数に指定しています。"SF_サブ"'右辺はダブルクォート(")で括る必要があります。前回のコードで既に本番データの入力作業を実行されていないことを祈ります(汗)重ねてお詫び致します。回答ありがとうございます。サブレコードが消える件は、幸いまだWebを見ていませんでした。念のためテストデータで検証後に本データに反映させますので、数日のタイムラグはありますので大丈夫です(^^)「438:オブジェクトは、このプロパティまたはメソッドをサポートしていません。」というエラーメッセージが出ました。フォーカスはサブフォームのレコードを貼り付けたところで止まっています。0ということですよね?念のため【改修後・パターン2】も試してみましたが、同じエラーが出てしまいました。ダブルクォートの中はサブフォーム名にしましたが。11:08>最初のメッセージボックスで「キャンセル」>を押してもコピーが実行されるようです。