Access VBA質問箱 IV

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

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


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

1703 / 9994

←次へ　｜　前へ→


	【11582】Re:フィルタ適用後のEXCEL出力時について

247b - 10/4/6(火) 12:43 -


	引用なし

	パスワード

生成されたSQLを拝見すると、I,J,Kの３項目が、入れ子のSQL（コマンド36_Clickで生成しているSQL）に不足しています。また、エイリアスも不足しているので、一応、書き換え例を以下に記載します。
こちらでは、プログラム実行していない（というかできない）ので、細かなミスがあるかもしれませんが、その点はご勘弁ねがいます。
WHERE句はTrueになっているため、特に条件は存在しないようですので、問題ありません。

１．
Private Sub コマンド36_Click()
Case 2
　　　　 strSQL = "select TOHO_TABLE.[COMM]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[A]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[C]"
　　　　　　　strSQL = sqrSQL & ",TOHO_TABLE.[G]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[D]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[E]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[F]"
　　　　　　　strSQL = sqrSQL & ",TOHO_TABLE.[H]"
　　　　　　　strSQL = sqrSQL & ", TOHO_TABLE.[コメント] "
'追加開始
　　　　　　 strSQL = sqrSQL & ",TOHO_TABLE.[I]"
　　　　　　 strSQL = sqrSQL & ",TOHO_TABLE.[J]"
　　　　　　 strSQL = sqrSQL & ",TOHO_TABLE.[K]"
'追加終了
　　　　　　　strSQL = sqrSQL & " from TOHO_TABLE"
　　　　　　　strSQL = sqrSQL & " WHERE (((TOHO_TABLE.E) In (SELECT Tmp.[E] FROM [TOHO_TABLE] As Tmp "
　　　　　　　strSQL = sqrSQL & " GROUP BY Tmp.[E] HAVING Count(*)>1 )) AND ((TOHO_TABLE.E)<>"""")) "
　　　　　　　strSQL = sqrSQL & " ORDER BY TOHO_TABLE.E DESC "

２．
Private Sub コマンド41_Click()

strSQL = ""
　　strSQL = strSQL & " SELECT TBL.A "
　　strSQL = strSQL & " , TBL.COMM AS B "
　　strSQL = strSQL & " , TBL.C AS 物品名 "
　　strSQL = strSQL & " , TBL.D AS 名1 "
　　strSQL = strSQL & " , TBL.E AS アドレス "
　　strSQL = strSQL & " , TBL.F AS 機会 "
　　strSQL = strSQL & " , TBL.G As 名3 "
　　strSQL = strSQL & " , TBL.H As 使用者 "
　　strSQL = strSQL & " , TBL.コメント "
　　strSQL = strSQL & " , TBL.I "
　　strSQL = strSQL & " , TBL.J "
　　strSQL = strSQL & " , TBL.K "
　　strSQL = strSQL & " FROM (" & Me.RecordSource & ") AS TBL "
　　strSQL = strSQL & " WHERE " & strWhere
　　strSQL = strSQL & " ORDER BY TBL.COMM DESC"　'Bを降順で並べ替える

708 hits

▼

【11571】フィルタ適用後のEXCEL出力時について VBA初心者 10/4/2(金) 17:08