Microsoft Access 掲示板

追加ボタンのクリックイベント Private Sub btn追加_Click() 内の下記のコードも修正する必要があります。

    With rs                                     '「T_依頼」にレコードを入力する
        .AddNew                                 'レコードを入力する
        .Fields("依頼ID") = Me!txt依頼ID
        .Fields("依頼日") = Me!txt依頼日
        .Fields("依頼者") = Me!cmb依頼者.Column(2)
        .Fields("W_No") = Me!cmbWNo.Column(7)
        .Fields("品名") = Me!txt品名
        .Fields("希望処置") = Me!cmb希望処置
        .Fields("ロット番号") = Me!txtロット番号
        .Fields("ロット枝") = Me!cmbロット枝
        .Fields("巻き長さ") = Me!txt巻き長さ
        .Fields("依頼理由_1") = Me!cmb依頼理由1.Column(1)
        .Fields("依頼理由_2") = Me!cmb依頼理由2.Column(1)
        .Fields("依頼理由_3") = Me!cmb依頼理由3.Column(1)
        .Fields("補足説明") = Me!txt補足説明
        .Update                                   'レコードを更新する
    End With

1列目以外を代入しているのは、格納値(.Value)を代入するようにしてください。

    With rs                                     '「T_依頼」にレコードを入力する
        .AddNew                                 'レコードを入力する
        .Fields("依頼ID") = Me!txt依頼ID.Value
        .Fields("依頼日") = Me!txt依頼日.Value
        .Fields("依頼者") = Me!cmb依頼者.Value
        .Fields("W_No") = Me!cmbWNo.Value
        .Fields("品名") = Me!txt品名.Value
        .Fields("希望処置") = Me!cmb希望処置.Value
        .Fields("ロット番号") = Me!txtロット番号.Value
        .Fields("ロット枝") = Me!cmbロット枝.Value
        .Fields("巻き長さ") = Me!txt巻き長さ.Value
        .Fields("依頼理由_1") = Me!cmb依頼理由1.Value
        .Fields("依頼理由_2") = Me!cmb依頼理由2.Value
        .Fields("依頼理由_3") = Me!cmb依頼理由3.Value
        .Fields("補足説明") = Me!txt補足説明.Value
        .Update                                   'レコードを更新する
    End With

.Value は省略することかは可能です。 Me!cmb依頼者.Value と Me!cmb依頼者 は同じ意味になります。