コンボボックスの抽出の解除

質問

ACCESS 2000　OS：Win 2000を使ってます。

フォーム内にコンボボックスを作って、フォームのキーとなるコードでコンボボックスに出てくる値を毎回変えるようにしています。

ただ、あらかじめデータの入っているものならいいんですが、新規のデータを入力したときには、コンボボックスの値が何も出なくなります。

原因としては、データが確定されていない状態だからだと思うのですが、これをどうにかして新規のデータの際もキーとなるコードでコンボボックスに出る値を抽出できないでしょうか？

きっとVBAが書けたらできるかな～と思うのですが、VBAを触り始めたばかりで分かりません。

以下にコンボボックスに設定している抽出条件を表記しておきます。

どなたかご教授お願いします。

コンボボックスの値集合ソースには

SELECT [T派遣先担当者マスタ].[派遣先担当者CD], [T派遣先担当者マスタ].[派遣先担当者名], [T派遣先担当者マスタ].[派遣先担当者役職] FROM T派遣先担当者マスタ WHERE ((([T派遣先担当者マスタ].[契約先CD])=[Forms]![F派遣状況記録]![契約先CD]));

と書かれています。

そしてこれだと、データが移った際にコンボボックスの値が更新されないので、

Private Sub Form_Current()
Me![責任者CD].Requery
End Sub

でリクエリをしています。

回答No.1

noname#27115 · ベストアンサー

RequeryのタイミングをFormのイベントにするんじゃなくって、そのコンボボックスの Enter とか GotFocus とかの にしてはどうでしょうか？

Private Sub 責任者CD_Enter()
Me![責任者CD]=Requery
End Sub

Private Sub 責任者CD_GotFocus()
Me![責任者CD]=Requery
End Sub

お礼

GetFocus()でできました！！

ただ、それだけだと次のレコードを表示させたときに空白になってしまうので、Formのイベントも残したままにしました。

本当に助かりました。
ありがとうございました。