考えてみましょう:
個々のクライアントの支払いイベントを表示するために必要なフォームがあります。支払いテーブルのすべての列を表示したくない、使いやすい列名が必要、ユーザーがフォームの行をクリックした場合に情報を表示するポップアップフォームをAccessに表示したい(支払いイベント)。
まず、Access2002とVBAでこれが可能かどうかわかりません。次に、フォーム上の個々の支払いイベントをクリック可能にする方法がわかりません。
私は次のようなことができると思います:
strSQL = "SELECT payment.payment_id, payment_amount AS Amount, payment_date AS Date" & _
"FROM contact_payment, payment " & _
"WHERE contact_payment.contact_id =" & forms([ContactForm].contact_id & _
"AND payment.payment_id = contact_payment.payment_id"
クリック可能なフォームのデータを取得するため。これは正しい方法ですか、それともこれを達成するためのより良い方法がありますか?
フォームのDblClick
イベント(またはClick
イベント)を使用して、新しいフォームを開くことができます。
Private Sub Form_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmMoreInfo", , , "ID = " & ID
End Sub
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加