Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

639 / 9994

←次へ　｜　前へ→


	【12665】Re:複数のクエリを実行です

[okamoto] - 14/12/9(火) 13:49 -


	引用なし

	パスワード

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

190 hits

▼

【12663】複数のクエリを実行です [okamoto] 14/12/8(月) 15:52