| |
WinXp
Access2002です。
strSQLをクエリで次のように作り、strCDがnullには
問題なく全てのレコードが表示されます。
-------------------------------------------
SELECT T_工事台帳.工事番号
FROM T_工事台帳
WHERE (((T_工事台帳.工事番号) Like '*' & DLookUp("営業所ｺｰﾄﾞ","WT_設定ﾏｽﾀ","pk='1'") & '*'));
でも以下のようにモジュールに書くと
strCDがnullの場合は
”nullの使い方が不正です”というメッセージが出てしまって動きません。
strCDへの代入する式の問題だと思うのですが
お分かりの方がいらっしゃいましたらお教え下さい。
-------------------------------------------
Public Sub PS_個別原価管理表作成()
Dim strCD As String
Dim strSQL As String
strCD = DLookup("営業所ｺｰﾄﾞ", "WT_設定ﾏｽﾀ", "pk='1'")
strSQL = "INSERT INTO WT_個別原価管理表 ( 工事番号 ) " & _
"SELECT T_工事台帳.工事番号 " & _
"FROM T_工事台帳 " & _
"WHERE (((T_工事台帳.営業所ｺｰﾄﾞ) Like '*' & " & strCD & " & '*'));"
DoCmd.RunSQL strSQL
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
