コンボボックスの更新

質問

アクセス２０００を使用しています.
業務名というコンボボックスがあるサブフォームをいくつかのフォームで表示しています。
コンボボックスの内容を編集したり追加、削除も出来るように業務名一覧というフォームを作成して、閉じるボタンをクリックした時のイベントで更新をする作業をしたいのですが、

Private Sub cmd閉じる_Click()

DoCmd.Close
Forms!F業務名一覧.Requery

で更新するという所までは分かるのですが、

Forms!フォーム名.サブフォーム名.コンボボックス名.Requery
とすると、開いていないフォームがあるためにエラーになってしまいます。
なにか良い方法があれば教えて下さい.

回答No.2

paz777 · ベストアンサー

こんにちは。

よく分からないのですが、コンポボックスのあるフォームは幾つか開いている
状態ですか？それとも１つだけですか？

で以下の方法で解決はできると思います。
１．業務名一覧フォームに可視しないテキストボックス（仮の名前「元フォーム」）
　　を作ります。
２．業務名一覧フォームを呼び出す時（開く時）に「元フォーム」にユニークな値を
　　設定する。
　　例えば「フォーム１」から呼び出す時は「1」「フォーム２」から呼び出す時は
　　「2」とかを設定する。
３．業務名一覧フォームを閉じる時、開いているフォームが１つだけならば（多分
　　呼び出し元のフォームだと思うのですが・・・）そのフォームに対して「Requery」
　　を実行する。
　　例）
------------------------------------------------------------------
Private Sub cmd閉じる_Click()

Dim MF As Integer
MF = Me![元フォーム]
DoCmd.Close
Forms!F業務名一覧.Requery

Select Case MF
Case 1
Forms!フォーム１.サブフォーム名.コンボボックス名.Requery
Case 2
Forms!フォーム２.サブフォーム名.コンボボックス名.Requery
End Select

End Sub
------------------------------------------------------------------
複数開いている状態であれば「SelectObject」コマンドでフォームが開いてい
るかどうかをチェックした後に「Requery」を実行する。
　　例）
------------------------------------------------------------------
Private Sub cmd閉じる_Click()

Dim RT_CD As Integer
Dim MF As Integer
MF = Me![元フォーム]
'
DoCmd.Close
Forms!F業務名一覧.Requery
'
' エラー設定開始
On Error GoTo Err_RTN:
'
' フォーム１が開いているかチェック
RT_CD = 0
DoCmd.SelectObject acForm, "フォーム１"
If RT_CD = 0 Then
Forms!フォーム１.サブフォーム名.コンボボックス名.Requery
End If
'
' フォーム２が開いているかチェック
RT_CD = 0
DoCmd.SelectObject acForm, "フォーム２"
If RT_CD = 0 Then
Forms!フォーム２.サブフォーム名.コンボボックス名.Requery
End If
'
' エラー設定解除
On Error GoTo 0:
'
' 呼び出し元のフォームに戻ります。
Select Case MF
Case 1
DoCmd.SelectObject acForm, "フォーム１"
Case 2
DoCmd.SelectObject acForm, "フォーム２"
End Select
Exit Sub
'
' エラールーチン
Err_RTN:
' フォームが開いていない時(2489)
If Err.Number = 2489 Then
RT_CD = 1
' その他のエラー
Else
RT_CD = 9
End If
Resume Next
End Sub
------------------------------------------------------------------
注意：RT_CDが「9」の時のハンドリングは考慮していません。
　　　必要に応じてバンドリングしてください。

ではでは・・・

補足

返事が遅れてすみません。
paz777さんに教えてもらった通り（フォームが複数開いている状態の場合）でしてみているのですが、

２．業務名一覧フォームを呼び出す時（開く時）に「元フォーム」にユニークな値を設定する。
例えば「フォーム１」から呼び出す時は「1」「フォーム２」から呼び出す時は「2」とかを設定する。

の箇所の設定がどうすればいいのか分かりません。
たびたびの質問ですみませんがよろしくお願いします。

回答No.3

paz777

こんにちは。paz777です。

>たびたびの質問ですみませんがよろしくお願いします。
いえいえ、お分かりになるまで質問してください。

では本題に・・・
>２．業務名一覧フォームを呼び出す時（開く時）に「元フォーム」にユニークな値を設定する。
>例えば「フォーム１」から呼び出す時は「1」「フォーム２」から呼び出す時は「2」とかを設定する。
>
>の箇所の設定がどうすればいいのか分かりません。

一応、"フォーム１"から"業務名一覧"を開く場合を例にします。
１．"業務名一覧"フォームを開くのをマクロで行っている場合には、
　　"フォームを開く"アクションの下に以下のアクションを追加します。
--------------------------------------------------------------
　"値の代入"アクション
　"アイテム" ← "Forms![業務名一覧]![元フォーム]"
　"式" ← "1"
--------------------------------------------------------------

２．"業務名一覧"フォームを開くのを"イベントプロシージャ"で行っている場合には、
--------------------------------------------------------------
DoCmd.OpenForm "業務名一覧"
Forms![業務名一覧]![元フォーム] = "1"
--------------------------------------------------------------
　　と記述します。

"フォーム２"から"業務名一覧"を開く時は"1"のところを"2"にしてください。

また何かありましたら補足ください。
ではでは・・・

お礼

大変遅くなりましたが、無事出来ました。
フォームが開いているかチェックするのに、SelectObject acFormを使用するというのは全然知らなかったので勉強になりました。
エラー処理までも教えて下さって本当に感謝します。
これからもよろしくお願いします。

回答No.1

Good-S15

開発７年、技術コンサル３年勤務している者です。

＞閉じるボタンをクリックした時のイベントで
＞更新をする作業をしたい
そうですが、これは仕様ですか？
仕様であれば、SE側というか
プログラム仕様書レベルのミスだと思います。
開いてないフォームを開き、開かれているフォームに
隠す感じでユーザの見た目をゴマカスようにする
しかないのではないでしょうか？

私も業務アプリは開発してきましたが、
追加、削除、更新、終了はそれぞれ
別の処理（イベント）で行ってきました。

補足

私もとりあえず再クエリをする時に開いていないフォームも全て開いてこのエラーを切り抜けていたのですが、やはりこの方法しかないのでしょうか？