OpenArgsを使用したフォーム間で値を渡す

Question

***** EDITED

「NewInvoice」というフォームがあります。このフォームは、以下を含むテーブル "請求書"を編集します。請求書番号、顧客、注文日。このフォームには、 "InvoiceItem"というサブフォームを開くボタンがあります。これにより、請求書番号、商品コード、寸法などを含む同じ名前の表が編集されます。

現在、マイボタンには次のようなイベントプロシージャがあります。

---

ます。Private Sub CreateInvoiceItem_Click（）

DoCmd.OpenForm "InvoiceItem"、OpenArgs：= "InvoiceNumber"

End Subの

---

（私はボタンを使用していた理由別のウィンドウでフォームを開くのは、サブフォームを親フォームに挿入するときに、サブフォームにコンボボックスがカスケードするために壊れてしまうためです）

ここで、フォームロードコマンドを設定する際に問題が発生しています。私が発生したいのは、ボタンがクリックされたときに親フォームに記入されたInvoiceNumberがサブフォームに自動的に埋められるということです。

---

プライベートサブのForm_Load（）

****必要なコード****

End Subの

Answer 1

質問の下のコメントで述べたように、コンボボックスを固定してみてください。また、GotFocusイベントに依存するコンボボックスを再クエリーするコードを推奨します。ルックアップエイリアスを使用したカスケードコンボボックスは、連続またはデータシート形式でうまく動作しません。

あなたが本当に独立したフォームに価値を渡したいのであれば、OpenArgsは良いアプローチです。

おそらく、新しいレコード行にフォームを開く必要があります。

DoCmd.OpenForm "InvoiceItem", , , , acFormAdd, acDialog, Me!InvoiceNumber

フォームが新しいレコードであることを確認するコードが必要です。

Private Sub Form_Load() 
If Me.NewRecord Then Me!InvoiceNumber = Me.OpenArgs 
End Sub 

Answer 2

私はこれを行うための最善の方法は、あなたが開いた後、フォームを開いたときに、この機能には何が必要なパラメータ渡しているフォームに公開サブを追加することであることがわかります。あなたが探していることを行うには、開いているフォームにこのような関数を追加します。

Public Sub SetUpForm(InvoiceNumber as Long) 

    txtInvoiceNumber.Value = InvoiceNumber 

End Sub 

ここで、txtInvoiceNumberは、値を入力するフォーム上のコントロールです。

あなたのボタンから。

DoCmd.OpenForm "InvoiceItem" 
Forms!InvoiceItem.SetUpForm InvoiceNumber 

これは、請求書番号の値を、開いているフォームのコントロールに渡します。これにより、複数のパラメータをサブに渡すことができるため、プロセスを柔軟に制御できます。また、サブには任意の数のタスクを実行できます。