VBA 레코드 집합에 액세스

Question

직원 정보가있는 테이블을 포함하는 액세스 데이터베이스가 있습니다. 내 문제는 특정 특성이 true 또는 false인지 먼저 확인한 다음 연속 된 형식으로 모든 레코드를 표시하기 위해 다른 테이블을 반복하고 싶습니다. 그것은 사실 인 것뿐만 아니라 모든 레코드를 채 웁니다. 아래 코드를 참조하십시오.

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을 사용했기 때문에 양식을 업데이트 할 수 없습니다. 그게 필요한가요?