여러 기준을 사용하여 검색

Question

테이블을 검색하려는 두 개의 텍스트 상자가 있습니다. 내가 문제라고 생각하는 쿼리를 통해 검색을 진행하고 있습니다. 코드는 두 텍스트 상자의 기준을 모두 받아 테이블 하나를 검색해야합니다. 그런 다음 나머지 텍스트 상자는 검색에 가장 가까운 레코드 세트로 채워집니다.

RstRecSet.MoveLast에서 오류가 발생합니다. 현재 레코드가 없다는 컴파일 오류가 발생합니다. 상자에 입력 한 것과 같은 레코드가 있는데 그 레코드를 선택하지 않았습니다.

레코드의 정확한 이름을 추가하면 아무런 문제가 없습니다. 그것은 거의 마치 마치 같은 연산자를 다루는 것처럼 보입니다.

Private Sub Command514_Click() 
'DoCmd.Close 
'DoCmd.OpenForm "frmContacts", acNormal 
    Set RstRecSet = Nothing 
    Set db = CurrentDb 
    Dim searchGroup As String 
    Dim searchName As String 

If IsNull(txtgroupSearch) Or txtgroupSearch = "" Then 

     Me.txtGroupName.BackColor = vbRed 
     Forms!frmGroupHeader!txtGroupNr.SetFocus 

    Else 
     'searchNum = txtGroupNr 
     searchGroup = txtgroupSearch 

     Set db = CurrentDb 
     Me.txtGroupName.BackColor = vbWhite 
     Set RstRecSet = db.OpenRecordset("Select * from tblGroupHeader Where groupName like '*" & searchGroup & "*' or groupNum like '*" & searchGroup & "*';", dbOpenDynaset) 
      If RstRecSet.EOF And RstRecSet.BOF Then 
      MsgBox ("NO RECORDS!") 
       Exit Sub 
      End If 
     RstRecSet.MoveLast 
     intMaxCount = RstRecSet.RecordCount 
     RstRecSet.MoveFirst 
     ' Exit Sub 
    End If 

    If RstRecSet.EOF Then 
     Me.txtGroupName.BackColor = vbRed 
     Forms!frmGroupHeader!txtGroupNr.SetFocus 

    Else 
     Call DisplayFields 

    End If 
End Sub 

Answer 1

나는 문제가 SQL에 믿습니다 : 여기에 솔루션입니다

Private Sub Command514_Click() 
'DoCmd.Close 
'DoCmd.OpenForm "frmContacts", acNormal 
    Set RstRecSet = Nothing 
    Set db = CurrentDb 
    Dim searchNum As String 
    Dim searchName As String 
    searchNum = txtGroupNr 
    searchName = txtGroupName 
On Error Resume Next 
If IsNull(txtGroupNr) Or txtGroupNr = "" Then 

     Me.txtGroupName.BackColor = vbRed 
     Forms!frmGroupHeader!txtGroupNr.SetFocus 

    Else 
     'strSearchICN = txtGroupNr 
     Set db = CurrentDb 
     Me.txtGroupName.BackColor = vbWhite 
     Set RstRecSet = db.OpenRecordset("Select * from tblGroupHeader Where GroupNum Like '" & searchNum & "' And GroupName Like '" & searchName & "';", dbOpenDynaset) 
     RstRecSet.MoveLast 
     intMaxCount = RstRecSet.RecordCount 
     RstRecSet.MoveFirst 
     ' Exit Sub 
    End If 

    If RstRecSet.EOF Then 


     Me.txtGroupName.BackColor = vbRed 
     Forms!frmGroupHeader!txtGroupNr.SetFocus 

    Else 
     Call DisplayFields 

    End If 
End Sub 

:

여기 내 코드입니다. 이 오류는 기록이 없음을 나타냅니다. 레코드 세트에서 .MoveLast를 호출하기 전에 다음을 사용하여 빠른 테스트에 넣을 수 있습니다.

If RstRecSet.EOF and RstRecSet.BOF Then 
    msgbox("NO RECORDS!") 
    exit sub 
End if 

SQL로 돌아 가기. "Select * from tblGroupHeader Where GroupNum Like '" & searchNum & "' and GroupName Like '" & GroupName & "';"Select * from tblGroupHeader Where GroupNum Like '1' and GroupName Like 'Physics';

I과 같을 것이다 : 당신은

대신 이해되지 않는다 Select * from tblGroupHeader Where GroupNum and GroupName Like '1Physics';처럼 뭔가 나올 것입니다 당신이 GroupNum과 그룹 이름과 같은 "물리학"로 "1"을 선택한 경우, "Select * from tblGroupHeader Where GroupNum and GroupName Like '" & searchNum & GroupName & "';"을 썼다 '내 SQL을 변수에 넣은 다음 Debug.Print SQL을 사용하여 해당 변수를 Immediates 창에 작성하면 모든 것을 이해하고 데이터베이스에 복사하여 붙여 넣을 수 있습니다.