Hallo
Ik wil 2 AND's toevoegen aan een werkende query (zie beneden):
1) AND BLH_REMARK NOT LIKE %something%
2) AND BLH_SALES_TYPE NOT LIKE %other%
Door gissen en missen heb ik een hoop syntaxen geprobeerd maar ik krijg steeds errors terwijl ik type... Wat is de correcte manier om de 2 AND's toe te voegen?
Word er gek van en heb niet echt de tijd om het verder zelf uit te zoeken.
Alvast bedankt voor elke hulp!
Ik wil 2 AND's toevoegen aan een werkende query (zie beneden):
1) AND BLH_REMARK NOT LIKE %something%
2) AND BLH_SALES_TYPE NOT LIKE %other%
Door gissen en missen heb ik een hoop syntaxen geprobeerd maar ik krijg steeds errors terwijl ik type... Wat is de correcte manier om de 2 AND's toe te voegen?
Code:
Sheets("NewStuff").Select
Range("I8").Select
With Selection.QueryTable
.Connection = _
"ODBC;DRIVER=SQL Server;SERVER=BLAH-server;UID=user;PWD=password;APP=Microsoft® Access;WSID=yeah-file;DATABASE=database"
.Sql = Array( _
"SELECT BLAH.BLH_COLUMN_A, BLAH.BLH_DATE, BLAH.BLH_COLUMN_C," _
, _
"BLAH.BLH_CODE_DIV, MODELE.MOD_NAME, MODELE.MOD_NAME_KF, MODELE.MOD_ERREG, " _
, _
"BLAH.BLH_UNIT_ID" & Chr(13) & "" & Chr(10) & " FROM database.dbo.BLAH BLAH, " _
, _
"database.dbo.MODELE MODELE " & Chr(13) & "" & Chr(10) & "WHERE BLAH.BLH_MOD_ID = MODELE.MOD_ID AND " _
, _
"((BLAH.BLH_DATE>={ts '" & DateFrmStr & "'})" _
, _
"and(BLAH.BLH_DATE<={ts '" & DatetoStr & "'}) " _
, _
"AND(BLAH.BLH_FAX_DATE IS NULL))" & Chr(13) & "" & Chr(10) & "ORDER BY BLAH.BLH_DATE DESC" _
)
.Refresh False
End With
Word er gek van en heb niet echt de tijd om het verder zelf uit te zoeken.
Alvast bedankt voor elke hulp!