<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Option Compare Database
Option Explicit

Private Sub txtUpit_BeforeUpdate(Cancel As Integer)
Dim UpitT As String, Slovo As String * 1, Uslov As String
Dim mySQL As String
Dim rs As Recordset
Dim Db As Database
Dim Brojac As Integer, Reper As Integer
Dim I As Integer
Dim Str As String


UpitT = Me.txtUpit & "*"

Str = "/.q,'- "
Brojac = Len(UpitT)

For I = 1 To Brojac
Slovo = Mid(UpitT, I, 1)
Reper = InStr(1, Str, Slovo)
If Reper > 0 Then
Uslov = Uslov & "*"
Else
Uslov = Uslov & Slovo & "*"
End If
Next I
Set Db = CurrentDb
mySQL = "SELECT * FROM qryPartneri WHERE Firma Like '" & Uslov & "'"
Set rs