Predmet:Temp Query
Da nebi pravili mnostvo Querya, mozete jedan koristiti vise puta.
Napravite neki Query o zelji samo mu ime mora biti TempQ.
PreuzmiIzvorni kôd (Visual Basic):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
n
Pokrenite ovu proceduru te nakon toga pogledajte svoj Query.
PreuzmiIzvorni kôd (Visual Basic):Function PozivQ()
Dim SQL As String
Dim I As Boolean
SQL = "SELECT * FROM MsysObjects"
I = QueryTemp(SQL)
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.