テーブルに追加したデータフォーム再起動することなくコンボに表示させたい

アクセス2003を使用しています。

図のように
テーブル1とフォーム1があります。
フォーム1の中にはコンボ0があり、値集合ソースはテーブル1です。

テーブル１にデータが追加されれば
それに伴いコンボ0に表示されるデータも追加させていきたいのですが

１、テーブル１に「5」を追加する
２、テーブル１を保存する。
３、コンボ0を開く

をしても新たに追加した「５」は表示されません。
一度フォーム1を閉じて、再度開けば「５」は表示されます。

そうではなく、リアルタイムに
テーブル１に追加したデータを
フォーム１再起動することなくコンボ0に表示させることは可能でしょうか？

vbaで
Private Sub コンボ0_Click()
RowSource = "テーブル1"
End Sub
とやってみましたが
何も変わりませんでした。

ご教授よろしくお願いします。

No.1 ベストアンサー 回答者： n-jun 回答日時： 2009/05/06 21:53

イベント＞フォーカス取得後を用いて

Private Sub コンボ0_GotFocus()
コンボ0.RowSourceType = "Table/Query"
コンボ0.RowSource = "テーブル1"
End Sub

とかではどうでしょうか？

この回答へのお礼

できました！
ありがとうございます。

お礼日時：2009/05/06 23:47

No.2 回答者： 30246kiku 回答日時： 2009/05/06 22:48

Private Sub コンボ0_Enter()

　　Me.コンボ0.Requery
End Sub

では、どうなりますか。
（フォーカス取得時に、再クエリします）

この回答へのお礼

ありがとうございます！できました。

お礼日時：2009/05/06 23:48