Access VBA循环变量W声明范围1-3，调试显示值为4的问题求助

问题描述 #

在VBA子程序FTG_Calculations中，循环变量W声明范围为1 To 3，但调试时发现W的值始终为4。修改循环范围（如1 To 2、5 To 10）后，W值仍固定为4，完全不受设定范围影响。

完整代码 #

Option Compare Database
Option Explicit

Private Sub FTG_Calculations()

    'Declare Variable
    Dim L As Double
    Dim Length As Double
    Dim OrderFTG As Double
    Dim UoM As String
    Dim W As Double
    Dim frm As Access.Form
    Set frm = Forms!Frm_JobTicket
    
    'Set L equal to Length from Tbl_JobTicketMould
    L = DLookup("Length", "Tbl_JobTicketMould", "Access_ID =" & Forms!Frm_JobTicket!Part_Number)
    
    'Convert Length to Feet
    Length = (L \ 12)
    
    'Find Unit of Measure for this part
    UoM = DLookup("Unit_of_Measure", "Tbl_JobTicketUoM", "Access_ID =" & Forms!Frm_JobTicket!Part_Number)
    
    'If UoM is PCS then insert that number. Otherwise set equal to Quantity Ordered divided by Length of piece(in FT)
    If UoM = "PCS" Then Me.Txt_Pcs_JobTicket = Me.Quantity_Ordered Else: Me.Txt_Pcs_JobTicket = Abs(Int(Me.Quantity_Ordered \ Length))
    
    'Mupltiply Length times Quantity to get Order Footage
    OrderFTG = Int((Length * Me.Txt_Pcs_JobTicket))
    
    'Define limits of the loop. Then runs through all Wrap SQ FTG fields and inputs calculation
    For W = 1 To 3
    
       'If UoM is PCS then calculate Order Footage to find Wrap Sqaure Footage. Otherwise take slit size in FT and multiply by Order Quantity and Scrap Rate
    If UoM = "PCS" Then
    frm("Txt_Wrap" & W & "SQFTG_JobTicket") = (((frm("Wrap_Slit" & W) \ 12) * OrderFTG) * (Round((frm("RIP_Scrap_Rate")), 3) + 1))
    Else: frm("Txt_Wrap" & W & "SQFTG_JobTicket") = (((frm("Wrap_Slit" & W) \ 12) * frm("Quantity_Ordered")) * (frm("RIP_Scrap_Rate" + 1)))
    End If
    Next W

End Sub

调试截图 #

排查与解决方法 #

• 排查变量作用域冲突：检查当前模块或全局范围内是否存在同名的W变量（如Public W As Double），全局/模块级变量会覆盖局部变量，导致循环控制失效。解决方法是将局部变量W重命名（如intWrapIndex），或删除全局/模块级的W声明。
• 修复语法错误：注意到Else分支中的frm("RIP_Scrap_Rate" + 1)存在语法错误，字符串拼接应使用&而非+，该错误会触发类型不匹配异常，导致调试器停在循环结束后的W=4（Next W会让变量超出循环上限后退出）。根据业务逻辑修正：若要给废品率加1，改为frm("RIP_Scrap_Rate") + 1；若要按循环索引取对应控件，改为frm("RIP_Scrap_Rate" & W)。
• 优化变量类型：循环变量W是整数用途，却声明为Double，可能引发隐式转换问题。将Dim W As Double改为Dim W As Integer或Dim W As Long，更符合循环索引的类型需求。
• 验证循环执行过程：在For W = 1 To 3行设置断点，逐行执行（F8），观察W的初始值与每一步变化，确认是循环未初始化还是后续代码修改了变量值。同时检查窗体Frm_JobTicket中是否有名为W的控件，控件会优先于局部变量被引用，干扰变量正常使用。
• 添加调试输出：在循环开头添加Debug.Print "当前W值：" & W，实时输出变量值，快速定位变量异常的触发时机。

内容的提问来源于stack exchange，提问作者Zrhoden