| Pregunta: | 49809 - AGREGAR CEROS A LA IZQUIERDA |
| Autor: | Jhon Freddy Patiño Ramirez |
| Quisiera saber si alguien conoce una funcion que agregue ceros a la izquierda de un campo texto (numerico) | |
| Respuesta: | Jorge Tomala . |
| Si tengo una cedula 19867 y quiero aparecer seis digitos con ceros a la izquierda, aplico el siguiente truco en mi vista:
Cedula: Medio(+1000000+[CedulaID],2,6) Me vota como resultado 019867 | |
| Respuesta: | Enrique Ramírez |
| Yo he buscado una función y no le he encontrado yo tuve un problema similar en donde el numero de empleado es numérico de seis posiciones y en un informe se tenía que mostrar cuando no ocupaba las seis posiciones con ceros a la izquierda, lo solucione de la siguiente forma, quizá se te haga que me fui por el camino de las piedritas pero por la urgencia fue la forma en que lo solucione.
1) con una consulta convertí el NumEmpl a texto: SELECT CStr(Tabla.NumEmpl), campo1, campo(n)… from Tabla 2) en el formulario por medio de un RecordSet leí la tabla en forma secuencial y fuí armando una cadena dependiendo de las posiciones que ocupa el campo. Dim wCeros, wNumEmp As String Dim wEOF As Boolean Set db = CurrentDb() Set rs = db.OpenRecordset(“Tabla”, dbOpenDynaset) rs.MoveFirst wEOF = True Do While wEOF = True If rs.EOF Then wEOF = False Else rs.Edit wCeros = "0000" wNumEmp = "" Select Case Len(CStr(rs!NumEmpl)) Case 1 wNumEmp = "00000" + CStr(rs! NumEmpl) Case 2 wNumEmp = "0000" + CStr(rs! NumEmpl) Case 3 wNumEmp = "000" + CStr(rs! NumEmpl) Case 4 wNumEmp = "00" + CStr(rs! NumEmpl) Case 5 wNumEmp = "0" + CStr(rs! NumEmpl) Case 6 wNumEmp = CStr(rs! NumEmpl) End Select rs! NumEmpl = wNumEmp rs.Update rs.MoveNext End If Loop rs.Close Set db = Nothing Espero sea lo que requieres ó si encuentras la función pues pásamela porfa, saludos desde México | |