Query Creation

[thegameoflife]

Is it possible to write code in VBA to create a query and have it appear under the query tab in Access.

 

[smedvid]

Const conBtns As Integer = vbYesNo + vbExclamation + vbDefaultButton2 + vbApplicationModal
lcErr_Message = ""
lcQueryName = "Temp"
lcFields = "SELECT * FROM qry_FundsTransfer_Dump "
lcWhere = "WHERE ENTERDATE = #" & Me.cbo_Value_Date.Value & "#"
lcSQL = lcFields & lcWhere

'Error Checking Section
If Me.cbo_Value_Date.Value = "" Or IsNull(Me.cbo_Value_Date.Value) Then
MsgBox ("Please Select a Value Date&quot
Exit Sub
End If

For Each lc_Query In lc_Db.QueryDefs
If Trim(lc_Query.Name) = Trim(lcQueryName) Then
' Delete Existing Query! or ADD Prompt asking
'if they wish to delete first!!!!
lc_Db.QueryDefs.Delete (lcQueryName)
lc_Db.QueryDefs.Refresh
End If
Next lc_Query

Set lc_Query = lc_Db.CreateQueryDef(lcQueryName, lcSQL)
lc_Db.QueryDefs.Refresh
lc_Db.Close Steve Medvid
"IT Consultant & Web Master"
e-Mail: Stephen_Medvid@GMACM.com

http://www.saveourfarm.com

Chester County, PA Residents
Please Show Your Support...

 

[OldTom]

Also look at thread181-84900
Tom

 

[thegameoflife]

Thank you