From: Kalai on
hi anders,
Is that help working for you. the macro is not working for me
i reffered this link
http://office.microsoft.com/en-us/access/HA100963141033.aspx#form_param

hope u too reffered the same.. can u help me out..
i need a form that will help to query and display results based on the
parameters entered..

thank you.
Kalai

--
Kalai


"Klatuu" wrote:

> I suggest you break your Macro into two pieces.
> The first should do all the things to open the form.
> Then use the rest of the macro to do what you are doing now when you want to
> run the report. In the Click event of the Cancel button, close the form.
> --
> Dave Hargis, Microsoft Access MVP
>
>
> "anders bitzer" wrote:
>
> > Hi Neville
> > Thanks for answer.
> > I have a report and when starting this report a macro runs and opens the
> > form on which I give the parameters. Therefore the cancel button must stop
> > this macro if anyone clicks it. Anyway I will try to make in the way that you
> > suggest.
> > Thanks
> > Anders
> >
> > "NevilleT" skrev:
> >
> > > Hi Anders
> > > Not sure how you are approaching this, but the usual way is to have a report
> > > button on a form. The report button opens the parameter form, and you fill
> > > in details. You then have a button on the parameter form called something
> > > like "Preview Report" which opens the report. If you close the parameter
> > > form, you never get to the report. If you want you can add a "Cancel" button
> > > to the parameter form which closes the form.
> > >
> > > Neville Turbit
> > > www.projectperfect.com.au
> > >
> > >
> > > "anders bitzer" wrote:
> > >
> > > > Hi
> > > > As new danish user in Access 2007 I have a small question.
> > > > With help from the help menu, I have created a form that collects parameters
> > > > for a report. Only thing missing is a cancel button on the form that allows
> > > > me to cancel the query.
> > > > Following the help menu I have following module in VBA, but I guess
> > > > something should be changed between the brackets.
> > > >
> > > > Function IsLoaded(ByVal strFormName As String) As Boolean
> > > >
> > > > Dim oAccessObject As AccessObject
> > > > Set oAccessObject = CurrentProject.AllForms(strFormName)
> > > >
> > > > If oAccessObject.IsLoaded Then
> > > > If oAccessObject.CurrentView <> acCurViewDesign Then
> > > > IsLoaded = True
> > > > End If
> > > > End If
> > > >
> > > > Thanks in advance for any help.
> > > > Anders