MSアクセスフォームでアクセスリストボックスのデータをタイプして検索する

Question

検索リストボックスのデータを実装して、テキストボックスfeildを使用してタイプしたデータを入力しようとしています。

私は、いくつかのドキュメントと有用な資料をネットで読んで、要件を実装するのに便利な次のリンクを見つけましたので、ほぼ同じコードを使用しましたが、問題は終わりました。

http://www.opengatesw.net/ms-access-tutorials/Access-Articles/Search-As-You-Type-Access.html

私はそれはそれで100個の+アイテムを持っている私の形で「Primary_skill」リストボックスフェイルドを持っていると私は形式でTXTボックスフェイルドを入力し、検索ごとに自動表示するデータを実装しようとしています。

私がここで走っている問題は、ここでは2つの異なるアイテムを選択することができませんでした。 （フォーム・コードでMe.refreshという行にエラーが表示される

例を説明します。primary_skillsは「DB2」と「SQL server」の両方を選択します。 DB2の、後に私は、「変更時に」イベントにme.refresh行でエラー指してデバッグを得るTXT検索に変更。

**Form search as-you-type List box code** 

Private Sub btnClearFilter_Click() 
'CODE FOR THE RED "X" BUTTON TO CLEAR THE FILTER AND SHOW ALL 
On Error Resume Next 
10  Me.txtsearch.Value = "" 
20  txtSearch_Change 
End Sub 
Private Sub txtSearch_Change() 
'CODE THAT HANDLES WHAT HAPPENS WHEN THE USER TYPES IN THE SEARCH BOX 
Dim strFullList  As String 
Dim strFilteredList As String 


10 If blnSpace = False Then 
20  Me.Refresh 'refresh to make sure the text box changes are actually available to use 

     'specify the default/full rowsource for the control 
30  strFullList = "SELECT TEMP.Primary_Skill FROM TEMP;" 

     'specify the way you want the rowsource to be filtered based on the user's entry 
40  strFilteredList = "SELECT TEMP.Primary_Skill FROM TEMP WHERE [Primary_Skill] LIKE ""*" & Me.txtsearch.Value & _ 
         "*""" 

     'run the search 
50  fLiveSearch Me.txtsearch, Me.Primary_Skill, strFullList, strFilteredList, Me.txtCount 
60 End If 

End Sub 


Private Sub txtSearch_KeyPress(KeyAscii As Integer) 
'NECESSARY TO IDENTIFY IF THE USER IS HITTING THE SPACEBAR 
'IN WHICH CASE WE WANT TO IGNORE THE INPUT 

10 On Error GoTo err_handle 

20  If KeyAscii = 32 Then 
30   blnSpace = True 
40  Else 
50   blnSpace = False 
60  End If 


70 Exit Sub 
err_handle: 
80 Select Case Err.Number 
      Case Else 
90   MsgBox "An unexpected error has occurred: " & vbCrLf & Err.Description & _ 
       vbCrLf & "Error " & Err.Number & "(" & Erl & ")" 
100 End Select 
End Sub 
Private Sub txtSearch_GotFocus() 
' USED TO REMOVE THE PROMPT IF THE CONTROL GETS FOCUS 
10 On Error Resume Next 
20  If Me.txtsearch.Value = "(type to search)" Then 
30  Me.txtsearch.Value = "" 
40  End If 
End Sub 
Private Sub txtSearch_LostFocus() 
' USED TO ADD THE PROMPT BACK IN IF THE CONTROL LOSES FOCUS 
10 On Error Resume Next 
20  If Me.txtsearch.Value = "" Then 
30  Me.txtsearch.Value = "(type to search)" 
40  End If 

End Sub 


**Modsearach (Module Code):** 

Option Compare Database 
Option Explicit 
'************* Code Start ************** 
' This code was originally written by OpenGate Software 
' It is not to be altered or distributed, 
' except as part of an application. 
' You are free to use it in any application, 
' provided the copyright notice is left unchanged. 
' OpenGate Software http://www.opengatesw.net 

Function fLiveSearch(ctlSearchBox As TextBox, ctlFilter As Control, _ 
         strFullSQL As String, strFilteredSQL As String, Optional ctlCountLabel As Control) 
'================================================================================== 
' THIS FUNCTION ALLOWS YOU TO FILTER A COMBO BOX OR LIST BOX AS THE USER TYPES 
' ALL YOU NEED TO DO IS PASS IN THE CONTROL REFERENCE TO THE SEARCH BOX ON YOUR 
' FORM, THE LISTBOX/COMBO BOX YOU WANT TO FILTER, AND WHAT THE FULL AND FILTERED 
' SQL (ROWSOURCE) SHOULD BE. 
' 
' ctlSearchBox  THE TEXTBOX THE USER TYPES IN TO SEARCH 
' 
' ctlFilter   THE LISTBOX OR COMBOBOX ON THE FORM YOU WANT TO FILTER 
' 
' strFullSQL   THE FULL ROWSOURCE YOU WANT TO DISPLAY AS A DEFAULT IF NO 
'      RESULTS ARE RETURNED 
' 
' strFilteredSQL  THE FILTERED ROWSOURCE FOR THE LISTBOX/COMBOBOX; FOR EXAMPLE 
'      YOU WOULD WANT TO USE '...like ""*" & me.txtsearch.value & "*""" 
'      TO FILTER THE RESULTS BASED ON THE USER'S SEARCH INPUT 
' 
' ctlCountLabel  (OPTIONAL) THE LABEL ON YOUR FORM WHERE YOU WANT TO DISPLAY THE 
'      COUNT OF ROWS DISPLAYED IN THE LISTBOX/COMBOBOX AS THEY SEARCH 
'===================================================================================== 

'ADVANCED PARAMETERS - Change these constants to change the behaviour of the search 
    Const iSensitivity = 1 'Set to the number of characters the user must enter before the search starts 
    Const blnEmptyOnNoMatch = True 'Set to true if you want nothing to appear if nothing matches their search 


10 On Error GoTo err_handle 

      'restore the cursor to where they left off 
20  ctlSearchBox.SetFocus 
30  ctlSearchBox.SelStart = Len(ctlSearchBox.Value) + 1 

40  If ctlSearchBox.Value <> "" Then 
       'Only fire if they've input more than two characters (otherwise it's wasteful) 
50    If Len(ctlSearchBox.Value) > iSensitivity Then 
60     ctlFilter.RowSource = strFilteredSQL 
70     If ctlFilter.ListCount > 0 Then 
80      ctlSearchBox.SetFocus 
90      ctlSearchBox.SelStart = Len(ctlSearchBox.Value) + 1 
100     Else 
110      If blnEmptyOnNoMatch = True Then 
120      ctlFilter.RowSource = "" 
130      Else 
140      ctlFilter.RowSource = strFullSQL 
150      End If 
160     End If 
170    Else 
180    ctlFilter.RowSource = strFullSQL 
190    End If 

200  Else 
210   ctlFilter.RowSource = strFullSQL 
220  End If 

      'if there is a count label, then update it 
      'if there is a count label, then update it 
'230   If IsMissing(ctlCountLabel) = False Then 
'240   ctlCountLabel.Caption = "Displaying " & Format(ctlFilter.ListCount - 1, "#,##0") & " records" 
'250   End If 
260 Exit Function 
err_handle: 
270 Select Case Err.Number 
    Case 91 'no ctlCountLabel 
     'exit 
280  Case 94 'null string 
     'exit 
290  Case Else 
300   MsgBox "An unexpected error has occurred: " & vbCrLf & Err.Description & _ 
      vbCrLf & "Error " & Err.Number & vbCrLf & "Line: " & Erl 
310 End Select 


End Function 
' ***** Code End ****** 

私がここで行方不明です何を任意のアイデア。ありがとう！

Answer 1

まず、ドン」 「複数の値を許可する」を使用すると、頭痛になるだけです.1対多の関係を使用する場合は、代わりに結合テーブルを使用する必要があります。

編集：リストボックスで複数の値を許可することはできますが、値を見つけてそれを正しく実行するには、値を見つけて個別にdbに入れる必要があります。だからあなたが何をやっているのか、コーディングやSQLやものについてもっと知りたいと思っていない限り、それを避けることをお勧めします。言われていること

、問題がインポートしましたが、リストボックス自体に関連しているコードに関連見えない：

リストボックスの制御源は何ですか？たとえば、リストボックスのコントロールソースが単一の列である場合、デフォルトで複数の値を受け入れることはできません。フォームのソーステーブルでそれを変更する必要があります。リストボックスはデータベースと一致する必要があります。データベースで1つの値しか許可されていない場合は、リストボックスが続く必要があります。

Me.Refreshが実行されると、リストボックスのフォーカスが失われ、アクセスがリストボックスのコントロールソースを更新しようとします。私の推測では、コントロールのソースは複数の値を受け入れることができず、観測されたバグにつながっているということです。