Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 291
  • Last Modified:

macro to run from cmd button to include extra field

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
route217
Asked:
route217
  • 4
  • 2
1 Solution
 
mbizupCommented:
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
 
route217Author Commented:
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
 
mbizupCommented:
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
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
route217Author Commented:
Sorry other condition was if I wanted to remove the field region..via vba
0
 
mbizupCommented:
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
 
mbizupCommented:
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
 
Rey Obrero (Capricorn1)Commented:
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

NEW Veeam Backup for Microsoft Office 365 1.5

With Office 365, it’s your data and your responsibility to protect it. NEW Veeam Backup for Microsoft Office 365 eliminates the risk of losing access to your Office 365 data.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now