平台问题

好好　发表于：2013-09-08 14:04:49 　

我定义了变量,personID,决定了制单人,审核人等等于登陆人,那么我可以一次性赋值给PERSONID= Forms!usysfrmLogin!userName吗?不用每个窗体弄

曾经尝试在usysfrmlongin窗体中像以下这样改,但是不行的,该如何解决呢
Private Sub cmdok_click()
personID = Me.txtUserName.Value   '放这里是不对的
    On Error GoTo Err_cmdOK_Click:
    g_usysfrmLogin_cmdLogin    '  -----------系统代码,请勿修改-----------
Exit_cmdOK_Click:
    Exit Sub
Err_cmdOK_Click:
    Resume Exit_cmdOK_Click
End Sub

Top

hongyin 发表于：2013-09-10 13:32:29

应该是可以的。

这是新平台上测试的。

首先，得在模块中定义全局变量personID

Public personID

usysfrmlongin窗体中像以下这样改

Public Sub btnLogin_Click()
    On Error GoTo ErrorHandler
    
    If Not Form_SysFrmLogin_btnLogin_Click() Then
        Exit Sub
    End If
    
    If UpdateClient() Then
        Exit Sub
    End If
    
    If ReleaseTempDB() Then
        '始终打开一个动态集的表，可以极大的提高网络访问Access数据库的速度
        'Set grstDBAccelerate = CurrentDb.OpenRecordset("Organizations")
        RelinkTempDB
        WriteOperationLog , Me.Caption ' "Login"
        Application.Echo False

        personID = Me.txtUsername.Value

        DoCmd.OpenForm "SysFrmMain", OpenArgs:="Logged"
        On Error Resume Next
        DoCmd.Close acForm, Me.Name, acSaveNo
        Application.Echo True
    End If
    
ExitHere:
    Exit Sub

ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

[5分]平台问题