アクセスフォームのレコードソースは、検索

Question

後、私は、次のレコードソースを使用するスプリットフォームを開発しましたが見つかりません

SELECT * FROM [CCG Complaints];

フォームがうまく機能し、私は物事のその側に問題がありません。

ユーザーには、検索するボタンと検索するボタンがあります。

問題が検索を実行した後、私は、フォームを閉じて、その後、（フォームビューで）再びそれを再び開いたときに、発生する：

しかし、私は、フォームを閉じる前Show allをクリックしたときに、それをフォームビューでエラーなしで正常に開きます。

上記のエラーを受け取った後、デザインビューでフォームを開くことができ、エラーメッセージなしでフォームビューでフォームを表示できます。エラーは、フォームを開いたときにのみ発生します最初のインスタンスのフォームビュー。

なぜこれが問題なのですが、どうすれば解決できますか？

私がボタンに使用するコードはここにある：

Private Sub search_Click() 
Dim strSearch As String 
Dim strText As String 
    If Len(Me.txtSearch.Value & vbNullString) = 0 Then 
     MsgBox ("Enter a search term.") 
    Else 
     strText = Me.txtSearch.Value 
     strSearch = "SELECT* from [CCG Complaints] where [Ref no] Like ""*" & strText & "*"" or [lastName] Like ""*" & strText & "*"" Or CCG Like ""*" & strText & "*"" " 
     Me.RecordSource = strSearch 
    End If 
End Sub 

Private Sub showAll_Click() 
    Dim strSearch As String 
    strSearch = "SELECT * from [CCG Complaints]" 
    Me.RecordSource = strSearch 
End Sub 

Answer 1

私は[CCG Complaints]にレコードを設定することをお勧めし、それを変更しません。既存のレコードにフィルタを適用

Private Sub search_Click() 
Dim strSearch As String 
Dim strText As String 
    If Len(Me.txtSearch.Value & vbNullString) = 0 Then 
     MsgBox ("Enter a search term.") 
    Else 
     strText = Me.txtSearch.Value 
     strSearch = "[Ref no] Like ""*" & strText & "*"" or [lastName] Like ""*" & strText & "*"" Or CCG Like ""*" & strText & "*"" " 
     Me.Filter = strSearch 
     Me.FilterOn = True 
    End If 
End Sub 

Private Sub showAll_Click() 
    Me.Filter = "" 
    Me.FilterOn = False 
End Sub 

Answer 2

代わりのレコードを変更し、：

代わりに、これはフォームのフィルタを実装するための通常の方法である.Filterプロパティを使用します。

Me.filter = "[Ref no] Like ""*" & strText & "*"" or [lastName] Like ""*" & strText & "*"" Or CCG Like ""*" & strText & "*"" " 
Me.FilterOn = True 

その後

Me.Filter = "" 
Me.FilterOn = False 

があなたのレコードセットが少しでも大きくなる場合には、フィールドの多くに検索このワイルドカードは非常に非効率になることに注意してくださいリセット。より堅牢な検索方法を検討することをお勧めします。このhttp://allenbrowne.com/ser-62.htmlはより完全な解決策です。