Error As Variable Not Define

[mukeshsrivastav]

Dear sir,

I want to create a query at runtime and assigning value to them through a sql query.what is the error here. error is shown over variable qdf declaration

Dim QDF As QUERYDEF
'On Error Resume Next
DoCmd.DeleteObject acQuery, "databaseQuery"
'On Error GoTo 0
Set QDF = CurrentDb.CreateQueryDef("databaseQuery", ssqltext)
'
'Export it to Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "databaseQuery", "C:\MyExcelData.xls"
 
'Export it to Text
'DoCmd.TransferText acExportDelim, , "databaseQuery", "C:\MyData.txt"

[ADezii]

Dear sir,

I want to create a query at runtime and assigning value to them through a sql query.what is the error here. error is shown over variable qdf declaration

Dim QDF As QUERYDEF
'On Error Resume Next
DoCmd.DeleteObject acQuery, "databaseQuery"
'On Error GoTo 0
Set QDF = CurrentDb.CreateQueryDef("databaseQuery", ssqltext)
'
'Export it to Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "databaseQuery", "C:\MyExcelData.xls"

'Export it to Text
'DoCmd.TransferText acExportDelim, , "databaseQuery", "C:\MyData.txt"

This is the simplest Syntax for creating a Query. Your problem nust reside in the SQL Parameter, namely, ssqltext since the Error occurs on the SET QDF.. line. Please post it for our preview.

Dim MySQL As String, MyQDF As QueryDef, MyDB As DAO.Database
 
MySQL = "SELECT * FROM tblEmployee"
 
Set MyDB = CurrentDb()
 
Set MyQDF = MyDB.CreateQueryDef("Database Query", MySQL)

[MMcCarthy]

Where have you declared and set the value of the variable 'ssqltext'?

Mary

[mukeshsrivastav]

Where have you declared and set the value of the variable 'ssqltext'?

Mary

Thankx for ur response error has been detected it was dao connection library was not defined which has been defined my using tool menu -reference-dao3.6

Thankx and regards
mukesh