I am trying to use data entered on a form to create an SQL string that will
be passed to a query. Every time I compile the VBA I get the "Compile Error:
Type Mismatch" on the set qdf = query name line. I have checked my reference
library and my DAO 3.6 is the highest priority. Below is my code. Any idea
what the issue might be?

Private Sub Command172_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Set db = CurrentDb()
Set qdf = "qry short list status report"

qdf = "SELECT ...

You seem to like spaces in your names…

Private Sub Command172_Click()

CurrentDb.QueryDefs("qry short list status report").SQL = "SELECT * From
Users"

End Sub


--
A nod is as good as a wink to a blind horse.


"WildlyHarry" wrote:

> I am trying to use data entered on a form to create an SQL string that will
> be passed to a query. Every time I compile the VBA I get the "Compile Error:
> Type Mismatch" on the set qdf = query name line. I have checked my reference
> library and my DAO 3.6 is the highest priority. Below is my code. Any idea
> what the issue might be?
>
> Private Sub Command172_Click()
>
> Dim db As DAO.Database
> Dim qdf As DAO.QueryDef
> Set db = CurrentDb()
> Set qdf = "qry short list status report"
>
> qdf = "SELECT ...
>

Worked like a charm!

Thanks

"ChrisO" wrote:

> You seem to like spaces in your names…
>
> Private Sub Command172_Click()
>
> CurrentDb.QueryDefs("qry short list status report").SQL = "SELECT * From
> Users"
>
> End Sub
>
>
> --
> A nod is as good as a wink to a blind horse.
>
>
> "WildlyHarry" wrote:
>
> > I am trying to use data entered on a form to create an SQL string that will
> > be passed to a query. Every time I compile the VBA I get the "Compile Error:
> > Type Mismatch" on the set qdf = query name line. I have checked my reference
> > library and my DAO 3.6 is the highest priority. Below is my code. Any idea
> > what the issue might be?
> >
> > Private Sub Command172_Click()
> >
> > Dim db As DAO.Database
> > Dim qdf As DAO.QueryDef
> > Set db = CurrentDb()
> > Set qdf = "qry short list status report"
> >
> > qdf = "SELECT ...
> >

No problem but I think life would be easier with qryShortListStatusReport…
--
A nod is as good as a wink to a blind horse.


"WildlyHarry" wrote:

> Worked like a charm!
>
> Thanks
>
> "ChrisO" wrote:
>
> > You seem to like spaces in your names…
> >
> > Private Sub Command172_Click()
> >
> > CurrentDb.QueryDefs("qry short list status report").SQL = "SELECT * From
> > Users"
> >
> > End Sub
> >
> >
> > --
> > A nod is as good as a wink to a blind horse.
> >
> >
> > "WildlyHarry" wrote:
> >
> > > I am trying to use data entered on a form to create an SQL string that will
> > > be passed to a query. Every time I compile the VBA I get the "Compile Error:
> > > Type Mismatch" on the set qdf = query name line. I have checked my reference
> > > library and my DAO 3.6 is the highest priority. Below is my code. Any idea
> > > what the issue might be?
> > >
> > > Private Sub Command172_Click()
> > >
> > > Dim db As DAO.Database
> > > Dim qdf As DAO.QueryDef
> > > Set db = CurrentDb()
> > > Set qdf = "qry short list status report"
> > >
> > > qdf = "SELECT ...
> > >