2016-10-15 3 views
0

MSAccess에는 레코드를 요약 한 보고서가 있습니다. 보고서의 'Formdate'필드를 클릭하고 'MAF View'양식의 해당 레코드를 열 수있게하려고합니다.MSAccess의 폼에 필터 적용

다음 코드는 "MAF View"양식을 열고 보고서에 필터를 적용합니다. 대신 형태. 어떻게 대신 폼에 필터를 적용합니까?

Dim strFilter As Variant 
strFilter = "[Formdate] = #" & Format(Me!FormDate.Value, "mm\/dd\/yyyy") & "#" 
Me.Filter = strFilter 
FilterOn = True 
DoCmd.OpenForm "Maf View", , strFilter 
+1

보고서의 'Me.Filter' 및'FilterOn'을 설정하지 마십시오. (즉, 2 줄 제거) – Andre

+0

두 줄 제거를 시도했습니다. 보고서를 필터링하지는 않았지만 필터가없는 양식 열기 문제는 여전히 있습니다. –

답변

1
DoCmd.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs) 

대신 WhereConditionFilterName 인수에 strFilter 있습니다. 쿼리 이름이 이동하지만 것 아닌 SQL WHERE 조건 .

어느 쪽이든

DoCmd.OpenForm "Maf View", , , strFilter 

또는 훨씬 더 읽기 쉽습니다. - 명명 된 매개 변수를 사용하십시오 :

DoCmd.OpenForm "Maf View", WhereCondition:=strFilter