有一段代码，有些内容是重复，可否有精简的方法

宏的故事

有一段代码，如何精简，不知道什么原因，在Access 板块那里发不了，一直出错，发这里了。

ACCESS 窗体中的一段代码。

If Me.txtType = "Rocker_Panel" Then
        Forms![frm04_01_first]![Rocker_Panel1] = Me.txtSupplyChain.Value
        Forms![frm04_01_first]![Rocker_Panel2] = Me.txtTapeSupplier.Value
        Forms![frm04_01_first]![Rocker_Panel3] = Me.txtTapePrice.Value
        Forms![frm04_01_first]![Rocker_Panel4] = Me.txtPriceUnit.Value
        Forms![frm04_01_first]![Rocker_Panel5] = Me.txtPriceToWhom.Value
        Forms![frm04_01_first]![Rocker_Panel6] = Me.txtComments.Value
        Forms![frm04_01_first]![Rocker_Panel7] = Me.txtTesaCAS_Project.Value
    ElseIf Me.txtType = "Door_Edge_Protection" Then
        Forms![frm04_01_first]![Door_Edge_Protection1] = Me.txtSupplyChain.Value
        Forms![frm04_01_first]![Door_Edge_Protection2] = Me.txtTapeSupplier.Value
        Forms![frm04_01_first]![Door_Edge_Protection3] = Me.txtTapePrice.Value
        Forms![frm04_01_first]![Door_Edge_Protection4] = Me.txtPriceUnit.Value
        Forms![frm04_01_first]![Door_Edge_Protection5] = Me.txtPriceToWhom.Value
        Forms![frm04_01_first]![Door_Edge_Protection6] = Me.txtComments.Value
        Forms![frm04_01_first]![Door_Edge_Protection7] = Me.txtTesaCAS_Project.Value
    ElseIf Me.txtType = "Wheel_Arch" Then
        Forms![frm04_01_first]![Wheel_Arch1] = Me.txtSupplyChain.Value
        Forms![frm04_01_first]![Wheel_Arch2] = Me.txtTapeSupplier.Value
        Forms![frm04_01_first]![Wheel_Arch3] = Me.txtTapePrice.Value
        Forms![frm04_01_first]![Wheel_Arch4] = Me.txtPriceUnit.Value
        Forms![frm04_01_first]![Wheel_Arch5] = Me.txtPriceToWhom.Value
        Forms![frm04_01_first]![Wheel_Arch6] = Me.txtComments.Value
        Forms![frm04_01_first]![Wheel_Arch7] = Me.txtTesaCAS_Project.Value
   End If

宏的故事

有高手帮忙看看。

宏的故事

顶一下。。。。

ww111222

自定义一个函数，然后  3个 都调用这个函数

as42065300

1. Dim ControlName$
   
2. 
   
3. If Me.txtType = "Rocker_Panel" Then
   
4.        ControlName = "Rocker_Panel"
   
5.    ElseIf Me.txtType = "Door_Edge_Protection" Then
   
6.        ControlName = "Door_Edge_Protection"
   
7.    ElseIf Me.txtType = "Wheel_Arch" Then
   
8.         ControlName = "Wheel_Arch"
   
9. End If
   
10.         Form_ [frm04_01_first].Controls(ControlName & 1) = Me.txtSupplyChain.Value
    
11.         Form_ [frm04_01_first].Controls(ControlName & 2) = Me.txtTapeSupplier.Value
    
12.         Form_ [frm04_01_first].Controls(ControlName & 3) = Me.txtTapePrice.Value
    
13.         Form_ [frm04_01_first].Controls(ControlName & 4) = Me.txtPriceUnit.Value
    
14.         Form_ [frm04_01_first].Controls(ControlName & 5) = Me.txtPriceToWhom.Value
    
15.         Form_ [frm04_01_first].Controls(ControlName & 6) = Me.txtComments.Value
    
16.         Form_ [frm04_01_first].Controls(ControlName & 7) = Me.txtTesaCAS_Project.Value
    

复制代码

as42065300

更简单点连判断都不需要了
Form_ [frm04_01_first].Controls(Me.txtType & 1) = Me.txtSupplyChain.Value
Form_ [frm04_01_first].Controls(Me.txtType & 2) = Me.txtTapeSupplier.Value
Form_ [frm04_01_first].Controls(Me.txtType & 3) = Me.txtTapePrice.Value
Form_ [frm04_01_first].Controls(Me.txtType & 4) = Me.txtPriceUnit.Value

宏的故事

as42065300 发表于 2018-8-28 20:01
更简单点连判断都不需要了
Form_ [frm04_01_first].Controls(Me.txtType & 1) = Me.txtSupplyChain.Value
...

这个更简单的，就是最棒的，太感谢了！