Access 2002 또는 Access 2003에서 검색 폼의 값을 사용하여 동적 쿼리를 만드는 방법

고급: 전문적인 코드 작성, 상호 운용성 및 다중 사용자 기술이 필요합니다.

이 문서의 내용은 Microsoft Access 데이터베이스(.mdb)와 Microsoft Access 프로젝트(.adp)에 적용됩니다.

요약

이 문서에서는 Microsoft Access 2002 및 Microsoft Office Access 2003에서 검색 폼의 값으로 쿼리 문자열에 대한 조건을 동적으로 만드는 방법을 보여 줍니다.

위로 가기

검색 폼으로 사용할 폼을 만들어야 하는 경우가 종종 있습니다. 이 폼에 값을 입력하여 적절한 SQL 문자열을 동적으로 만들 수 있습니다. 다음 단계에서는 BuildCriteria 메서드를 사용하는 쿼리 문자열을 동적으로 만드는 방법을 보여 줍니다.

Microsoft는 모든 보증(상품, 특정 목적에 대한 적합성 및 비침해에 대한 묵시적인 보증을 포함하며 이에 제한되지 않음)을 배제하며 예를 보여주기 위한 목적으로만 이 프로그래밍 예제를 제공합니다. 본 문서의 내용은 프로시저를 작성하고 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 프로시저에 대한 기능을 설명할 수 있지만 사용자의 특정 요구 사항에 맞도록 예제를 수정하여 추가 기능을 제공하거나 프로시저를 구성하지는 않습니다. 주의: 이 예제에서 설명하는 단계를 수행하면 Northwind.mdb 예제 데이터베이스가 수정되므로 Northwind.mdb 파일을 백업하고 복사본을 사용하여 아래 단계를 수행하는 것이 좋습니다.

위로 가기

단계별 예제

Access를 시작합니다.
도움말 메뉴에서 예제 데이터베이스를 가리킨 다음 Northwind 예제 데이터베이스를 누릅니다.
디자인 보기에서 Customers 폼을 엽니다.
폼에 명령 단추와 텍스트 상자를 추가하고 다음 속성을 설정합니다.
표 축소표 확대
명령 단추
이름: cmdSearch
캡션: 검색
OnClick: 이벤트 프로시저
표 축소표 확대
텍스트 상자
이름: txtSQL
너비: 4.4583"
높이: 1.25"

명령 단추의 OnClick 속성을 아래의 이벤트 프로시저로 설정합니다.

Private Sub cmdSearch_Click()
    On Error Resume Next
    
    Dim ctl As Control
    Dim sSQL As String
    Dim sWhereClause As String
    
    'Initialize the Where Clause variable.
    sWhereClause = " Where "
    
    'Start the first part of the select statement.
    sSQL = "select * from customers "
    
    'Loop through each control on the form to get its value.
    For Each ctl In Me.Controls
        With ctl
            'The only Control you are using is the text box.
            'However, you can add as many types of controls as you want.
            Select Case .ControlType
                Case acTextBox
                    .SetFocus
                    'This is the function that actually builds
                    'the clause.
                    If sWhereClause = " Where " Then
                        sWhereClause = sWhereClause & BuildCriteria(.Name, dbtext, .Text)
                    Else
                        sWhereClause = sWhereClause & " and " & BuildCriteria(.Name, dbtext, .Text)
                    End If
            End Select
        End With
    Next ctl
    
    'Set the forms recordsource equal to the new
    'select statement.
    Me.txtSQL = sSQL & sWhereClause
    Me.RecordSource = sSQL & sWhereClause
    Me.Requery
    
End Sub

폼을 저장한 후, 폼 보기에서 엽니다.

검색 명령 단추를 누르면 txtSQL 텍스트 상자는 Customers 폼의 값에서 만든 쿼리를 반영합니다. 또한 Customers 폼이 다시 쿼리되었으므로 새 SQL 문자열의 결과를 반영합니다.

위로 가기

참조

BuildCriteria 메서드에 대한 자세한 내용은 Visual Basic Editor의 도움말 메뉴에서 Microsoft Visual Basic 도움말을 누르고 Office 길잡이나 도움말 마법사에서 buildcriteria 메서드를 입력한 다음 찾기를 눌러서 나타나는 항목을 참조하십시오.

?Microsoft 제품 관련 기술 전문가들과 온라인으로 정보를 교환하시려면 Microsoft 뉴스 그룹 (http://support.microsoft.com/newsgroups/default.aspx) 에 참여하시기 바랍니다.

위로 가기