VBA 外部データの制御

SOURCEプロパティ文のSQL文を指定する箇所で
.SOURCE "SELECT 社員名 FROM 社員 WHERE 部門ID IN(SELECT 部門ID FROM 部門 WHERE 部門名 = " & CombBOX & " )"
とすると
右カッコがありませんとエラーがでます。
どうにか実行できないでしょうか？

No.1 回答者： PrintScree 回答日時： 2006/07/25 16:07

.SOURCE "SELECT 社員名 FROM 社員 WHERE 部門ID IN (SELECT 部門ID FROM 部門 WHERE 部門名 = " & CombBOX & " )"

INと(の間にスペースがないだけでは?

この回答へのお礼

スペースいれましたが同じエラーが返ってきました（：；）

お礼日時：2006/07/25 16:19

No.2 回答者： naktak 回答日時： 2006/07/25 16:08

> 右カッコがありません

つまりカッコが終了出来ていませんね。
途中で文法がミスっています。

> IN(SELECT 部門ID FROM 部門 WHERE 部門名 = " & CombBOX & " )"

全然覚えていないので見当違いかもしれませんが。
　・CombBOXの両脇をシングルクォーテーションをつけてみる。
　・CombBOXはオブジェクトならプロパティ名までちゃんと指定する。

パッと見で気になったトコです。

この回答へのお礼

両方試しましたが、だめでした。
すみませんでした。

お礼日時：2006/07/25 16:26

No.3 ベストアンサー 回答者： nicotinism 回答日時： 2006/07/25 18:35

部門名はテキスト型ですよね？

WHERE 部門名 = " & CombBOX & " )" を
WHERE 部門名 = ' & CombBOX & "' )" としては？

また
Dim strSql as String
strsql = "SELECT 社員名 FROM 社員 WHERE 部門ID IN(SELECT 部門ID FROM 部門 WHERE 部門名 = ' & CombBOX & "' )"
debug.print strsql
としてイミディエイトウィンドウに出たもので確認する

それでもダメなら
イミディエイトウィンドウに出たものと
↓の行の前部分（数行）も提示されては？
.SOURCE "SELECT 社員名 FROM 社員 WHERE 部門ID IN(SELECT 部門ID FROM 部門 WHERE 部門名 = " & CombBOX & " )"

この回答へのお礼

ありがとうございました。
どうもcomboboxの両端に空白を入れておいたのがひっかかていたようです。

お礼日時：2006/07/26 12:02