Q&A
該当のコードを実装しましたがエラーの発生は認められませんでした。
現在Accessにて業務アプリケーションの作成を行っております。
つくりとしては単票フォームの編集画面内に紐づいた帳票フォームをサブフォームを表示しています。
---------単票フォームA-----------| | | | -----帳票フォームB-----| | | | | | | | | | | | | | | | | | -----------------------------------
単票フォームAを新規で開き値を入力した際
帳票フォームBの値が入力できなくなってしまいます。
Aの既存データを編集で開いた場合や新規で開いた後何も入力する前であれば
Bの値を変更することができるのですが、A変更後にBが触れなくなってしまいます。
どのように調べればいいかもわからず困っています。
単票フォームAのDBKeyを帳票フォームBのDBにリレーションを張っています
A-DB
AID オートナンバー
Column1 数値型
Column2 文字列型
B-DB
BID オートナンバー
AID-リレーション 数値型
Column3 数値型
Column4 文字列型
単票フォームA
データソースA-DB
帳票フォームB Aのリレーションに紐づいて表示
データソースB-DB
どうぞよろしくお願いいたします。
Access2019、Windows10を利用しています。
回答3件
0
メインフォーム/サブフォームの作成手順を再確認されたら如何でしょうか。
【リレーションシップ作成時】
1.B-DB(AID-ﾘﾚｰｼｮﾝ)とありますが、A-DBにキー値なしでﾘﾚｰｼｮﾝ出来ましたか。
(A-DBにキー無いとできない様な気がします。)
2.リレーション作成時に、参照整合性/フィールド連鎖更新/レコードの連鎖削除にチェック入りましたか。
3.2までOKなら。A-DBテーブルを見るとB-DBが下部へ結合して見えます。
【サブフォーム作成時】
1.クエリの作成。A-DB+B-DBでクエリを作成。
(キーは勝手に入り結合されます。)
2.フォームの作成。上記作成クエリを指定して、フォームのウィザードより作成。
ウィザードより作成することで、サブフォームの選択画面が表示されます。
選択画面が無ければ、その前の手順に誤りがあります。
キー値の指定が怪しい感じはします。
A-DBキー：AID
B-DBキー：AID・BID
が一般的かと思いますので、上手く行かない様でしたらやってみてください。
p.s.
私自身はリレーションシップを使ってシステム作成した経験がありません。
参考程度の情報となります。
投稿2020/05/29 07:49
総合スコア553
0
メインフォームとサブフォームのレコードソースで指定している中に同じテーブル(クエリーであればそのクエリーの中も含む）が存在していませんか？
そうであれば、競合が発生していると思われます。
該当しているようであれば以下を参考に。
データの競合メッセージを無視するには？
投稿2020/05/29 04:44
編集2020/05/29 04:46
総合スコア25195
競合は発生する状況ですか？
競合自体は発生していないと考えられます。
ただAを変更することで紐づけて開かれていたBに影響が出ているのでは、と思っています。
取り敢えず、フォームの更新後処理で、サブフォーム.requeryを行ってみてはどうでしょうか。
また、単に別なテーブルを単体で指定しているという事でなければ、レコードソースは具体的に示して下さい。
サブフォームのRequeryは行っていますが入力等できなくなってしまうままです。
メインフォームではどのような更新を行うのでしょうか？
その更新項目が、サブフォームの連結項目であるなら、サブフォームは追加を許していますか？
※質問をスルーされていますが、全て答えて下さいね。
すいませんレコードソースを具体的に、がよくわかりませんでした。
自分なりに質問自体に編集を加えましたが結果的にスルーしてしまっていたようで申し訳ありません。
メインフォームではA-DBの内容の編集登録を行います。
サブフォームではA-DBに紐づいたB-DBデータの登録編集を行います。
質問としてはA-DBの内容の変更を行うとB-DBの変更が行えなくなってしまうという内容でした。
サブフォーム内での追加などは許可している状態でしたが、
Cancel=Trueによって変更中のA-DBの項目がロックされることでB-DBが編集できなくなってしまっていたようです。
質問される方は適当な内容とされる方が多いので、確認したかったのです。
作り方ならそれでもいいですけど、エラーとか動きがおかしいなどの場合は、実際の情報を提示して貰わないと横道にそれる事が多いもので。
なるほど、丁寧に付き合ってくださってありがとうございました。
今後質問する際に気を付けたいと思います！
0
自己解決
VBA
1'フォームの更新前処理 2Private Sub Form_BeforeUpdate(Cancel As Integer) 3 Cancel = True 4End Sub
保存以外では保存できないように上記処理を加えていましたが、これを外すことで
値変更後も編集できるようになりました。
お騒がせしました。
回答してくださったsaziさん誠にありがとうございました。
投稿2020/05/29 07:31
総合スコア20
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。