Function QueryTemp(SQL As String) As Boolean
Dim Db As Database
Dim QTemp As QueryDef

On Error GoTo Greska
Set Db = CurrentDb
Set QTemp = Db.QueryDefs("TempQ")
QTemp.SQL = SQL
QueryTemp = True
Izlaz:
Exit Function
Greska:
QueryTemp = False
End Functio