[AccessD] Run stored action query

Hi,

not only was a field missing there was also a datatype
change. A field changed from text to Number-Double!?!

Thnx for the help.

Btw I solved it like this:
         Set rstQueries = New ADODB.Recordset
         strSQL = vbNullString
         strSQL = "SELECT tReportQuery.QueryName " & _
                      "FROM tReports INNER JOIN
tReportQuery ON tReports.ID = tReportQuery.ReportID "
& _
                      "WHERE tReports.ID = " &
m_intReportID
         
         With rstQueries
            .ActiveConnection =
CurrentProject.Connection
            .Source = strSQL
            .Open
            If (Not .BOF) And (Not .EOF) Then
               .MoveFirst
               Do While Not .EOF
                  DoCmd.OpenQuery (.Fields(0))
                  .MoveNext
               Loop
            End If
         End With


Regards,

Sander


--- Sad Der <accessd666 at yahoo.com> wrote:

> Rocky,
> 
> thnx for the reply. I was just about to update this
> item.
> 
> I created some very simple queries:
> insert;
> update;
> make table;
> 
> They all ran fine.
> 
> Then I checked the query and noticed an "Expr1"
> field.
> It seems that the source file has changed and a
> field
> I need is missing!!
> 
> Thnx for the help.
> 
> Regards,
> 
> Sander
> --- Rocky Smolin - Beach Access Software
> <bchacc at san.rr.com> wrote:
> 
> > Can you run the query by itself from the database
> > container?  Can you see it 
> > in design view and SQL view?  Can you post the SQL
> > statement here?
> > 
> > Regards,
> > 
> > Rocky Smolin
> > Beach Access Software
> > http://www.e-z-mrp.com
> > 858-259-4334
> > 
> > ----- Original Message ----- 
> > From: "Sad Der" <accessd666 at yahoo.com>
> > To: "Access Developers discussion and problem
> > solving" 
> > <accessd at databaseadvisors.com>
> > Sent: Sunday, March 06, 2005 10:40 PM
> > Subject: RE: [AccessD] Run stored action query
> > 
> > 
> > > Hi,
> > >
> > > I've tried both given solutions but they both
> > failed!
> > > I keep getting the error:
> > > ?err.Number
> > > 3615
> > > ?err.Description
> > > Type mismatch in expression.
> > >
> > > Can anybody please help me on this one?
> > > Thnx!
> > >
> > > Regards
> > > Sander
> > >
> > >
> > > --- Reuben Cummings <reuben at gfconsultants.com>
> > wrote:
> > >
> > >> You should be able to use
> > >>
> > >> Docmd.OpenQuery("queryname")
> > >>
> > >> You may also want to use "docmd.setwarnings
> > False"
> > >> before the query and
> > >> "docmd.setwarnings True" after the query so the
> > user
> > >> doesn't have to answer
> > >> the prompts about adding, editing, or deleting
> > >> records associated with
> > >> action queries.
> > >>
> > >>
> > >>
> > >> Reuben Cummings
> > >> GFC, LLC
> > >> phone: 812.523.1017
> > >> email: reuben at gfconsultants.com
> > >>
> > >>
> > >> -----Original Message-----
> > >> From: accessd-bounces at databaseadvisors.com
> > >> [mailto:accessd-bounces at databaseadvisors.com]On
> > >> Behalf Of Andy Lacey
> > >> Sent: Friday, March 04, 2005 9:09 AM
> > >> To: Access Developers discussion and problem
> > solving
> > >> Subject: Re: [AccessD] Run stored action query
> > >>
> > >>
> > >> Hi Sander
> > >>
> > >> Dim db as Database
> > >> Dim qdf as Querydef
> > >>
> > >> Set db = CurrentDb
> > >> Set qdf=db.Querydefs("xxxxquery")
> > >> qdf.Execute
> > >>
> > >> set qdf = nothing
> > >> set db = nothing
> > >>
> > >> HTH
> > >>
> > >> --
> > >> Andy Lacey
> > >> http://www.minstersystems.co.uk
> > >>
> > >>
> > >>
> > >> --------- Original Message --------
> > >> From: Access Developers discussion and problem
> > >> solving
> > >> <accessd at databaseadvisors.com>
> > >> To: Acces User Group
> > <accessd at databaseadvisors.com>
> > >> Subject: [AccessD] Run stored action query
> > >> Date: 04/03/05 14:24
> > >>
> > >> >
> > >> > Hi group,
> > >> >
> > >> > how do I run a stored action query using VBA?
> > >> > I'm using A2K.
> > >> >
> > >> > I know how to run a select query. I tried the
> > same
> > >> for
> > >> > my action query but Access didn't like that
> :-(
> > >> >
> > >> > TIA
> > >> >
> > >> > Sander
> > >> >
> > >> >
> > >> >
> > >> >
> > >> >
> > >> > __________________________________
> > >> > Celebrate Yahoo!'s 10th Birthday!
> > >> > Yahoo! Netrospective: 100 Moments of the Web
> > >> > http://birthday.yahoo.com/netrospective/
> > >> > --
> > >> > AccessD mailing list
> > >> > AccessD at databaseadvisors.com
> > >> >
> > >>
> >
> http://databaseadvisors.com/mailman/listinfo/accessd
> > >> > Website: http://www.databaseadvisors.com
> > >> >
> > >> >
> > >> >
> > >> >
> > >> >
> > >>
> > >>
> ________________________________________________
> > >> Message sent using UebiMiau 2.7.2
> > >>
> > >> --
> > >> AccessD mailing list
> > >> AccessD at databaseadvisors.com
> > >>
> >
> http://databaseadvisors.com/mailman/listinfo/accessd
> > >> Website: http://www.databaseadvisors.com
> > >>
> > >>
> > >>
> > >>
> > >> -- 
> > >> AccessD mailing list
> > >> AccessD at databaseadvisors.com
> > >>
> >
> http://databaseadvisors.com/mailman/listinfo/accessd
> > >> Website: http://www.databaseadvisors.com
> > >>
> > >
> > >
> > >
> > >
> > >
> > > __________________________________
> > > Celebrate Yahoo!'s 10th Birthday!
> > > Yahoo! Netrospective: 100 Moments of the Web
> > > http://birthday.yahoo.com/netrospective/
> > > -- 
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> 
=== message truncated ===



	
		
__________________________________ 
Celebrate Yahoo!'s 10th Birthday! 
Yahoo! Netrospective: 100 Moments of the Web 
http://birthday.yahoo.com/netrospective/