Access VBA質問箱 IV

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

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


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

6956 / 9994

←次へ　｜　前へ→


	【6236】Re:テーブルの検索方法

小僧 - 05/9/8(木) 16:52 -


	引用なし

	パスワード

▼masashi さん：
動的にクエリを作ってみました。
こちらは VBA での操作になります。

適当なモジュールに貼り付けて実行させると
QName で指定した名前のクエリができていると思います。

Sub 変数でクエリを作成()
'要参照 Microsoft DAO x.x Object Library
Dim TName As String
Dim QName As String
Dim QD As DAO.QueryDef
Dim SelSQL As String
Dim WheSQL As String
Dim strSQL As String
Dim Ijyo As Long
Dim Miman As Long
Dim i As Long

　　TName = "T_Temp"　　 '元テーブル名
　　QName = "Q_Temp"　　 '作成クエリ名
　　
　　Ijyo = 20　　　　　　'以上値
　　Miman = 25　　　　　 '未満値

　　If DCount("*", "MSysObjects", "NAME = '" & QName & "'") Then _
　　　　DoCmd.DeleteObject acQuery, QName
　　　　
　　For i = 1 To 5
　　　　SelSQL = SelSQL & TName & ".A" & i & ","
　　　　WheSQL = WheSQL & "(" & TName & ".A" & i & " >= " & Ijyo & " AND " _
　　　　　　　　　　　　& TName & ".A" & i & " < " & Miman & ") Or "
　　Next
　　
　　　　SelSQL = Left(SelSQL, Len(SelSQL) - 1)
　　　　WheSQL = Left(WheSQL, Len(WheSQL) - 4)
　　
　　　　strSQL = "SELECT " & TName & ".Model, " _
　　　　　　　 & SelSQL _
　　　　　　　 & " FROM " & TName _
　　　　　　　 & " WHERE " _
　　　　　　　 & WheSQL
　　　　　　　
　　Set QD = CurrentDb.CreateQueryDef(QName, strSQL)
　　Set QD = Nothing

End Sub

323 hits

▼

【6088】テーブルの検索方法 masashi 05/8/29(月) 21:20