Accessのマクロ

質問

Access2002で、「氏名（テーブル名：name）」と「日付＜○月○日～○月○日＞（テーブル名：date）」でレポート内容が検索できるのを作っています。

フォームに
氏名一覧、日付入力、検索ボタン、最新データの取り込みボタン
を作っています。
「検索」の方は出来たのですが、「最新データ取り込み」をしようとすると、
『テーブル'name'は現在ほかのユーザまたはプロセスで使用されているので、ロックできませんでした』というエラーメッセージがでてきます。

「最新データ取り込み」ボタンに対してのマクロのアクションは、
オブジェクトの削除…テーブル／report
テキスト変換…reportインポート定義
オブジェクトの削除…テーブル／name
クエリを開く…name作成（テーブル作成クエリ）
としています。
（「マクロの実行」で指定）

フォームに表示されている氏名（name）を削除しようとしているために、このようなエラーメッセージが出ているのかとも思っていますが…。

フォームを閉じずに、「最新データ取り込み」ができないものでしょうか？
ご教示の程、よろしくお願いします。

回答No.1

DexMachina · ベストアンサー

> フォームに表示されている氏名（name）を削除しようとしているために、
> このようなエラーメッセージが出ている

その通りだと思います。

> フォームを閉じずに、「最新データ取り込み」ができないものでしょうか？

一時的に、フォームのテキストボックスの表示が「#Name?」となってもよければ、
フォームのレコードソースを一旦解除し、テーブル作成終了後に再度設定、
という方法もあるかと思います。

<現在>
オブジェクトの削除…テーブル／report
テキスト変換…reportインポート定義
オブジェクトの削除…テーブル／name
クエリを開く…name作成（テーブル作成クエリ）

<修正後>
オブジェクトの削除…テーブル／report
テキスト変換…reportインポート定義
値の代入…アイテム「Forms!フォーム名.RecordSource」、式「""」
オブジェクトの削除…テーブル／name
値の代入…アイテム「Forms!フォーム名.RecordSource」、式「"name"」
クエリを開く…name作成（テーブル作成クエリ）

・・・以上です。
「Forms!フォーム名.RecordSource」というのは、実際のフォーム名が「フォーム1」で
あれば
Forms!フォーム1.RecordSource
になります。

なお、もしも「name」テーブルをレコードソースにしているのがサブフォームの場合は、
アイテムへの入力はそれぞれ「Forms!フォーム名!サブフォーム名.RecordSource」と
して下さい。
(「サブフォーム名」には、表示に使用しているフォームの名前ではなく、コントロール
　としてのサブフォームの名前を指定します)

お礼

DexMachinaさん、ありがとうございました。
まだまだ、試行錯誤で勉強中で、このようなやり方があるとは勉強になりました。
ありがとうございました。