Access VBA質問箱 IV

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

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


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

6128 / 9994

←次へ　｜　前へ→


	【7074】Re:クエリの抽出条件（Where句）について

小僧 - 06/1/11(水) 14:29 -


	引用なし

	パスワード

▼爺さん：
こんにちは。

>クエリの使用方法については、最終的にエクセルへ出力したいと思っています。
>既存のクエリに対し、Where句だけをVBで設定する方法は無いのでしょうか？

そうなると、レコードセットが取得できれば良い、という事ですね。

Sub Where句をつけてクエリを開く()
'要参照設定 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
Dim strSQL As String
Dim strName As String
Dim strDate As Date

　　strName = "鈴木一郎"
　　strDate = #1/11/2005#

　　strSQL = "SELECT * FROM 実績データ一覧 " _
　　　　　 & "WHERE 氏名 = '" & strName & "' And " _
　　　　　　　　 & "作業年月日 = #" & strDate & "#"

　　Set RS = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
　　'
　　'エクスポート処理
　　'
　　RS.Close: Set RS = Nothing
End Sub

こんな感じでいかがでしょうか。

1,772 hits

▼

【7047】クエリの抽出条件（Where句）について 爺 06/1/10(火) 20:59