Question

我想将当前登录的官员的OfficerID作为默认值插入到表T_FileCases中。

我已经在登录表单中有一个字段，当他们成功登录时会保存官员的姓名（UserName），但是当发生这种情况时，我还想自动将他们的OfficerID自动插入到表T_FileCases中，而不是使用组合框在创建新案例时选择人员姓名。

Me.Hold_User_ID = Nz(DLookup("OfficerID", "Table_Officers", "Names='" & Me.UserName & "' and NRC='" & Me.PWD & "'"), -1)
    ' check to see if we have a good login
    If Me.Hold_User_ID = -1 Then
        MsgBox "Sorry boss, you typed invalid username or password.", vbExclamation
        Exit Sub
    Else
        ' load the users access level into the holder form field
        Me.hold_level = DLookup("Access_Level", "Table_Officers", "Names='" & Me.UserName & "' and NRC='" & Me.PWD & "'")

    End If

Answer 1

在数据输入表单的Before Insert事件中，您可以创建一个事件过程来检查UserID并使用适当的值填充该字段。

这将要求此时能够检索UserID，方法是将登录表单隐藏在后台，或者在验证时将登录表单中的值分配给Global变量。

从代码中将默认值插入ms访问表

1 个答案: