Prikazi cijelu temu 24.09.2013 20:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function QueryTemp(SQL As String) As Boolean
  2. Dim Db As Database
  3. Dim QTemp As QueryDef
  4.  
  5. On Error GoTo Greska
  6. Set Db = CurrentDb
  7. Set QTemp = Db.QueryDefs("TempQ")
  8. QTemp.SQL = SQL
  9. QueryTemp = True
  10. Izlaz:
  11. Exit Function
  12. Greska:
  13. QueryTemp = False
  14. End Functio
n
Pokrenite ovu proceduru te nakon toga pogledajte svoj Query.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PozivQ()
  2. Dim SQL As String
  3. Dim I As Boolean
  4. SQL = "SELECT * FROM MsysObjects"
  5. I = QueryTemp(SQL)
  6. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.