MS Access：別のフォームのコマンドボタンを使用して、フォームに特定のテキストを入力してください

Question

私はMS Accessの次の問題について助力を求めます。

フォーム "CustomerListF"を作成しました。各クライアントのコマンドボタンがあります。各ボタンのために、私は次のコードを作成していた：

Private Sub cmd_outlets_ABC_Click() 
DoCmd.OpenForm "OrderFormF" 
Forms!OrderFormF!Outlets = "ABC" 
End Sub 

ボタンはその後、「OrderFormF」別のフォームを開き、「アウトレット」という名前のテキストボックスに「ABC」と入力します。しかし、2番目のコード行（Forms！OrderFormF！Outlets = "ABC"）は、 "OrderFormF"にあるサブフォームに常にファントムレコードを作成し、このレコードは他のクライアントのフォームに移動します。このファントムレコードは、通常、コマンドボタンが2回クリックされたとき（ダブルクリックまたはそれ以降のクリック）に作成されます。それはレコードが周りを転じ始めるときの頭痛です。

enter image description here

私は、コードの2行目を編集するVBAコードのためのアドバイスを求めたいと思います。

ありがとうございます。

Answer 1

フィールドを開いた形で塗りつぶすこの方法は良くありません。 OrderFormFの初期化とフィールドに値を割り当てるコードの2行目は、異なる順序で実行される可能性があります。これらは同期されません。 これを避けるには、引数をOrderFormFに別の方法で渡す必要があります。 「ABC」の値がで最初の行に割り当てられます。この場合、

Me.Outlets = Me.OpenArgs 

：

DoCmd.OpenForm "OrderFormF",,,,,,"ABC" 

そしてOrderFormFのLoadイベントでテキストボックスに値を割り当てる：私はOpenArgsパラメータを使用することをお勧めしますフォームが空の場合はフォームまたは新しいレコードに変更します。割り当てを行う前に、最初の行に値を割り当てない場合は、行を選択できます。また、この方法でボタンをダブルクリックしないように保護します。最初のフォームを開くときに1回だけロードイベントを実行します。