[AccessD] Query runs and doesn't run

[Kaup, Chester]

Well I did find one syntax error. Need two pairs of double quotes around PATT. Should have been ""PATT"". Still getting no results though.

From: Kaup, Chester
Sent: Tuesday, January 09, 2018 3:50 PM
To: 'Access Developers discussion and problem solving'
Subject: Query runs and doesn't run

I have the following query that run just fine from the query grid

SELECT Allocations.ChildPID, Allocations.ChildPTYPE, Allocations.PID, Allocations.PTYPE, Allocations.Date, Allocations.Factor_1, Allocations.Factor_2 INTO [tbl Initial Pattern Factors]
FROM Allocations
WHERE (((Allocations.PTYPE)="PATT") AND ((Allocations.Date)=#6/1/1935#));

I have the same query in VBA but it generates no output. I am at a loss as to what is going on. Here is the VBA part.

Dim dbs As DAO.Database
Set dbs = CurrentDb

strSQL = "SELECT Allocations.ChildPID, Allocations.ChildPTYPE, Allocations.PID, Allocations.PTYPE, Allocations.Date, Allocations.Factor_1, Allocations.Factor_2 INTO [tbl Initial Pattern Factors] " & _
                  "FROM Allocations " & _
                  "WHERE Allocations.PTYPE='PATT' AND Allocations.Date=#6/1/1935#;"

        dbs.Execute strSQL


What is even stranger is the following statement does not fail although I do not see the table in the list of tables

DoCmd.DeleteObject acTable, "tbl Initial Pattern Factors"