양식에 대한 레코드 원본을 변경하려면 Access VBA를 사용하십시오.

Question

검색 양식을 만들면서 하위 폼에서 검색 결과를 볼 수 없습니다. 쿼리가 제대로 실행되고 하위 폼 레코드 원본을 쿼리로 설정했습니다. 나는 어떤 오류도 가지지 않는다. 검색 버튼을 클릭하면 쿼리가 실행되고 레코드 선택기에서 하위 폼의 아래쪽에있는 행 수가 표시되지만 행은 볼 수 없습니다.

Private Sub cmdSearch_Click() 

Dim tableName As String 
Dim colName As String 
Dim keyword As String 
Dim strSQL As String 

tableName = Me.cmbTableNames.Value 
colName = Me.cmbColumnNames.Value 
keyword = Me.txtKeyword.Value 
strSQL = "Select * from [" & [tableName] & "] where [" & [colName] & "] like '*" & [keyword] & "*';" 
Debug.Print strSQL 
Me.searchResultsForm.Visible = True 

Forms![F_SearchForm]![searchResultsForm].Form.RecordSource = "Select * from [" & [tableName] & "] where [" & [colName] & "] like '*" & [keyword] & "*';" 
Forms![F_SearchForm]![searchResultsForm].Form.Requery 
End Sub 

누군가가 내가 뭘 잘못 말해 줄 수 :

다음은 단추의 OnClick 이벤트에 대한 내 코드입니다.

이것은을 Debug.Print

위해 직접 실행 창에 표시 무엇

감사

Select * from [dbo_Internal Contacts] where [First Name] like '*Amy*'; 

내 폼은 폼보기에서 다음과 같습니다

:

I 내 하위 양식 (약 35)에 일부 텍스트 상자를 추가했습니다. 이제 쿼리를 실행하면 양식이 다음과 같이 보입니다.

vba를 사용하여 하위 폼의 텍스트 상자를 레코드 소스의 열에 어떻게 연결할 수 있습니까?

도와주세요

Answer 1

알아 냈습니다. 여기에 내가

않았다 내가

Select * into tmpSearchResults from [" & [tableName] & "] where [" & [colName] & "] like '*" & [keyword] & "*'; 

에 쿼리를 수정 그리고 내 하위 폼 레코드 원본으로 tmpSearchResults를 준거야.

테이블 이름 콤보 박스가 업데이트 될 때마다 tmpSearchResults 테이블을 삭제합니다.

내가 원했던 것처럼 작동합니다.