请各位朋友帮忙看看下面的代码哪里出了问题？

qpzm

Accessories是主窗体，Acc_TsUseAcc和Acc_TsQTY是子窗体，下面代码是另外一个叫Acc_TsInGroup02子窗体“成为当前”的事件代码，通过它控制Acc_TsUseAcc和Acc_TsQTY是子窗体的读写情况，当我打开Accessories主窗体时出现一个对话框，提示：“您输入的表达式对属性 Formeports 引用无效”，按确定后可打开Accessories主窗体，功能没影响；

当我把：

            Forms!Accessories!Acc_TsUseAcc.Form.AllowEdits = False

            Forms!Accessories!Acc_TsUseAcc.Form.AllowAdditions = False

            Forms!Accessories!Acc_TsUseAcc.Form.AllowDeletions = False

        

            Forms!Accessories!Acc_TsQTY.Form.AllowEdits = False

            Forms!Accessories!Acc_TsQTY.Form.AllowAdditions = False

            Forms!Accessories!Acc_TsQTY.Form.AllowDeletions = False



这段删除后就不会出现那个对话框，当然也就不能禁止两个子窗体修改了。

为什么在Else前面的没问题，后面的会有问题？请各位帮忙看看，谢了！



Private Sub Form_Current()   

    Dim strParentDocName As String

    On Error Resume Next

    strParentDocName = Me.Parent.Name

    If Err <> 0 Then

        GoTo Form_Current_Exit

    Else

        On Error GoTo Form_Current_Err

        Me.Parent![Acc_TsQTY].Requery

        Me.Parent![Acc_TsUseAcc].Requery

        

        Dim varName As Variant

        Set varName = Forms!Accessories!TempName

        If Me.UserName = varName Then

   

            Forms!Accessories!Acc_TsUseAcc.Form.AllowEdits = True

            Forms!Accessories!Acc_TsUseAcc.Form.AllowAdditions = True

            Forms!Accessories!Acc_TsUseAcc.Form.AllowDeletions = True

        

            Forms!Accessories!Acc_TsQTY.Form.AllowEdits = True

            Forms!Accessories!Acc_TsQTY.Form.AllowAdditions = True

            Forms!Accessories!Acc_TsQTY.Form.AllowDeletions = True

        

        Else

   

            Forms!Accessories!Acc_TsUseAcc.Form.AllowEdits = False

            Forms!Accessories!Acc_TsUseAcc.Form.AllowAdditions = False

            Forms!Accessories!Acc_TsUseAcc.Form.AllowDeletions = False

        

            Forms!Accessories!Acc_TsQTY.Form.AllowEdits = False

            Forms!Accessories!Acc_TsQTY.Form.AllowAdditions = False

            Forms!Accessories!Acc_TsQTY.Form.AllowDeletions = False

            

        End If

        

        

    End If

Form_Current_Exit:

    Exit Sub

Form_Current_Err:

    MsgBox Err.Description

    Resume Form_Current_Exit

End Sub

GORYUNGBBS

朋友，用F8 运行，STEP BY STEP 就知道问题出在哪句啦

海狸先生

如果不行，可以上传你的文件