Predmet:Re: Query od vise tabela
Ja sam ova pretraga resio ovako:
Napravio tabela u koja u jednoj koloni upusem Naziv Polja od tabele a u drugoj koloni sta se trazi u toj koloni.
Podatci u uvoj tabeli se pune iz list boxova
I na kraju napravio sam procedura koja iscitava ovu tabelu i od njoj stvara se sql koj se upise u RecordSurce na subformi u koja se prikazuju rezultae.
Evo coda od proceduri.
PreuzmiIzvorni kôd (Visual Basic):Dim rsUslov As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rsUslov = New ADODB.Recordset
rsUslov.CursorLocation = adUseClient
rsUslov.Open "SELECT * FROM tblTempSQL", cn, adOpenForwardOnly, adLockOptimistic
If rsUslov.RecordCount = 0 Then SQLSearch = "SELECT tblTemp.* FROM tblTemp"
SQLSearch = "SELECT tblTemp.* FROM tblTemp WHERE (("
rsUslov.MoveFirst
Do While Not rsUslov.EOF
SQLSearch = SQLSearch & "(tblTemp." & rsUslov.Fields("Pole") & ")=" & Chr(34) & rsUslov.Fields("SeBara") & Chr(34) & " OR "
rsUslov.MoveNext
Loop
SQLSearch = Left(SQLSearch, Len(SQLSearch) - 3) & "))"
Me.frmTemp_Subform.Form.RecordSource = SQLSearch
Me.frmTemp_Subform.Requery
Treba mi bolji kod za pretraga od ovaj koj se izvrsava na onChange na text pole.
PreuzmiIzvorni kôd (Visual Basic): Dim SQLSearch As String
SQLSearch = "SELECT * FROM tblTemp WHERE Broj_No LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Godina_kad_je_verovatno_stvoren LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Broj_Kopija LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Format LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Grupa LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Naziv LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Moja_Firma LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR pnfPrezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR pnfIme LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Njihova_Firma LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR ppPrezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR ppIme LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Mesto_Gdje_Je_Stvoren LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Mesto_Kog_Se_Tice LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Osobe_Ime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Osobe_Prezime LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Akcija LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34) _
& " OR Opis LIKE" & Chr(34) & "*" & Me.pret.Text & "*" & Chr(34)
Me.frmTemp_Subform.Form.RecordSource = SQLSearch
Me.frmTemp_Subform.Requery