including a where clause in a vba sql 'insert into' statement 1

[maggsz]

how do I include a where clause in the sql 'insert into' statement:

strSql = "Insert into parts (ID, part_number) values (" & ID & ", '" & strpart(i) & "')"

the where clause I want to include is

str_part <> "A" and str_part <> "B" and str_part is not null

thanks in advance

maggsz

 

[PHV]

There is no WHERE clause in an INSERT INTO statement.
I'd use an If instruction in VBA, eg:
If str_part(i) <> "A" And str_part(i) <> "B" And Not IsNull(str_part(i) Then
strSql = "Insert into parts (ID, part_number) values (" & ID & ", '" & strpart(i) & "')"
...
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[maggsz]

Hi PHV
thanks so much for pointing me in the right direction.
This is what I ended up with and it worked.
I have learnt another piece of the vba sql puzzle thanks to you PHV

strSql = "Insert into parts (ID, part_number) values (" & ID & ", '" & strpart(i) & "')"
If str_part(i) <> "A" And str_part(i) <> "B" And Not IsNull(str_part(i) Then
currentdb.execute strSql
end if