お世話になります。
フォームにタブコントロールがあり、ページの中にサブフォームを設置して、リストボックスがあるフォームを配置しております。
やりたいのは、タブコントロールを切り替えたときに、リストボックスの選択解除を行って、リクエリしたいのですが、下記のエラーがでます。
"Requery/再クエリ" アクションを実行する前に、カレント フィールドを保存する必要があります。
タブコントロールの変更時のプロシージャには
Me!サブフォーム1.Form.リスト1.ListIndex = -1
Me!サブフォーム1.Form.リスト1.Requery
又は
Dim vt As Variant
If Me!サブフォーム1.Form.リスト1.ItemsSelected.Count > 0 Then
For Each vt In Me!サブフォーム1.Form.リスト1.ItemsSelected
Me!サブフォーム1.Form.リスト1.Selected(vt) = False
Next
End If
Me!サブフォーム1.Form.リスト1.Requery
と、しています。
"Requery/再クエリ" アクションを実行する前に、カレント フィールドを保存する必要があります。と出ないようにするにはどうすればいいかご指導の程よろしくお願いします。