Access - Aplicar VB Script a un campo de TODOS los registro

 
Vista:

Aplicar VB Script a un campo de TODOS los registro

Publicado por Osis (1 intervención) el 27/01/2005 19:28:49
Buenas.

Necestiaría saber como modificar un campo en todos los registros de una tabla con VB Script. La idea es normalizar los CIFs de todos los registros para que se ajusten a una máscara. Ahora están de mil formas distintas (12345678A, 12.345.678-A, 12-345-678A) y los quiero unificar (12.345.678-A). Si consigo esto, tb podría filtrar calles, teléfonos, etc..

Muchas gracias anticipadas.

Osis

P. D.: Agradeceria tanto una lección, ejemplo, código o simplemente, qué estudiar (no tengo mucho tiempo)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Aplicar VB Script a un campo de TODOS los regis

Publicado por 2pl (105 intervenciones) el 27/01/2005 19:42:37
Hombre si es para una sola vez, te creas una consulta, clsifica por ese campo y luego actuliza con una consulta de actualizacion... donde pone tal.. pones pascual y asi hasta que tengas todo unificado.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Aplicar VB Script a un campo de TODOS los regis

Publicado por David Gil (24 intervenciones) el 28/01/2005 18:57:35
Dim db as DAO.DataBase
Dim rstTemp as DAO.RecordSet

Set db=CurrentDb
Set rstTemp=db.OpenRecordSet("tblNombreTabla")

While not rstTemp.EOF
rstTemp![CIF]=UnificarCIF (rstTemp![CIF])
rstTemp.MoveNext
Wend

Function UnificarCIF (strCIF as String) as String
dim i as integer
dim strDev as String

for i = 0 to len(strCIF)
'Recorres la cadena y con un select case en funcion de lo que
'vayas encontrando lo vas colocando en la cadena strDev
next i

UnificarCIF=strDev
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Aplicar VB Script a un campo de TODOS los regis

Publicado por David Gil (24 intervenciones) el 28/01/2005 18:59:37
Perdon cometi un error:

While not rstTemp.EOF
rstTemp.Edit 'Esto se me habia olvidado
rstTemp![CIF]=UnificarCIF (rstTemp![CIF])
rstTemp.Update 'Esto se me habia olvidado
rstTemp.MoveNext
Wend
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar