数据表窗体控件当前值引用的补充

有表：商品名称表 ： 主键：商品名称  字段名称：商品名称ID（数字） 商品名称（文本)

                                 1                 A

                                 2                 B

表：商品型号表：主键：商品型号ID 字段名称：商品型号ID（数字） 商品型号（文本） 商品名称（文本）

                                 1               A-001          A

                                 2               A-002          A

                                 3               B-001          B

                                 4               B-002          B

表：库存变动表：主键：库存变动ID 字段名称：

   库存变动ID（数字）  商品名称（文本）  商品型号（文本） 变动类型（文本） 数量（数字）

根据库存变动表 创建一名称是 库存变动  的数据表窗体  控件如下

   库存变动ID     商品名称   商品型号   变动类型     数量

我想要的结果是  用VBA代码 完成 如下的问题

  在 库存变动 数据表窗体 中

   在  商品名称   输入  A   商品型号 即显示下拉选择菜单 A-001

                                                     A-002

请大侠回答