Predmet:Re: Funkcija za ID
Evo ovako:
SQL:
PreuzmiIzvorni kôd (SQL):SELECT tblProdaja.*
FROM tblProdaja
WHERE OrderID=UslovQuery();
Ove procedure kopiraj u neki modul:
PreuzmiIzvorni kôd (Visual Basic):Function UslovQuery()
Dim Forma As Boolean
UslovQuery = "0000"
Forma = Otvorena("frmOtpremnicaSub")
If Forma = True Then
UslovQuery = Forms![frmOtpremnicaSub]![OrderID]
End If
Forma = Otvorena("TraziRacun")
If Forma = True Then
UslovQuery = Forms![TraziRacun]![txtOrderID]
End If
End Function
Function Otvorena(ImeForme)
'----------------------------------------
' DA LI JE ODREENA FORMA OTVORENA
' poziva se otvorena(Imeforme)
'Ako jeste vraca True
'----------------------------------------
Const FORM_DESIGN = 0
Dim I As Integer
Otvorena = False
For I = 0 To Forms.Count - 1
If Forms(I).FormName = ImeForme Then
If Forms(I).CurrentView <> FORM_DESIGN Then
Otvorena = True
Exit Function ' Izlaz iz funkcije
End If
End If
Next
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.