Senin, 18 Juli 2011

[MS_AccessPros] Re: Opening reports through Option Group

 

John-
That's right i have Tables - queries - forms - reports - macros - code?? I did compact it and then zipped.I could not get it how to the table links, queries, forms, and reports in another database and upload that.
If our problem is not solving, i am getting another that like in FoxPro (DOS) i was making Menu and submenus. Can we make our own menu bar and submenus in Access also?

Regards,
Khalid Tanweer

--- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@...> wrote:
>
> Khalid-
>
> If all your tables are in the _be file, your front end shouldn't be that large!
> What do you have in that file? Tables - queries - forms - reports - code??
> I've never seen a front end that big. Did you compact it first?
>
> Perhaps you can put the table links, queries, forms, and reports that
> demonstrate your problem in another database and upload that.
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
>
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid Tanweer
> Sent: Monday, July 18, 2011 1:23 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Re: Opening reports through Option Group
>
>
> John-
> I am using Access 2003, the file Mve is too big, its about 92.7MB after zipping
> its about 16,944KB and i assume upload limit at the site is maximum of 5MB. I
> have uploaded the file Mve_be, but unable to upload file Mve. What should i do?
>
> Regards,
> Khalid Tanweer
> --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@> wrote:
> >
> > Oh, and I'll need the names of the forms involved and what version of Access
> you
> > are using.
> >
> >
> > John Viescas, author
> > Microsoft Office Access 2010 Inside Out
> > Microsoft Office Access 2007 Inside Out
> > Building Microsoft Access Applications
> > Microsoft Office Access 2003 Inside Out
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Paris, France)
> >
> >
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
> > Sent: Monday, July 18, 2011 8:48 AM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: RE: [MS_AccessPros] Re: Opening reports through Option Group
> >
> > Khalid-
> >
> > I just need Mve_be and Mve. I don't need the MDE file.
> >
> > John Viescas, author
> > Microsoft Office Access 2010 Inside Out
> > Microsoft Office Access 2007 Inside Out
> > Building Microsoft Access Applications
> > Microsoft Office Access 2003 Inside Out
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Paris, France)
> >
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid Tanweer
> > Sent: Monday, July 18, 2011 8:20 AM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> >
> > John-
> > I have three files in my folder D:\Mve
> > Mve_be
> > Mve (Microsoft Office Access Application)
> > Mve (Microsoft Office Access MDE Database)
> > If you need MDE file, then should i uncheck "View Database window" in startup
> > options. OR you need me to upload complete folder zipped.
> >
> > Regards,
> > Khalid Tanweer
> >
> > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@> wrote:
> > >
> > > Khalid-
> > >
> > > Can you upload a copy of your database (compact and zip first) to the
> > > 2_Assistance_Needed folder on the group website?
> > >
> > > The macro needs to be changed to first test to see if the item selected is
> > > "Employees Category Wise". If that's the value, open your form with the
> > Option
> > > Group instead of opening the report. In your macro, it'll look something
> > like:
> > >
> > > Condition
> > > Action
> > > [Forms]![All Reports]![List5] = "Employees Category Wise" OpenForm ..
> name
> > > of your option group form
> > > ...
> > > StopMacro
> > >
> > > John Viescas, author
> > > Microsoft Office Access 2010 Inside Out
> > > Microsoft Office Access 2007 Inside Out
> > > Building Microsoft Access Applications
> > > Microsoft Office Access 2003 Inside Out
> > > SQL Queries for Mere Mortals
> > > http://www.viescas.com/
> > > (Paris, France)
> > >
> > >
> > >
> > > -----Original Message-----
> > > From: MS_Access_Professionals@yahoogroups.com
> > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid Tanweer
> > > Sent: Sunday, July 17, 2011 2:07 PM
> > > To: MS_Access_Professionals@yahoogroups.com
> > > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> > >
> > >
> > >
> > > John-
> > > Now when i am opening Form "All Reports". Row "Employees Category Wise" is
> > > displaying. Next two rows are marked #Deleted, even if i close the form and
> > > reopen two rows are marked with #Deleted under row "Employees Category
> Wise".
> > > Secondly while opening report "Employees Category Wise" i got the error
> > > message:The report name'Employees Category Wise'you entered in either the
> > > property sheet or macro is misspelled or referes to a report that does'nt
> > > exist.......
> > >
> > > For your reference:
> > > I have one macro "View Reports Macros" it has two macro names
> > > cmdOpenReport : On Click
> > > List5 : On Dbl Click
> > > Both have Action OpenReport
> > >
> > > Under Action Arguments:
> > > Report Name =[Forms]![All Reports]![List5]
> > > View ----- Print Preview
> > > And how would the form "Select your choice" open so that user can select his
> > > choice?
> > > Regards,
> > > Khalid Tanweer
> > >
> > >
> > > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@>
> wrote:
> > > >
> > > > Khalid-
> > > >
> > > > Ah, so the "delete" procedure simply checks for any in the table that
> aren't
> > > > there anymore and deletes just those rows. Let's go back to the other one
> > and
> > > > to this:
> > > >
> > > > -----------------------------------------------
> > > > Public Sub ReportNamesToTable()
> > > > On Error GoTo Err_ReportNamesToTable
> > > >
> > > > Dim db As DAO.Database
> > > > Dim rst As DAO.Recordset
> > > > Dim rpt As AccessObject
> > > > Dim strRptName As String
> > > > Dim strFind As String
> > > >
> > > > Set db = CurrentDb
> > > > Set rst = db.OpenRecordset("tblReportsList", dbOpenDynaset)
> > > >
> > > > ' Loop through all the Report Names in the Database
> > > > For Each rpt In CurrentProject.AllReports
> > > > strRptName = rpt.Name ' Get the Name
> > > >
> > > > With rst
> > > > strFind = "ReportName = """ & strRptName & """"
> > > > .FindFirst strFind
> > > > If .NoMatch Then
> > > > .AddNew
> > > > !ReportName = strRptName
> > > > .Update
> > > > End If
> > > > End With
> > > > Next rpt
> > > > ' Make sure the "special" row is there
> > > > rst.FindFirst "ReportName = ""Employees Category Wise"""
> > > > ' If not there,
> > > > If rst.NoMatch Then
> > > > ' Put it back
> > > > rst.AddNew
> > > > rst!ReportName = "Employees Category Wise"
> > > > rst.Update
> > > > End If
> > > > rst.Close
> > > >
> > > > Exit_ReportNamesToTable:
> > > > ' Release Memory
> > > > Set rst = Nothing
> > > > Set db = Nothing
> > > > Exit Sub
> > > >
> > > > Err_ReportNamesToTable:
> > > > MsgBox "Error " & Err.Number & " (" & Err.Description & ")" & _
> > > > " In procedure ReportNamesToTable"
> > > > Resume Exit_ReportNamesToTable
> > > > End Sub
> > > > ------------------------------------------
> > > >
> > > > .. and make this change to the "delete" procedure:
> > > >
> > > > ------------------------------------------
> > > > Public Sub ReportNamesDelete()
> > > >
> > > > Dim db As DAO.Database
> > > > Dim rst As DAO.Recordset
> > > > Dim rpt As AccessObject
> > > > Dim booFound As Boolean
> > > >
> > > > Set db = CurrentDb
> > > > Set rst = db.OpenRecordset("tblReportsList", dbOpenDynaset)
> > > >
> > > > With rst
> > > > ' Make sure there are records in the recordset
> > > > Do While .EOF = False
> > > > ' Set booFound as False for a Default setting
> > > > booFound = False
> > > > ' Special processing for Employees Category Wise
> > > > If Left(rst!ReportName, 23) <> "Employees Category Wise" Then
> > > > ' This is the fast way to check every name
> > > > For Each rpt In CurrentProject.AllReports
> > > > If !ReportName = rpt.Name Then
> > > > booFound = True
> > > > ' This Report is there so exit this loop
> > > > ' and move on to the next Record
> > > > Exit For
> > > > End If
> > > > Next rpt
> > > > ' If the Report was not found
> > > > ' booFound remains false
> > > > If booFound = False Then
> > > > .Delete
> > > > End If
> > > > Else
> > > > ' If this is the "special" record,
> > > > If rst!ReportName = "Employees Category Wise" Then
> > > > ' Keep it
> > > > Else
> > > > ' Throw it away
> > > > .Delete
> > > > End If
> > > > End If
> > > > ' Move to the next record
> > > > .MoveNext
> > > > Loop
> > > > End With
> > > > rst.Close
> > > >
> > > > ' Release Memory
> > > > Set rst = Nothing
> > > > Set db = Nothing
> > > >
> > > > End Sub
> > > > ------------------------------------------------
> > > >
> > > >
> > > > John Viescas, author
> > > > Microsoft Office Access 2010 Inside Out
> > > > Microsoft Office Access 2007 Inside Out
> > > > Building Microsoft Access Applications
> > > > Microsoft Office Access 2003 Inside Out
> > > > SQL Queries for Mere Mortals
> > > > http://www.viescas.com/
> > > > (Paris, France)
> > > >
> > > >
> > > >
> > > > -----Original Message-----
> > > > From: MS_Access_Professionals@yahoogroups.com
> > > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid
> Tanweer
> > > > Sent: Sunday, July 17, 2011 12:14 PM
> > > > To: MS_Access_Professionals@yahoogroups.com
> > > > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> > > >
> > > >
> > > > John-
> > > > This the code for ReportNamesDelete procedure:
> > > >
> > > > Public Sub ReportNamesDelete()
> > > >
> > > > Dim db As DAO.Database
> > > > Dim rst As DAO.Recordset
> > > > Dim rpt As AccessObject
> > > > Dim booFound As Boolean
> > > >
> > > > Set db = CurrentDb
> > > > Set rst = db.OpenRecordset("tblReportsList", dbOpenDynaset)
> > > >
> > > > With rst
> > > > ' Make sure there are records in the recordset
> > > > Do While .EOF = False
> > > > ' Set booFound as False for a Default setting
> > > > booFound = False
> > > > ' This is the fast way to check every name
> > > > For Each rpt In CurrentProject.AllReports
> > > > If !ReportName = rpt.Name Then
> > > > booFound = True
> > > > ' This Report is there so exit this loop
> > > > ' and move on to the next Record
> > > > Exit For
> > > > End If
> > > > Next rpt
> > > > ' If the Report was not found
> > > > ' booFound remains false
> > > > If booFound = False Then
> > > > .Delete
> > > > End If
> > > > ' Move to the next record
> > > > .MoveNext
> > > > Loop
> > > > End With
> > > > rst.Close
> > > >
> > > > ' Release Memory
> > > > Set rst = Nothing
> > > > Set db = Nothing
> > > >
> > > > End Sub
> > > >
> > > > Regards,
> > > > Khalid Tanweer
> > > > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@>
> > wrote:
> > > > >
> > > > > Khalid-
> > > > >
> > > > > What's in the ReportNamesDelete procedure? I would expect it to simply
> > be:
> > > > >
> > > > > CurrentDb.Execute "DELETE * FROM tblReportsList", dbFailOnError
> > > > >
> > > > >
> > > > > John Viescas, author
> > > > > Microsoft Office Access 2010 Inside Out
> > > > > Microsoft Office Access 2007 Inside Out
> > > > > Building Microsoft Access Applications
> > > > > Microsoft Office Access 2003 Inside Out
> > > > > SQL Queries for Mere Mortals
> > > > > http://www.viescas.com/
> > > > > (Paris, France)
> > > > >
> > > > >
> > > > >
> > > > > -----Original Message-----
> > > > > From: MS_Access_Professionals@yahoogroups.com
> > > > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid
> > Tanweer
> > > > > Sent: Sunday, July 17, 2011 10:47 AM
> > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> > > > >
> > > > > John-
> > > > > I modified the code as you did, on the line:
> > > > > If Left(rpt.Name, 23) <> "Employees Category Wise"
> > > > > It was showing error message, Compile error Expected: Then or GoTo
> > > > > So i added Then at the end:
> > > > > If Left(rpt.Name, 23) <> "Employees Category Wise" Then
> > > > >
> > > > > After that when i opened the form "All Reports" it is displaying all
> > report
> > > > name
> > > > > three times.
> > > > > Regards,
> > > > > Khalid
> > > > >
> > > > > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@>
> > > wrote:
> > > > > >
> > > > > > Khalid-
> > > > > >
> > > > > > If ReportNamesDelete clears the table, and you always run Delete
> before
> > > this
> > > > > > code, then it should be:
> > > > > >
> > > > > > Public Sub ReportNamesToTable()
> > > > > > On Error GoTo Err_ReportNamesToTable
> > > > > >
> > > > > > Dim db As DAO.Database
> > > > > > Dim rst As DAO.Recordset
> > > > > > Dim rpt As AccessObject
> > > > > > Dim strRptName As String
> > > > > >
> > > > > > Set db = CurrentDb
> > > > > > Set rst = db.OpenRecordset("tblReportsList", dbOpenDynaset,
> > > > dbAppendOnly)
> > > > > >
> > > > > > ' First, add the special entry
> > > > > > rst.AddNew
> > > > > > rst!ReportName = "Employees Category Wise"
> > > > > > rst.Update
> > > > > >
> > > > > > ' Loop through all the Report Names in the Database
> > > > > > For Each rpt In CurrentProject.AllReports
> > > > > > strRptName = rpt.Name ' Get the Name
> > > > > > ' Check for Employees Category Wise
> > > > > > If Left(rpt.Name, 23) <> "Employees Category Wise"
> > > > > > With rst
> > > > > > .AddNew
> > > > > > !ReportName = strRptName
> > > > > > .Update
> > > > > > End With
> > > > > > End If
> > > > > > Next rpt
> > > > > > rst.Close
> > > > > >
> > > > > > Exit_ReportNamesToTable:
> > > > > > ' Release Memory
> > > > > > Set rst = Nothing
> > > > > > Set db = Nothing
> > > > > > Exit Sub
> > > > > >
> > > > > > Err_ReportNamesToTable:
> > > > > > MsgBox "Error " & Err.Number & " (" & Err.Description & ")" & _
> > > > > > " In procedure ReportNamesToTable"
> > > > > > Resume Exit_ReportNamesToTable
> > > > > > End Sub
> > > > > >
> > > > > > That puts one entry for "Employees Category Wise" in the table along
> > with
> > > > all
> > > > > > the other report names. In the form that lets the user select from
> the
> > > > list,
> > > > > > you have to check to see if the user has selected this "special" entry
> > and
> > > > > open
> > > > > > your option form instead of opening the report selected.
> > > > > >
> > > > > > John Viescas, author
> > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > Building Microsoft Access Applications
> > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > SQL Queries for Mere Mortals
> > > > > > http://www.viescas.com/
> > > > > > (Paris, France)
> > > > > >
> > > > > >
> > > > > >
> > > > > > -----Original Message-----
> > > > > > From: MS_Access_Professionals@yahoogroups.com
> > > > > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid
> > > Tanweer
> > > > > > Sent: Sunday, July 17, 2011 9:16 AM
> > > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> > > > > >
> > > > > > John-
> > > > > > Below is the code for ReportNamesToTable, and thanks to you it was
> > > provided
> > > > to
> > > > > > me by you:
> > > > > >
> > > > > > Public Sub ReportNamesToTable()
> > > > > > On Error GoTo Err_ReportNamesToTable
> > > > > >
> > > > > > Dim db As DAO.Database
> > > > > > Dim rst As DAO.Recordset
> > > > > > Dim rpt As AccessObject
> > > > > > Dim strRptName As String
> > > > > > Dim strFind As String
> > > > > >
> > > > > > Set db = CurrentDb
> > > > > > Set rst = db.OpenRecordset("tblReportsList", dbOpenDynaset)
> > > > > >
> > > > > > ' Loop through all the Report Names in the Database
> > > > > > For Each rpt In CurrentProject.AllReports
> > > > > > strRptName = rpt.Name ' Get the Name
> > > > > >
> > > > > > With rst
> > > > > > strFind = "ReportName = """ & strRptName & """"
> > > > > > .FindFirst strFind
> > > > > > If .NoMatch Then
> > > > > > .AddNew
> > > > > > !ReportName = strRptName
> > > > > > .Update
> > > > > > End If
> > > > > > End With
> > > > > > Next rpt
> > > > > > rst.Close
> > > > > >
> > > > > > Exit_ReportNamesToTable:
> > > > > > ' Release Memory
> > > > > > Set rst = Nothing
> > > > > > Set db = Nothing
> > > > > > Exit Sub
> > > > > >
> > > > > > Err_ReportNamesToTable:
> > > > > > MsgBox "Error " & Err.Number & " (" & Err.Description & ")" & _
> > > > > > " In procedure ReportNamesToTable"
> > > > > > Resume Exit_ReportNamesToTable
> > > > > > End Sub
> > > > > >
> > > > > > Regards,
> > > > > > Khalid
> > > > > >
> > > > > > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas" <john@>
> > > > wrote:
> > > > > > >
> > > > > > > Khalid-
> > > > > > >
> > > > > > > I would need to see the code for ReportNamesToTable. You could
> > > > "customize"
> > > > > it
> > > > > > > to replace the two reports in the list with one entry, then if the
> > user
> > > > > > selects
> > > > > > > that record, open your form with the option buttons.
> > > > > > >
> > > > > > > John Viescas, author
> > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > Building Microsoft Access Applications
> > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > SQL Queries for Mere Mortals
> > > > > > > http://www.viescas.com/
> > > > > > > (Paris, France)
> > > > > > >
> > > > > > >
> > > > > > > -----Original Message-----
> > > > > > > From: MS_Access_Professionals@yahoogroups.com
> > > > > > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Khalid
> > > > Tanweer
> > > > > > > Sent: Sunday, July 17, 2011 8:43 AM
> > > > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > > > Subject: [MS_AccessPros] Re: Opening reports through Option Group
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > John-
> > > > > > > ReportNamesDelete and ReportNamesToTable was required to run to
> > autofill
> > > > > > report
> > > > > > > names and remove any reports deleted from the form "All Reports".
> Now
> > in
> > > > the
> > > > > > > form "Select your choice" i have done as you mentioned to create a
> > > command
> > > > > > > button to trigger opening the correct report, the code is as folows
> > for
> > > OK
> > > > > > > button:
> > > > > > >
> > > > > > > Private Sub Command7_Click()
> > > > > > > If Frame0 = 0 Then
> > > > > > > 'Open All Projects
> > > > > > > DoCmd.OpenReport "Employees Category Wise All Projects",
> acPreview
> > > > > > > Else
> > > > > > > DoCmd.Close
> > > > > > > 'Open Selective Project
> > > > > > > DoCmd.OpenReport "Employees Category Wise Selective Project",
> > > > acPreview
> > > > > > > End If
> > > > > > > Exit Sub
> > > > > > > End Sub
> > > > > > >
> > > > > > > Code for Cancel button is:
> > > > > > >
> > > > > > > Private Sub Command9_Click()
> > > > > > > On Error GoTo Err_Command9_Click
> > > > > > >
> > > > > > >
> > > > > > > DoCmd.Close
> > > > > > > DoCmd.OpenForm "All Reports"
> > > > > > > Exit_Command9_Click:
> > > > > > > Exit Sub
> > > > > > >
> > > > > > > Err_Command9_Click:
> > > > > > > MsgBox Err.Description
> > > > > > > Resume Exit_Command9_Click
> > > > > > >
> > > > > > > End Sub
> > > > > > >
> > > > > > > The main thing which i want to solve is that all reports names are
> > there
> > > > in
> > > > > > Form
> > > > > > > "All Reports" when i open this form the following two reports in
> > > question
> > > > > are
> > > > > > > shown there:
> > > > > > > "Employees Category Wise All Projects"
> > > > > > > "Employees Category Wise Selective Project"
> > > > > > > Would it be not better that a report named "Employees Category Wise"
> > > shown
> > > > > in
> > > > > > > the list, after opening it, the form "Select your choice" opens and
> > user
> > > > > > selects
> > > > > > > his required report.
> > > > > > > BUT again my question is should i stop auto filling the form "All
> > > Reports"
> > > > > by
> > > > > > > not running procedure ReportNamesToTable
> > > > > > > Regards,
> > > > > > > Khalid Tanweer
> > > > > > >
> > > > > > >
> > > > > > > --- In MS_Access_Professionals@yahoogroups.com, "John Viescas"
> <john@>
> > > > > wrote:
> > > > > > > >
> > > > > > > > Khalid-
> > > > > > > >
> > > > > > > > Why do you need to run ReportNamesDelete and ReportNamesToTable
> when
> > > the
> > > > > > form
> > > > > > > > opens?
> > > > > > > >
> > > > > > > > If you have an option group, you need a command button to trigger
> > > > opening
> > > > > > the
> > > > > > > > correct report after the user picks the report wanted in the
> group.
> > > The
> > > > > > code
> > > > > > > > behind the command button might look like:
> > > > > > > >
> > > > > > > > Private Sub cmdOpenReport_Click()
> > > > > > > > ' Check the option wanted
> > > > > > > > If Me.optReport = 1 Then
> > > > > > > > ' Open All projects
> > > > > > > > DoCmd.OpenReport "Employees Category Wise All Projects",
> > > > > > acViewPreview
> > > > > > > > Else
> > > > > > > > ' Open selective
> > > > > > > > DoCmd.OpenReport " Employees Category Wise Selective
> > Project",
> > > > > > > > acViewPreview
> > > > > > > > End If
> > > > > > > > End Sub
> > > > > > > >
> > > > > > > >
> > > > > > > > John Viescas, author
> > > > > > > > Microsoft Office Access 2010 Inside Out
> > > > > > > > Microsoft Office Access 2007 Inside Out
> > > > > > > > Building Microsoft Access Applications
> > > > > > > > Microsoft Office Access 2003 Inside Out
> > > > > > > > SQL Queries for Mere Mortals
> > > > > > > > http://www.viescas.com/
> > > > > > > > (Paris, France)
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > -----Original Message-----
> > > > > > > > From: MS_Access_Professionals@yahoogroups.com
> > > > > > > > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of
> Khalid
> > > > > Tanweer
> > > > > > > > Sent: Saturday, July 16, 2011 1:45 PM
> > > > > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > > > > Subject: [MS_AccessPros] Opening reports through Option Group
> > > > > > > >
> > > > > > > > Hi John,
> > > > > > > > Hope you doing well. Long ago you gave me procedures to
> > automatically
> > > > > > populate
> > > > > > > > Report Names in a form "All Reports" and if any report is deleted
> it
> > > is
> > > > > > > > automatically deleted from the form. Every thing is working there
> > > > > smoothly.
> > > > > > > > Now i have come to a situation that if i had two reports:
> > > > > > > >
> > > > > > > > "Employees Category Wise All Projects"
> > > > > > > > "Employees Category Wise Selective Project"
> > > > > > > >
> > > > > > > > I have created a form "Select your choice" having option Group for
> > the
> > > > > above
> > > > > > > two
> > > > > > > > reports. This form works and opens both reports simultaneously.
> > > > > > > >
> > > > > > > > My question is that, what should i do for the report names
> residing
> > in
> > > > > form
> > > > > > > "All
> > > > > > > > Reports", and on form "All Reports" On Open event this code is
> > > running:
> > > > > > > >
> > > > > > > > Private Sub Form_Open(Cancel As Integer)
> > > > > > > > 'This provides an informative and professional
> > > > > > > > ' appearance to our Form Title Bar
> > > > > > > > Me.Caption = " Report Date Manager" & _
> > > > > > > > "Today is " & Format(Date, "dddd"", ""d/m/yyyy")
> > > > > > > >
> > > > > > > > ' We call these two Procedures to get the
> > > > > > > > ' current Report Names in our table
> > > > > > > > ReportNamesDelete
> > > > > > > > ReportNamesToTable
> > > > > > > > End Sub
> > > > > > > >
> > > > > > > > Now where should i place this form "Select your choice". Please
> also
> > > > > suggest
> > > > > > > is
> > > > > > > > this a good practice to make these type of forms asking user to
> > select
> > > > his
> > > > > > > > choice from Option Group, or keeping all report names in form "All
> > > > > Reports"
> > > > > > is
> > > > > > > > better. I am thinking that if i make such forms asking user to
> > select
> > > > his
> > > > > > > choice
> > > > > > > > would reduce the number of reports in form "All Reports"
> > > > > > > >
> > > > > > > > Regards,
> > > > > > > > Khalid Tanweer
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > ------------------------------------
> > > > > > > >
> > > > > > > > Yahoo! Groups Links
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > ------------------------------------
> > > > > > >
> > > > > > > Yahoo! Groups Links
> > > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > ------------------------------------
> > > > > >
> > > > > > Yahoo! Groups Links
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > ------------------------------------
> > > > >
> > > > > Yahoo! Groups Links
> > > > >
> > > >
> > > >
> > > >
> > > >
> > > > ------------------------------------
> > > >
> > > > Yahoo! Groups Links
> > > >
> > >
> > >
> > >
> > >
> > > ------------------------------------
> > >
> > > Yahoo! Groups Links
> > >
> >
> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> >
> >
> >
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
>
>
>
>
> ------------------------------------
>
> Yahoo! Groups Links
>

__._,_.___
Recent Activity:
.

__,_._,___

Tidak ada komentar:

Posting Komentar