access-vba
  • ms-access-2010
  • 2017-03-01 4 views 0 likes 
    0

    데이터를 필터링하는 데 3 콤보 상자가 있습니다. 그리고 나서 미리보기를 인쇄하려면 명령 단추에서 열고 싶습니다 .. 문제가 2 콤보 상자를 사용하면 작동하지만 3 콤보 상자를 사용할 때 발생합니다. 빈 ... 코드에 문제가 있습니까?보고서 열기 세 Combobox 필터를 사용하십시오

    Dim strWhereCondition As String 
    strWhereCondition = "[month] = '" & Me.cbmonth.Value _ 
            & "' and [Works] = '" & Me.cbwork.Value _ 
            & "' and [Works] = '" & Me.cbwork2.Value & "'" 
    
    Debug.Print strWhereCondition 
    DoCmd.OpenReport "Month List", View:=acViewPreview, _ 
    WhereCondition:=strWhereCondition 
    

    SELECT * 
    FROM MyTable 
    WHERE (month = Forms!nameForm!cbmonth 
    OR Forms!MeForm!cbwork IS NULL) 
    And (works = Forms!nameForm!cbwork 
    OR Forms!nameForm!cbwork IS NULL) 
    AND (works = Forms!nameForm!cbwork2 
    OR Forms!nameForm!cbwork2 IS NULL); 
    

    사람이 도움이 될 수 있습니다 내 양식에 대해 다시 쿼리 : 여기 내가 사용하는 코드는?

    답변

    -1

    월은 숫자, 그래서 시도 :

    strWhereCondition = "[month] = " & Me.cbmonth.Value _ 
           & " and [Works] = '" & Me.cbwork.Value _ 
           & "' and [Works] = '" & Me.cbwork2.Value & "'" 
    

    편집 : 이달 텍스트입니다.

    & "' and [Works] = '" & Me.cbwork.Value _ 
    & "' and [Works] = '" & Me.cbwork2.Value & "'" 
    

    가장 가능성이해야합니다 :

    & "' and [Works] = '" & Me.cbwork.Value _ 
    & "' and [SomeOtherField] = '" & Me.cbwork2.Value & "'" 
    
    +0

    여전히 나던 작업 만약에 그 텍스트

    그러나, [작업]이 잠재적으로 다른 값과 일치하도록되어? – RPM

    +0

    당신 만 알고 있습니다. 당신은 Debug.Print에서 출력을 밝힐 수 있습니다 ... – Gustav

    +0

    네, 죄송합니다 그 텍스트 ... 예 Januari, Februari 등 – RPM

     관련 문제

    • 관련 문제 없음^_^