[MS Access]根據數據表中選擇的記錄在OpenForm上設置組合框

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