連絡先フォームがあり、フォームのフィールドの 1 つが Contact_Type_ID です。このフィールドは、別のテーブルのテキスト フィールドにも対応する数値フィールドです (例: 1 = 国外居住者)。
連絡先を巡回すると、Contact_Type_ID は 1、2、3... であり、Non-profit、CEO、Vice-president などではありません。3 番の意味がわからないため、これは問題です。
対応するテキストのみを表示するコンボボックスが欲しいです。
2 つの列と 0;1 形式が機能しません。私の推測では、2 つの異なるテーブルから情報を取得しているためです。正しいリストを生成できますが、現在の連絡先の [Contact_Type_ID] を反映するために連絡先を循環しても、メイン エントリは変わりません。
このアプリケーションをはるかに大規模なデータベースに適用することになっているため、現在のテーブルを編集できません。
行ソースのSQLも設定してみました:
'Populate the connection combo box '
Dim typeSQL As String
typeSQL = "SELECT DISTINCT Contacts.[ContactTypeID], Contact_Types.[ContactType] " & _
"FROM Contacts, Contact_Types " & _
"ORDER BY Contact_Types.[ContactType];"
Me.cbo_ContactType.RowSource = typeSQL
ただし、同じ問題があります。連絡先を循環すると、コンボボックスが更新されません。行ソースと制御ソースの違いがわかりません。この違いがここで鍵になるのではないかと思います。