[AccessD] Automating parameterized action queries.....SOLVED!

Sad Der accessd666 at yahoo.com
Wed Mar 9 06:06:58 CST 2005


Ken,

this works great! thnx a lot.

Regards,

Sander
--- Sad Der <accessd666 at yahoo.com> wrote:
> Thnx Ken,
> 
> No idea how I should implement it but I've got a
> 'lost
> hour' so I'll give it a shot.
> 
> This is exactly what I need...i think :-)
> 
> Regards,
> 
> Sander
> 
> --- Ken Ismert <KIsmert at TexasSystems.com> wrote:
> > Sander,
> > 
> > There is a class-based approach:
> > 
> > Define a class, CReportParms, with two variant
> > properties, Version and
> > StartDate:
> > 
> >    Private mVersion As Variant
> >    Private mStartDate As Variant
> > 
> >    Property Get Version() As Variant
> >       Version = mVersion
> >    End Property
> >    Property Let Version(VersionIn As Variant)
> >       mVersion = VersionIn
> >    End Property
> > 
> >    ' (Similar Get/Let for StartDate)
> > 
> >    Private Sub Class_Initialize()
> >       mVersion = Null
> >       mStartDate = Null
> >    End Sub
> > 
> > Declare it as global in one of your modules:
> > 
> >    Public gRptParms As New CReportParms
> > 
> > Provide two global functions to use in your
> queries
> > in place of your
> > parameters:
> > 
> >    Public Function ParmVersion() As Variant
> >       Parms = gRptParms.Version
> >    End Function
> >    Public Function ParmStartDate() As Variant
> >       Parms = gRptParms.StartDate
> >    End Function
> > 
> > You can set these properties in your form before
> you
> > run your report:
> > 
> >    gRptParms.Version = txtVersion
> >    gRptParms.StartDate = txtStartDate
> > 
> > If you can calculate reasonable values for Version
> > and StartDate, you can do
> > so in the CReportParms Initialize event.
> > Alternately, you can prompt the
> > user in the class when the queries are run
> > standalone:
> > 
> >    Property Get Version() As Variant
> >       Dim sVersion As String
> >       If IsNull(mVersion) Then
> >           sVersion = InputBox("Enter Version:")
> >           If sVersion > "" Then
> >              mVersion = CLng(sVersion)
> >           End If
> >       End If
> >       Version = mVersion
> >    End Property
> > 
> > You could also have a third property, FormDriven,
> > that, when set to True,
> > doesn't prompt the user. Only your frmReport form
> > will set this property,
> > and clear it upon exit. That way, the user is
> always
> > prompted when running
> > the queries stand-alone.
> > 
> > -Ken
> > 
> > > Hi group,
> > >
> > > my story of the queries continues. I need to
> > > run a set of action queries. This works fine.
> > >
> > > Several queries have parameters. So that means
> > > the user has to watch the screen for a
> > > parameter to pop-up. Is it possible to add
> > > some parameter fields in the form to fill
> > > the required parameters...WITHOUT changing
> > > the query it self?
> > >
> > > So I have a parameters in my query:
> > > [Enter version:]
> > > [Enter startdate:]
> > >
> > > And I do not want to change these to:
> > > forms!frmReport!txtVersion
> > > forms!frmReport!txtStartDate
> > 
> > 
> > 
> > -- 
> > 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
> 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/



More information about the AccessD mailing list