Solved

macro to run from cmd button to include extra field

Posted on 2013-12-04
7
270 Views
Last Modified: 2013-12-04
Hi Experts

Need a macro when the command button cmdarea is clicked..it insert  into the select qry the field "region" to the far right and sort by groupby and add the criteria "core"and run..To show the output.

Qry name:-
qry salesbyarea
0
Comment
Question by:route217
  • 4
  • 2
7 Comments
 
LVL 61

Accepted Solution

by:
mbizup earned 500 total points
ID: 39695309
Probably simpler to just create the whole query in code.  See the following for info/sample code using querydefs:
http://msdn.microsoft.com/en-us/library/office/bb177500(v=office.12).aspx


Your code might look something like this:


Sub CreateQuery()
     dim strSQL as string
     dim qdf as QueryDef

     strSQL = "SELECT Field1, Field2, Region FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
      
     set qdf = Currentdb.CreateQueryDef("qryMyQuery", strSQL)
     docmd,OpenQuery "qryMyQuery"
end sub

Open in new window



but better... create a form in datasheet view, including any needed fields,  and change the recordsource dynamically like this:

Sub CreateQuery()
     dim strSQL as string
     dim qdf as QueryDef

     strSQL = "SELECT Field1, Field2, Region FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
      

     docmd.OpenForm "frmMyFormName"
     forms!MyformName.Recordsource = strSQL
end sub

Open in new window

0
 

Author Comment

by:route217
ID: 39695381
Mbizup...

excellent feedback....as always...

just one last point if I was to revert the query back to its original state I.e. remove the region field....what would the vba be?
0
 
LVL 61

Expert Comment

by:mbizup
ID: 39695397
Are there some conditions where you want the field and other conditions where you dont?  If so, just include them in the code and add the field accordingly:

Sub CreateQuery()
     dim strSQL as string
     dim qdf as QueryDef

    ' For example, if you have a 'Use region' checkbox:
     If chkUseRegion = true then

            strSQL = "SELECT Field1, Field2, Region FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
      else
            strSQL = "SELECT Field1, Field2 FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
     End if

    ' etcetera
      

Open in new window

0
Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

 

Author Comment

by:route217
ID: 39695408
Sorry other condition was if I wanted to remove the field region..via vba
0
 
LVL 61

Expert Comment

by:mbizup
ID: 39695504
Not 100%clear what you are asking for, but try this:


' To create a query including region
Sub CreateQuery()
     dim strSQL as string
     dim qdf as QueryDef

     strSQL = "SELECT Field1, Field2, Region FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
      
     set qdf = Currentdb.CreateQueryDef("qryMyQuery", strSQL)
     docmd.OpenQuery "qryMyQuery"
end sub

Open in new window


To go back to not including region
Sub RevertQuery()

     dim strSQL as string
     dim qdf as QueryDef

      ' Delete the query
      currentdb.QueryDefs.Delete  "qryMyQuery"

     ' Recreate it without Region
     strSQL = "SELECT Field1, Field2 FROM YourTable WHERE core = '" & me.txtCore & "' ORDER BY [GroupBy]"
      
     set qdf = Currentdb.CreateQueryDef("qryMyQuery", strSQL)
     docmd.OpenQuery "qryMyQuery"
end sub

Open in new window

0
 
LVL 61

Expert Comment

by:mbizup
ID: 39695510
Finally, I'm not sure how you intend to use this... and it is a good academic exercise... but I am almost certain that this is NOT the optimal way to build your database,
0
 
LVL 119

Expert Comment

by:Rey Obrero
ID: 39695518
to preserve the original sql statement you have to store it in a variable and used it back when your done with adding/altering the original sql statement


dim oSql as string, qd as dao.querydef, db as dao.database
set db=currentdb
set qd=db.querydefs("qry salesbyarea")

oSql=qd.sql

'do your thing here
strSql="select..... <with added> fields ..etc.."
qd.sql=strSQl




'now return the original sql statement
qd.sql=oSql
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

948 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now