'复制新增模式

    If Nz(Me.OpenArgs) <> "" And Me.DataEntry = True Then
        LoadRecord Me, "Select * FROM [员工信息表] Where [员工ID]=" & SQLText(Me.OpenArgs)
        其它代码
    End If
    '编辑模式
    If Nz(Me.OpenArgs) <> "" And Me.DataEntry = False Then
        LoadRecord Me, "Select * FROM [员工信息表] Where [员工ID]=" & SQLText(Me.OpenArgs)
        其它代码
    End If
    
    '新增模式
    If Me.DataEntry Then
        其它代码
    End If