ACCESS　VBA

前提・実現したいこと

やりたいことは
ACCESSのVBAでメインフォームからサブフォームの新規レコードに移動したい。

発生している問題・エラーメッセージ

実行時エラー　'2105'
指定したレコードに移動できません。

となりエラーとなってしまいます。

該当のソースコード

メインフォーム:F001_メイン
サブフォーム：F002_サブ

ACCESS VBA


DoCmd.OpenForm "F002_サブ", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "F002_サブ", acNewRec　←ここで実行時エラーとなります、

試したこと

ACCESS2007では上記のコードで問題なく動くのですが、ACCESS2016では実行時エラー（2105）となってしまいます。

補足情報（FW/ツールのバージョンなど）

※ACCESS　2010、2013でも同様にエラーになります。

sousuke

2018/02/13 01:46

件名は質問内容を簡潔に記したものがよろしいかと

行動規範の内容に同意します

回答5件

「F002_サブ」というのはメインフォームのサブフォームコントロールに埋め込まれたものですか。

提示のコードは、「F002_サブ」を別フォームとして開いて、そのフォームで新規レコードに移動するコードになってますが、それが希望のことですか。

サブフォームコントロールに埋め込まれたものだとしたら、下記のようなコードになります。

メインフォームのモジュールのコード

vba
1Me.サブフォームコントロール名.SetFocus
2DoCmd.GoToRecord , , acNewRec '※1

※1　第１引数、第２引数を省略するとフォーカスのあるフォームのレコード移動になる。
あるいは、

vba
1Me.サブフォームコントロール名.Form.RecordSet.AddNew

こちらの方法では、フォーカス移動させる必要はない。

別フォームとして開くのが希望なら、提示のコードで問題ないはずです。そのエラーが出るなら、フォームのレコードソースが更新不可になっているか、「追加の許可」が「いいえ」になっいるかが原因と考えられます。

投稿2018/02/13 01:09

hatena19

総合スコア34362

hrkst007

2018/02/14 13:51

ご回答ありがとうございます。別フォームで開くのが希望でして、フォームのレコードソースや追加の許可を確認しましたが、問題ありませんでした。 1番気になるのが、ACCESS2007で問題なく動いていたものが、ACCESS2016で動かなくなるのが、何故なのか、色々ネット等で調べましたが参考にになる情報がありませんでした。同じソースコードでもACCESSのバージョンによって動作が変わってしまうのでしょうか。素人的な質問で申し訳ありません。

hatena19

2018/02/15 00:53

開いたフォームがアクティブになる前にレコード移動しているのかも。 Forms!フォーム名.Recordset.Addnew で移動したらどうでしょう。これならアクティブでなくても移動できますので。

行動規範の内容に同意します

サブフォームの詳細のプロパティに『可視』という項目があり、ここがいいえになっていたので、はいにしたら、解決しました。
回答いただいた皆さんありがとうございました。

投稿2018/02/24 02:07

hrkst007

総合スコア7

ベストアンサー

要件は大体分かるんですがコードを見るとちょっと状況がよくわかりません。
メインフォーム:F001_メイン
サブフォーム：F002_サブ
であるなら「F001_メイン」は既に開いていて、その中に「F002_サブ」が
サブフォームコントロールに埋まっているものと想像するんですが

VBA
1DoCmd.OpenForm "F002_サブ", acNormal, "", "", , acNormal

↑これがあるのでどういう状況なのか非常に迷います。

「メインフォームからサブフォームの新規レコードに移動」とあるので
サブフォームコントロール名にSetFocusしacNewRecすればいいはずです。

VBA
1Me.<サブフォームコントロール名>.SetFocus
2DoCmd.GoToRecord , , acNewRec

#検証
同じAccess2013でもエラーになるものと出ないものがあるようです。
windows server 2012R2の「15.0.4981.1001」では失敗。
windows10の「15.0.4963.1001」ではエラーが出ません。OSも違いますが
Accessのバージョンのせいかなと思います。

投稿2018/02/13 01:40

sousuke

総合スコア3830