| |
いつもお世話になります。
下記のように「testテーブル」のＦ列が重複している場合のデータをフォーム上に表示させようと
しております。
Ｆ列に長さゼロの値が入っている場合は表示させないようにしたいのですが、実行すると
「構文エラー/演算子がありません」とエラーメッセージが表示されてしまいます。
「'」でコメント化している記述を使うとエラーにはなりませんが、「長さゼロの値」も表示させれて
しまいます。
表示させないようにするにはどのようにしたらよろしいでしょうか。
どうかご教授をよろしくお願いします。
Function frmRecSource() As String
Dim strSQL As String
Select Case Me.フレーム54
Case 1
strSQL = "select * " _
& "from test_TABLE "
Case 2
strSQL = "select test_TABLE.[A], test_TABLE.[B], test_TABLE.[C], " _
& "test_TABLE.[D], test_TABLE.[E], test_TABLE.[F], test_TABLE.[G], " _
& "test_TABLE.[H], test_TABLE.[I] " _
& "from test_TABLE " _
& "WHERE (((test_TABLE.F) In (SELECT [F] FROM [test_TABLE] As Tmp GROUP BY [F] HAVING Count(*)>1 )) AND ((test_TABLE.F)<>""))""" _
& "ORDER BY test_TABLE.F DESC "
'strSQL = "select test_TABLE.[A], test_TABLE.[B], test_TABLE.[C], " _
' & "test_TABLE.[D], test_TABLE.[E], test_TABLE.[F], test_TABLE.[G], " _
' & "test_TABLE.[H], test_TABLE.[I] " _
' & "from test_TABLE " _
' & "WHERE (((test_TABLE.[F]) In (SELECT [F] FROM [test_TABLE] As Tmp GROUP BY [F] HAVING Count(*)>1 ))) " _
' & "ORDER BY test_TABLE.F "
End Select
Debug.Print strSQL
frmRecSource = strSQL
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
