|
元記事様申し訳ありません
vbaに変換して再度説明します。
ボタンですが間違えて説明しました。
textbox1です。textbox1に数値を記入して、データの
中から必要なデータを取り出して、フォームに表示することです。
Private Sub textbox1_AfterUpdate()
On Error GoTo mototyouzitukou_Err
DoCmd.SetWarnings False
DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
>ユニオンクエリで作成したデータで、最初の必要なデータです。
>コード = forms!siryou!textbox1をユニオンクエリに記述しています
DoCmd.OpenQuery "DATE2", acViewNormal, acEdit
>DATE1を、テーブルに表示。
mototyoukobetu
>そのテーブル(資料)で、テキスト型で表示されたフィールドを
>ナンバーズに変更する標準モジュールです。
DoCmd.OpenQuery "元帳kobetu", acViewNormal, acEdit
>資料を再度ユニオンクエリで追加修正してデターベースを表示。
me.Requery
mototyouzitukou_Err:
End Sub
上記データベースを元に作成したフォームに表示するです。
ただ、このコードですが、
DoCmd.OpenQuery "DATE1", acViewNormal, acEdit
で止まってしまいます。
どうかお願いします
|
|