データ入力フォームを使用して特定のフィールドを自動入力する

Question

私は2つのテーブルを持っていますが、それはemployeesとcustomersとしましょう。

employeesはかなり基本的なものです：

ID | title | emp_name | building | email | phone 

customersはあまり違いはありません。

ID | cust_name | address | phone | emp_title | emp_name 

私はcustomersへのデータ入力に使用されるフォームを持っています。フィールドのうちの2つはemployee_titleとemployee_nameです。

employee_nameは、コントロールソースがemployee_nameで、行ソースがSELECT [employees].emp_name FROM employees;であるコンボボックスです。 employee_titleを必要とするAfter Updateイベントもあります。

employee_titleの場合、コントロールソースは=DLookUp("title","employees","emp_name = '" & [employee_name] & "'")です。

これはフォーム自体にとって問題ありません。プルダウンから従業員の名前を選択すると、その従業員の名前が正しく表示されます。ただし、従業員のタイトルはcustomersテーブルに挿入されません（他のすべてが正しく挿入されています）。私は完全にMS Accessに精通していませんが、99％はコントロールソースがDLookUpであり、テーブルへの参照ではないためです。

従業員のタイトルをフォームに表示し、顧客のテーブルに挿入するにはどうすればよいですか？

Answer 1

これを正しく処理するには、VBAを少し使用する必要があります。

まず、emp_titleにemployee_titleのコントロールソースを設定（またはtitle、またはemployee_title、あなたの質問には、この列の名前について少しあいまいです）。

次に、employee_nameコンボボックスに次のコードを追加します。

Private Sub employee_name_AfterUpdate() 
    employee_title = DLookUp("title","employees","emp_name = '" & employee_name & "'") 
End Sub