Private Sub pret1_Change()
Dim MySQL As String, Rekord As String
Dim Kriterij As String, Uslov As String
Uslov = Me.pret & "%"
MySQL = "SELECT * FROM tblArtikli WHERE "
Kriterij = "Artikal_Ime Like '" & Uslov & "' OR "
Kriterij = Kriterij & "Artikal_BarKod Like '" & Uslov & "' OR "
Kriterij = Kriterij & "Artikal_Sifra Like '" & Uslov & "'"
Rekord = MySQL & Kriterij
Me.Adodc1.RecordSource = Rekord
Adodc1.Refresh
End Sub
Private Sub pret3_Change()
Dim MySQL As String, Rekord As String
Dim Kriterij As String, Uslov As String
Uslov = Me.pret.Text & "%"
MySQL = "SELECT * FROM tblArtikli WHERE "
Kriterij = "Artikal_Ime Like '" & Uslov & "'"
Rekord = MySQL & Kriterij
rs.Open Rekord, conn
If Not rs.EOF And Not rs.BOF Then
Me.Adodc1.RecordSource = Rekord
Me.Adodc1.Refresh
GoTo Kraj
Else
rs.Close
Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
Rekord = MySQL & Kriterij
End If
rs.Open Rekord, conn
If Not rs.EOF And Not rs.BOF Then
Me.Adodc1.RecordSource = Rekord
Me.Adodc1.Refresh
GoTo Kraj
Else
rs.Close
Kriterij = "Artikal_BarKod Like '" & Uslov & "'"
Rekord = MySQL & Kriterij
End If
Kriterij = "Artikal_Sifra Like '" & Uslov & "'"
Rekord = MySQL & Kriterij
Me.Adodc1.RecordSource = Rekord
Me.Adodc1.Refresh
Exit Sub
Kraj:
rs.Close
End Sub
Private Sub pret2_Change()
Dim MySQL As String, Rekord As String
Dim Kriterij As String, Uslov As String
Uslov = Me.pret.Text
MySQL = "SELECT tblartikli.* From tblartikli " _
& "WHERE InStr(CONCAT(Artikal_Sifra,Artikal_BarKod,Artikal_Ime),'" & Uslov & "')>0"
Me.Adodc1.RecordSource = MySQL
Me.Adodc1.Refresh
End Sub