レコードの移動でコンボボックスの値を変化させる

Question

レコード移動時、連結フォームのテキストボックスの値を元にコンボボックスの値を変化させたい。

Private Sub Form_Current()
Me.コンボボックス.Column(1)　＝　Me.テキストボックス
end sub

コンボボックスの列は2つで、2列目の値　= テキストボックスの値となります。

エラーになります。
実行時エラー424
オブジェクトが必要です。

Comments

[hatena19]

タグにAccessを追加したほうがいいでしょう。

Answer 1

コンボボックスの列はテーブルからだと上手く表示されない為、クエリにて列を変えた物を作成しレコードの移動時にテキストボックスの値を元に表示が変わる様にしました。

Private Sub Form_Current()
Me.コンボボックス_CMB = Me.テキストボックス
End Sub

Answer 2

Columnプロパティは参照のみ可能なプロパティですので、代入するそのようなエラーになります。

連結フォームの連結コンボボックスなら、コントロールソース、連結列、列数、列幅を適切に設定すればVBAを使わなくても希望のデータを表示できるはずです。

非連結コンボボックスなら、どのような用途のものなのかの背景の説明が必要です。

上記のヒントで分からなければ、現状のコンボボックスの コントロールソース、連結列、列数、列幅、値集合ソースの設定と、どのようなことをしたいのかの具体的に説明を質問に追記してください。