Public Function Izmijeni(ImeTabele As String, ZnakUBazi _
As String, Zamjena As String) As Variant
'*******************************************
'Ime:      Izmijeni   (Function)
'Sadržaj: Promjena znaka ~ u slovo 
'Autor:     ZXZ
'Datum:      09 06, 2010, 09:54:46
'Adresa: Tuzla BiH
'Email:     zxz@icentar.ba
'Ulazni parametri:Ime tabele,Znak koji '
'treba mijenjati i znak u koji se mijenja
'Izlazni parametri:Nema
'Microsoft dao 3.1-Referenca
'*******************************************
Dim Db As Database
Dim Rs As Recordset
Dim Podatak As String
Dim I As Integer
Dim n As Integer
Dim Promjena As Boolean



'On Error GoTo Greska
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(ImeTabele)
Do While Not Rs.EOF
  For I = 0 To Rs.Fields.Count - 1
  If Format$(Rs.Fields(I)) <> "" Then
  Podatak = Rs.Fields(I).Value
  Else
  Podatak = ""
  End If
      For n = 1 To Len(Podatak)
        If Mid(Podatak, n, 1) = ZnakUBazi Then
        Mid(Podatak, n) = Zamjena
        Rs.Edit
        Rs.Fields(I).Value = Podatak
        Promjena = True
        End If
      Next n
   Podatak = ""
  Next I
  
If Promjena = True Then
Promjena = False
Rs.Update
End If
Rs.MoveNext
Loop
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Resume Izlaz
Kraj:
End Function