|
レコードソースに テーブルAをしているサブフォームがあります
メインフォームでサブフォームをクリアするために以下のコードを記述しています。
SET DB=CURRENTDb
MySQL = "DELETE * FROM テーブルA"
DoCmd.SetWarning False
DoCmd.RunSQL MySQL
DoCmd.SetWarnings True
Me.Refresh
サブフォームで「選択」、「枚数」の項目を入力します。
「選択」に 1 を入力すると「枚数」の変更入力できるようにSETFOCUSします
コードは次の通りです。
if me!選択=1 then
me!枚数.tabstop=False
else
me!枚数.tabstop=True
end if
以上の状態でメインフォームのクリア処理を実行すると、
『実行時エラー '-2147352567(80020009)
指定した式に macrosift Accessが見つけることができないフィールド、
コントロール、プロパィ名が含まれています』
表示されます。
エラーの原因は多分レコードソースをDELETEしたためだと推測しています、
それが正しいとした場合に、サブフォームをクリアする方法がわかりません。
どなたかご存知の方、どうぞご指導下さい。お願いします。
|
|