- Public Sub VelikaSlova(Tabela As String)
- Dim rst As Recordset
- Dim db As DAO.Database
- Set db = CurrentDb
- Set rst = db.OpenRecordset(Tabela)
- rst.MoveFirst
- Do
- rst.Edit
- rst("Ime") = UCase(rst("Ime"))
- rst.Update
- rst.MoveNext
- Loop Until rst.EOF
- rst.Close
- Set db = Nothing
- Set rst = Nothing
- End Sub