convert microsoft query into string and Vice versa

[kalragarvita]

I need to put some conditions for query so need to save query as string and then want to put it back to its orignal form..
below is the query

"SELECT ""HPD:HelpDesk"".""Case ID+"", ""HPD:HelpDesk"".Category, ""HPD:HelpDesk"".Type, ""HPD:HelpDesk"".Item, ""HPD:HelpDesk"".""Case Type"", ""HPD:HelpDesk"".Summary, ""HPD:HelpDesk"".Description, ""HPD:HelpDesk"".""Cre" _
        , _
        "ate Time"", ""HPD:HelpDesk"".""Arrival Time"", ""HPD:HelpDesk"".Region, ""HPD:HelpDesk"".Status, ""HPD:HelpDesk"".Pending, ""HPD:HelpDesk"".Priority, ""HPD:HelpDesk"".""Assigned To Group+"", ""HPD:HelpDesk"".""Assigned T" _
        , _
        "o Individual+"", ""HPD:HelpDesk"".""Resolved Time"", ""HPD:HelpDesk"".FirstCallResolution, ""HPD:HelpDesk"".EMI_Department, ""HPD:HelpDesk"".EMI_Operating_Commitee" & Chr(13) & "" & Chr(10) & "FROM ""HPD:HelpDesk"" ""HPD:Hel" _
        , _
        "pDesk""" & Chr(13) & "" & Chr(10) & "WHERE (""HP" _
        , _
        "D:HelpDesk"".Status='Assigned')OR (""HPD:HelpDesk"".Status='Pending') OR (""HPD:HelpDesk"".Status='Work In Progress') AND (""HPD:HelpDesk"".""Case Type""='Incident') And ""HPD:HelpDesk"".EMI_Department='" & Department & "'AND (" _
        , _
        """HPD:HelpDesk"".EMI_Operating_Commitee = '" & OperatingCommitee & "')" _
        )

Please help me!!!

[Stewart Ross]

Hi, and Welcome to Bytes!

I have no idea what it is you are really asking here. Your query as you list it seems to consist of a whole series of disconnected key words in string quotes -I've not come across this before at all. Could you explain why it is so disconnected, and what you expect in the way of assistance from us?

Thanks

Stewart

[ADezii]

1. I too, like Stewart, am very confused as to what you are exactly asking. If you simply wish to save the SQL of a Query in a String, this is a very simple matter. I'll use a sample Query named qryEmployees for the example:
   

   Dim strSQL As String
   Dim qdf As DAO.QueryDef
    
   Set qdf = CurrentDb.QueryDefs("qryEmployees")
    
   strSQL = qdf.SQL
    
   Debug.Print strSQL

2. Debug.Print strSQL yields the following:
   

   SELECT Employees.EmployeeID, Employees.LastName, Employees.FirstName, Employees.Title, Employees.TitleOfCourtesy, Employees.BirthDate, Employees.HireDate, Employees.Address, Employees.City, Employees.Region, Employees.PostalCode, Employees.Country, Employees.HomePhone, Employees.Extension, Employees.Photo, Employees.Notes, Employees.ReportsTo, Employees.Married, Employees.[Date Added], Employees.MyMemo, *
   FROM Employees
   WHERE (((Employees.LastName)="King"));