Prikazi cijelu temu 22.12.2011 20:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Funkcija za ID
Evo ovako:
SQL:
PreuzmiIzvorni kôd (SQL):
  1. SELECT tblProdaja.*
  2. FROM tblProdaja
  3. WHERE OrderID=UslovQuery();

Ove procedure kopiraj u neki modul:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function UslovQuery()
  2. Dim Forma As Boolean
  3.  
  4. UslovQuery = "0000"
  5. Forma = Otvorena("frmOtpremnicaSub")
  6. If Forma = True Then
  7. UslovQuery = Forms![frmOtpremnicaSub]![OrderID]
  8. End If
  9. Forma = Otvorena("TraziRacun")
  10. If Forma = True Then
  11. UslovQuery = Forms![TraziRacun]![txtOrderID]
  12. End If
  13. End Function
  14.  
  15. Function Otvorena(ImeForme)
  16.     '----------------------------------------
  17.    ' DA LI JE ODREENA FORMA OTVORENA
  18.    ' poziva se otvorena(Imeforme)
  19.    'Ako jeste vraca True
  20.    '----------------------------------------
  21.    Const FORM_DESIGN = 0
  22.     Dim I As Integer
  23.    
  24.     Otvorena = False
  25.     For I = 0 To Forms.Count - 1
  26.         If Forms(I).FormName = ImeForme Then
  27.             If Forms(I).CurrentView <> FORM_DESIGN Then
  28.                 Otvorena = True
  29.                 Exit Function  ' Izlaz iz funkcije
  30.            End If
  31.         End If
  32.     Next
  33.  
  34. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.