Prikazi cijelu temu 19.10.2010 03:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Proba koda
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Izmijeni(ImeTabele As String, ZnakUBazi _
  2. As String, Zamjena As String) As Variant
  3. '*******************************************
  4. 'Ime:      Izmijeni   (Function)
  5. 'Sadržaj: Promjena znaka ~ u slovo 
  6. 'Autor:     ZXZ
  7. 'Datum:      09 06, 2010, 09:54:46
  8. 'Adresa: Tuzla BiH
  9. 'Email:     zxz@icentar.ba
  10. 'Ulazni parametri:Ime tabele,Znak koji '
  11. 'treba mijenjati i znak u koji se mijenja
  12. 'Izlazni parametri:Nema
  13. 'Microsoft dao 3.1-Referenca
  14. '*******************************************
  15. Dim Db As Database
  16. Dim Rs As Recordset
  17. Dim Podatak As String
  18. Dim I As Integer
  19. Dim n As Integer
  20. Dim Promjena As Boolean
  21.  
  22.  
  23.  
  24. 'On Error GoTo Greska
  25. Set Db = CurrentDb()
  26. Set Rs = Db.OpenRecordset(ImeTabele)
  27. Do While Not Rs.EOF
  28.   For I = 0 To Rs.Fields.Count - 1
  29.   If Format$(Rs.Fields(I)) <> "" Then
  30.   Podatak = Rs.Fields(I).Value
  31.   Else
  32.   Podatak = ""
  33.   End If
  34.       For n = 1 To Len(Podatak)
  35.         If Mid(Podatak, n, 1) = ZnakUBazi Then
  36.         Mid(Podatak, n) = Zamjena
  37.         Rs.Edit
  38.         Rs.Fields(I).Value = Podatak
  39.         Promjena = True
  40.         End If
  41.       Next n
  42.    Podatak = ""
  43.   Next I
  44.  
  45. If Promjena = True Then
  46. Promjena = False
  47. Rs.Update
  48. End If
  49. Rs.MoveNext
  50. Loop
  51. Izlaz:
  52. Exit Function
  53. Greska:
  54. 'GreskaB (Err.Number)
  55. Resume Izlaz
  56. Kraj:
  57. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.