Prikazi cijelu temu 05.01.2011 20:51
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Evo pogledaj ovo. Nemoj odmah reci nije to to ili ne odgovoriti nista.
Ovo stavi u neki modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Global Uslov_Izbora As Integer
  4. Function Izbor_Start()
  5. Izbor_Start = Uslov_Izbora
  6. End Function
  7. Function ZadajUslov()
  8. Uslov_Izbora = InputBox("Sifra", "Uslov izbora", 0)
  9. Call Izbor_Start
  10. DoCmd.OpenQuery "Q"
  11. End Function

Ovo je Query zapisi ga pod imenom Q.
PreuzmiIzvorni kôd (SQL):
  1. SELECT *
  2. FROM PROCES
  3. WHERE (((PROCES.ID)=Izbor_Start() OR (PROCES.ID) IN (SELECT STROJ.IDDijela
  4. FROM STROJ WHERE IDSTROJA=Izbor_Start()) OR (PROCES.ID) IN (SELECT IDdijela
  5. FROM SKLOP WHERE IDStroja=Izbor_Start()) OR (PROCES.ID) IN (SELECT IDDijela
  6. FROM PODSKL WHERE IDSTROJA=Izbor_Start()) OR (PROCES.ID) IN (SELECT IDDijela
  7. FROM Cvor WHERE IDSTROJA=Izbor_Start())));
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.