コンボボックスを使用してサブフォームテーブルの名前を検索する

Question

コンボボックスを使用してサブフォームの名前の検索フィルタを作成しようとしています。 ...それは私が持っている...今クライアント名に依存するが、それは仕事をdoesntの

Me.subform.Form.Filter = "[Client]=& me.cboClientName&" 

私はこのような日付命令による検索を行うために管理....

Me.subform.Form.Filter = "[AppointDate]=#" & Format(Me.cbSelectDate, "yyyy-mm-dd") & "#" 

Answer 1

あなたを検索された列とコンボボックスの値との文字列を連結しなければならず、フィルタを適用する必要があります。

Dim strFilter as string 

'first print what you did 
strFilter = "[Client]=& me.cboClientName&" 
Debug.Print "Your faulty filter: " & strFilter ' shown in immediate window 

'now with concat 
strFilter = "[Client]= '" & Me.cboClientName & "'" ' suround by quotes because I assume it's a string 
Debug.Print "filter: " & strFilter 

Me.subform.Form.Filter = strFilter 
Me.subform.Form.FilterOn = true ' activate the Filter