検索機能を機能させることができましたが、非常に分厚いです:(
コード:
If dropdown_sV.Value = "N" Then
If WhereParts > 0 Then
WhereClause = WhereClause & " AND"
End If
WhereClause = WhereClause & " [sV] = 'N'"
WhereParts = WhereParts + 1
End If
If dropdown_sV.Value = "G" Then
If WhereParts > 0 Then
WhereClause = WhereClause & " AND"
End If
WhereClause = WhereClause & " [sV] = 'G'"
WhereParts = WhereParts + 1
End If
N、G、O、A、R、U のオプションを持つ選択ドロップダウンがたくさんあるので、このコードをより効率的にすることはできますか?
アプリケーションを維持するのは悪夢です。