| 
    
     |  | 元記事様申し訳ありません 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
 で止まってしまいます。
 どうかお願いします
 
 |  |