[MS Access]根据数据表格

Question

所以这是数据表格式

在组合框中，我根据员工ID

设置值

截至目前，我查看了.CurrentRecord，但返回的行号不是ID。 我可以成功地将.CurrentRecord值传递给表单，并将其设置为ComboBox问题，行数不一定等于Employee ID

我想要的是用户能够选择作为员工的工作表上的记录，当用户按下“培训”按钮时，它会显示第二个表单，并将组合框设置为该员工ID。

Answer 1

记录值，以便在使用计时器事件单击按钮时不会丢失，时间设置为500

Private Sub Form_Timer()
    value = Me.EID.value
End Sub

我使用DoCmd.OpenForm最后一个参数传递了值。

Private Sub trainings_Click()
    On Error GoTo trainings_Click_Err

    ' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
    ' <UserInterfaceMacro For="show_trainings" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application"><Statements><Action Name="OpenForm"><Argument Name="FormName">Employee
    ' _AXL:Trainings</Argument><Argument Name="WhereCondition">="[ATTUID]="  &amp;"'" &amp;[ATTUID] &amp; "'"</Argument></Action></Statements></UserInterfaceMacro>
    DoCmd.OpenForm "Add Training", acNormal, "", "", , acNormal, value


trainings_Click_Exit:
    Exit Sub

trainings_Click_Err:
    MsgBox Error$
    Resume trainings_Click_Exit

End Sub

最后我读了Argument并设置了Combo框值，并为依赖列表框我调用了requery

Private Sub Form_Open(Cancel As Integer)
    If Not IsNull(Me.OpenArgs) Then
        Me.cboEmp = Me.OpenArgs
        Me.List14.Requery
        Me.List18.Requery
    End If
End Sub