访问VBA记录集

Question

我有一个访问数据库，其中包含带有员工信息的表。 我的问题是，我想循环遍历另一个表，以便首先确定特定特征是对还是错，然后以连续形式显示所有正确的记录。 它仍然填充所有记录，而不仅仅是真实记录。 请参见下面的代码。

Private Sub RunQuery_Click()
Dim strSQL As String
Dim dba As Database
Dim tbl As Recordset
Dim Code As String
Dim status As String

Set dba = CurrentDb
strSQL = "SELECT DISTINCT EmployeeName,SSN,Location,SystemAssignedPersonID FROM dbo_tbl_Random "
strSQL = strSQL & "WHERE MenuUsed = 'Random' ORDER BY Location,EmployeeName"
Set tbl = dba.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
With tbl
  .MoveFirst
  If tbl.EOF Then
    MsgBox "There are no employees on Random at this time.", , "Oops! Try Again"
  Else
    Do Until tbl.EOF
      status = getEmpStatusID(tbl!SystemAssignedPersonID)
      If status = "A" Then
        Set Me.Recordset = tbl
        .MoveNext
      Else
        .MoveNext
      End If
    Loop
  End If
End With
Set tbl = Nothing
Set dba = Nothing
End Sub

getEmpStatusID是一个单独的函数，不会给我带来麻烦。 它查找“雇员ID”以获取信息并正常返回。

谢谢您的帮助！

Answer 1

我认为您已经到了那里。 根据getEmpStatusID不同，您可以执行以下操作

SELECT DISTINCT EmployeeName,SSN,Location,T.SystemAssignedPersonID 
FROM dbo_tbl_Random R
Inner JOin Table_Where_Status_Is_Found as T 
    on T.SystemAssignedPersonID = R.SystemAssignedPersonID
WHERE MenuUsed = 'Random' and T.SystemAssignedPersonID = 'A'
ORDER BY Location,EmployeeName

使用它作为表单的行源，不要使用VBA。 您的表格将不会更新，因为您使用了distinct 。 那有必要吗？