Access VBA質問箱 IV

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

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


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

7581 / 9994

←次へ　｜　前へ→


	【5600】Re:ＶＢＡ勉強中

小僧 - 05/7/12(火) 10:04 -


	引用なし

	パスワード

▼sakaiII さん：
こんにちは。

>最後、結果を表示されます。

一般的にAccessを使用してツール等を作成する場合
結果の表示はフォームやレポートに出力しますので
それであればDAOやADOで処理できますが、

クエリの様に表示させるとなると下記の様なコードで同じ事ができると思います。

Sub クエリ作成()
Dim SQLCode As String
Dim QD As DAO.QueryDef
　　SQLCode = "SELECT [納品日付を入力してください] AS 納品日付, test_0513.商材コード, " _
　　　　　　& "test_0513.商材名, test_0513.数量, test_0513.単価, " _
　　　　　　& "test_0513.合計金額 , test_0513.備考欄 FROM test_0513"
　　　　　　
　　Set QD = CurrentDb.CreateQueryDef("Q_Test", SQLCode)
　　Set QD = Nothing
　　
　　DoCmd.OpenQuery "Q_test"
End Sub

346 hits

▼

【5591】ＶＢＡ勉強中 sakaiII 05/7/10(日) 13:23