Need Help with QueryDef

[Alabaster2100]

The following is the vb code I'm using
Dim db As Database
Dim qd As QueryDef
Dim mySQL As QueryDef

Set QueryDef = cticket.CreateQueryDef("cticket", "UPDATE tbl_Ticket SET tbl_Ticket.TechID = cmb_SelectTech," & _
" tbl_Ticket.TicketClose = txt_CloseDate, tbl_Ticket.ResolveID = cmb_resolveType," & _
" tbl_Ticket.ResolveDetail = txt_ResolveDetail, tbl_Ticket.[Close] =chk_CloseTicket" & _
"WHERE tbl_Ticket.TicketID=cmb_SelectTicket.Value & ;&quot

DoCmd.SetWarnings (False)
DoCmd.OpenQuery (cticket)
DoCmd.SetWarnings (True)

' reset all values on form

When I try to execute the command I get an "Object required", can some one please tell me what object it wants and what I missed in my code.

TIA
HelpDesk@RWDI

 

[Cagliostro]

what is cticket and how dod you initialize it? John Fill

ivfmd@mail.md

 

[Cagliostro]

what is cticket and how did you initialize it? John Fill

ivfmd@mail.md

 

[MichaelRed]

Dim db As Database
Dim qd As QueryDef
Dim mySQL As QueryDef

[red
Set db = Currentdb

MySql = ""UPDATE tbl_Ticket SET tbl_Ticket.TechID = cmb_SelectTech," & _
" tbl_Ticket.TicketClose = txt_CloseDate, tbl_Ticket.ResolveID = cmb_resolveType," & _
" tbl_Ticket.ResolveDetail = txt_ResolveDetail, tbl_Ticket.[Close] =chk_CloseTicket" & _
"WHERE tbl_Ticket.TicketID=cmb_SelectTicket.Value & ;&quot
Set qd = db.CreateQuerydef(Cticket, MySql)
[/red]

Instead of:

Set QueryDef = cticket.CreateQueryDef("cticket", "UPDATE tbl_Ticket SET tbl_Ticket.TechID = cmb_SelectTech," & _
" tbl_Ticket.TicketClose = txt_CloseDate, tbl_Ticket.ResolveID = cmb_resolveType," & _
" tbl_Ticket.ResolveDetail = txt_ResolveDetail, tbl_Ticket.[Close] =chk_CloseTicket" & _
"WHERE tbl_Ticket.TicketID=cmb_SelectTicket.Value & ;&quot

DoCmd.SetWarnings (False)
DoCmd.OpenQuery (cticket)
DoCmd.SetWarnings
MichaelRed
redmsp@erols.com

There is never time to do it right but there is always time to do it over