百思不得其解，我的问题出在哪？

哈哈，终于找出问题了。是窗体代码出错了，原来的如下

Private Sub Form_Activate()
    '把系统登录人员的“用户名”赋予“制单人”文本框
    Me![制单人] = UserName
    If IsNull(varTemp(0)) Or varTemp(0) = "" Then
        Exit Sub
    End If
    If IsNull(Me![销售管理 子窗体]![货号]) Then
        Me![销售管理 子窗体]![货号] = varTemp(0)
        Me![销售管理 子窗体]![资料名称] = varTemp(1)
        Me![销售管理 子窗体]![单位] = varTemp(2)
        Me![销售管理 子窗体]![类型] = varTemp(3)
        varTemp(0) = ""
        varTemp(1) = ""
        varTemp(2) = ""
        varTemp(3) = ""
    End If
End Sub

改成下面的就可以了

Private Sub Form_Activate()
    '把系统登录人员的“用户名”赋予“制单人”文本框
    Me![制单人] = UserName
    If IsNull(varTemp(0)) Or varTemp(0) = "" Then
        Exit Sub
    else   

        Me![销售管理 子窗体]![货号] = varTemp(0)
        Me![销售管理 子窗体]![资料名称] = varTemp(1)
        Me![销售管理 子窗体]![单位] = varTemp(2)
        Me![销售管理 子窗体]![类型] = varTemp(3)
        varTemp(0) = ""
        varTemp(1) = ""
        varTemp(2) = ""
        varTemp(3) = ""
    End If
End Sub

再次感谢帮助回答我问题的各位老师,你们的热心回答使我感觉了这个论坛的活力，也促使我会力所能及的回答别人的问题。