I'm new to VBA
how do I do it?
I just want to return the result to a field called DateDim db As Database
Set db = CurrentDb
Dim qry As QueryDef
Dim sSQL As String
db.QueryDefs.Delete "temp"
sSQL = "SELECT WorkOrder.FinishDate " & _
"From WorkOrder " & _
"WHERE WorkOrder.WorkOrderID =" & Me.WorkOrder
Set qry = db.CreateQueryDef("temp", sSQL)
me.Date = DoCmd.OpenQuery qry.Name
how do I do it?