Microsoft Access 掲示板

状況の追記です。この一覧フォームのフィルター用コンボボックスには製品ＩＤ、顧客ＩＤ、完成年、完成月、完成日があります。製品ＩＤが未選択時はリスト表示出来ない様にしてます。各コンボ選択（更新後）ではフィルター（投稿したコードを各コンボからＣａｌｌ）が効いてフォームのリスト表示は問題ありません。リスト表示分のみｃｈｅｃｋをＹｅｓに更新させるボタン（投稿したコード）で更新させる形です。その後、DoCmd.RunSQL strSQL　を　CurrentDb.Execute strSQL　にして試しして下さいみると製品ＩＤと顧客ＩＤは問題なくフォーム表示分のみＹｅｓになります。完成年コンボで抽出後ではフォーム表示は問題ないのですがＹｅｓに更新実行すると”実行エラー3061　パラメータが少なすぎます。１を指定して下さい”となります（前回投稿と同様）。因みにコンボ完成月、完成日は完成年が未選択では不可にしてます。DoCmd.RunSQL strSQL　では実行されるのですが完成年条件が無視されて指定の製品ＩＤ分の全レコードがcheck　Yesになります。
何かコードに不備があるのでしょうか？