Imam problem sa filtriranje podatke i nemogu ga resiti.
Otvoriosam Formu (frmPregled) u kojoj za Record Sourse som postavio Queries (qryPregled).
U formi sam ubacio 4 Tex Box za koja Control Source su polja iz (qryPregled) :
TexBox X1 je vezan za X1 iz qryPregled
TexBox X2 je vezan za X2 iz qryPregled
TexBox X3 je vezan za X3 iz qryPregled
TexBox X4 je vezan za X3 iz qryPregled
Ubaciosam u formu Dugme (cmdTrazi) i TexBox (txtTrazi) koi nije povezan a namenjen je za unos podatka za pretrazi
Za Code sam uradio:
GENERAL
------------------------
Option Compare Database
Option Explicit
Dim strFilterSQL As String
Const strSQL = "SELECT qryPregled.qryX1,qryPregled.qryX1,qryPregled.qryX1,qryPregled.qryX1 FROM qryPregled"
A za cmdTrazi sam ubacio ovo:
Private Sub cmdTrazi_Click()
-----------------------------
strFilterSQL = strSQL & ";"
strFilterSQL = strSQL & " Where [X1] = txtTrazi"
Me.RecordSource = strFilterSQL
Me.Requery
U ovj situacii kad ubacim neki tekst u pole (txtTrazi) na primer IBM i kliknem na (cmdTrazi) prikazuje se poruka za unos; "Enter Parameter Value" txtTrazi i ubacim unju IBM i kliknem OK da bi filter proradio.Prolem je u tome da ne znam kako da defviniram code da bi od prve uzeo tekst iz (txtTrazi)odnosno de ne bih dva puta ubacivo isti tekst i kako mogu da prosirim filter da radi i nad X2,X3,X4 a ne samo nad x1.
Pozdrav svima!