0

Access を使い始めて約 1 年になりますが、VBA について学び始めたのはつい最近のことです。私が読んだ本やオンラインで読んだヘルプは、私が必要としているものと完全には一致していないようです。または、もしそうなら、私はあまりにも初心者であるに違いありません。

私のプロジェクトは個人の財務データベースで、キャッシュ フローを予測する方法に取り組んでいます。私が持っている

  1. 「tbl_InitialPoint」と呼ばれる定期的なトランザクションを含むテーブル (説明、金額、および頻度 (日数) の列を含む)、

  2. 「tbl_Register」内の特定の説明の最終日を検索するクエリ、

  3. 「tbl_InitialPoint」から「tbl_Register」に繰り返しトランザクションを挿入する追加クエリ

    INSERT INTO tbl_Register ( PostDate, Description, Amount ) SELECT qry_MaxDate.LastDate + tbl_InitialPoint.Frequency AS DateSeries, tbl_InitialPoint.Description, tbl_InitialPoint.Amount FROM tbl_InitialPoint INNER JOIN qry_MaxDate ON tbl_InitialPoint.Description = qry_MaxDate.Description WHERE qry_MaxDate.Description = [フォーム]![ホームページ]![DateHorizo​​n];

私が知らないのは、クエリがnullまたは空になるまで、このクエリをx回実行/ループする特定のvbaです。

何か案は？

4

1 に答える 1

0

ここでは、ローカルの Access テーブルと対応する DAO オブジェクトを使用していると思います。

queryDefオブジェクトとそのexecuteメソッドを使用する必要があります。

クエリ定義が実行されると、インスタンスのrecordsAffectedプロパティをテストできqueryDefます。

この値がゼロの場合、クエリによってレコードが挿入されていないことを意味します。

EDIT：あなたのコメントに続いて、ここにいくつかのqueryDef関連コードを見ることができます。ここでは、新しいクエリ定義を作成し、プロパティを含むオブジェクトのプロパティを一覧表示できrecordsAffectedます。

于 2013-10-01T03:45:33.823 に答える