Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Usporedba stringa
zxz 22.02.2012 13:44
Predmet:Re: Usporedba stringa

Ovim mozes povecati ili smanjiti kriterij.
a broj slicnih je ovo:
Slicni(1 To 5) As
Stavio sam pet.

pmiroslav 22.02.2012 15:35
Predmet:Re: Usporedba stringa

Već sam eksperimentirao sa time jer mi je kod nekih pretraga dolazilo do greÅ¡ke pa sam stavio
Slicni(1 To 30)
Do malo prije mi je sve radilo ali sada mi javlja grešku
ako u pretragu napišem 'miro'

'Subscript out of range'
i zaustavi se na liniji
Slicni(X) = Podatak(2)

a ako napišem 'miroslav' bude sve u redu

zxz 22.02.2012 20:36
Predmet:Re: Usporedba stringa

Kod mene prolazi i jedno i drugo i kad stavim Slicni(1 to 30)

pmiroslav 22.02.2012 21:24
Predmet:Re: Usporedba stringa

I kod mene nije problem kada radim na ovom primjeru koji sam poslao i koji ima malo zapisa.
Ali kada importiram moju originalnu tablicu sa oko 800 zapisa onda imam problem koji sam naveo.
U primjeru je kompletna tablica
Prilozi:
Kupci.rar (Velicina datoteke:38.65 KB)

zxz 22.02.2012 21:55
Predmet:Re: Usporedba stringa

Evo ovaj kod ce raditi.
Zeza me redim sto ne radi ko u pravom vb-u

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub txtUpit_BeforeUpdate(Cancel As Integer)
  2. Dim Rs As Recordset
  3. Dim Db As Database
  4. Dim Podatak(1 To 2) As String, Znak As String, MsgSlicni As String
  5. Dim I As Integer, Duz As Integer, Poeni As Integer, Stanje As Single
  6. Dim Poz As Integer, StartP As Integer
  7.  
  8. If IsNull(Me.txtUpit) Then GoTo Kraj
  9. Podatak(1) = Me.txtUpit
  10. Duz = Len(Podatak(1))
  11. Set Db = CurrentDb
  12.  
  13. Set Rs = Db.OpenRecordset("SELECT Firma FROM TblPartneri")
  14.  
  15. Do While Not Rs.EOF
  16. Podatak(2) = Rs.Fields(0)
  17.     For I = 1 To Duz
  18.     If I = 1 Then
  19.     StartP = 1
  20.     Else
  21.     StartP = I - 1
  22.     End If
  23.     Znak = Mid(Podatak(1), I, 1)
  24.     Poz = InStr(StartP, Podatak(2), Znak)
  25.     If Poz = I + 1 Or Poz = I Or Poz = I - 1 Then
  26.     Poeni = Poeni + 1
  27.     End If
  28.     Next I
  29.     Stanje = Poeni / Duz
  30.     Poeni = 0
  31.     Poz = InStr(1, Podatak(2), Podatak(1))
  32.     If Poz > 0 Then Stanje = 1
  33.     If Stanje > 0.7 Then
  34.     MsgSlicni = MsgSlicni & vbCr & Podatak(2)
  35.     End If
  36. Rs.MoveNext
  37. Loop
  38. Rs.Close
  39. If MsgSlicni <> "" Then
  40. MsgBox "Slicni su :" & vbCr & MsgSlicni
  41. End If
  42. Kraj:
  43. End Sub