0

営業活動を追跡するための小さなアプリを作成していますが、データを記録するフォームに行き詰まっています。これまでに約 9 時間から 10 時間かけて調べたり試したりしてきたので、少し助けが必要です。

特定の日に行った営業電話、電子メール、会議、提案などの記録を含むテーブルがあります。「日付」は私の主キーです。フォームは、データの入力/編集に役立ちます。

私の基本的なフォームは次のようになります。

おっとっと!スタックは画像​​を投稿できません -- Hammerwings.com でスティーブに質問する人なら誰にでもメールで送信できます

データ入力用に別の日付を選択するための小さなカレンダー ポップアップがあります。

おっとっと!スタックは画像​​を投稿できません -- Hammerwings.com でスティーブに質問する人なら誰にでもメールで送信できます

ポップアップで新しい日付を選択できます。[日付の設定] ボタンをクリックすると、(1) 追跡アイテム フォームにレコードを保存します (2) 追跡アイテム フォームを閉じます (3) 追跡アイテム フォームを再度開きますポップアップで選択した日付に日付を設定します。

問題は、既存のレコードを編集するのではなく、その日付で新しいレコードを作成することです。既存のデータが読み込まれず、保存時に主キーの重複エラーが発生します。

動作しないものは次のとおりです。

(1) Form_DailyItemsTracked.Date = CalObject.Value 'これは、データを更新せずに親フォームの日付を変更します

(2) レコードを選択して親フォームを閉じてから再度開くこれにより、日付が設定された親フォームが開きますが、既存のレコードは読み込まれず、新しいレコードを作成する必要があります。

DoCmd.OpenForm "DailyItemsTracked", , , "Date = " & CalObject.Value

(日付はテーブル内のフィールドの名前です)

これらはすべて、ある種の構文エラーをスローします。MyDate は、Date フィールドによって制御されるフォーム上のテキスト ボックスの名前です。CalObject.Value がポップアップで正しく設定されていること、および MyDate テキスト ボックスと Date フィールドと同じ ShortDate 形式であることを確認しました。

DoCmd.OpenForm "DailyItemsTracked", , , "[MyDate] = '" & Format(CalObject.Value, "Short Date") & "'"

DoCmd.OpenForm "DailyItemsTracked", , , "[MyDate] = " & Format(CalObject.Value, "Short Date")

DoCmd.OpenForm "DailyItemsTracked", , , "[Date] = " & CalObject.Value

DoCmd.OpenForm "DailyItemsTracked", , , "Tracked_items.[Date] = " & CalObject.Value

DoCmd.OpenForm "DailyItemsTracked", acNormal, , , acFormEdit, acWindowNormal, CalObject.Value

DoCmd.OpenForm "DailyItemsTracked", , , "MyDate = " & CalObject.Value

(3)

Forms!DailyItemsTracked.Requery

これも構文エラーをスローします。

(4) 日付をパラメータとしてクエリを作成し、クエリでフォームを制御しました。開くことはできますが、それでも新しいレコードを作成しようとしています。

(5) autonumber フィールドを追加し、それを主キーにして、フォーム上にコントロールを隠しました。これにより、主キーの重複エラーは解消されましたが、フォームを開いたときに既存のデータが読み込まれませんでした。

特定のレコードを選択してフォームを開くことはできませんか? または、日付がコントロールである場合、それは不可能ですか?

これを行うには、もっと簡単なまったく別の方法がありますか?

ご協力いただきありがとうございます!!!

4

1 に答える 1

1

日付区切り文字の構文が間違っています。これを試して。

DoCmd.OpenForm "DailyItemsTracked", , , "Date = #" & CalObject.Value & "#"
于 2013-02-08T04:24:57.107 に答える