rellenar un número con ceros a la derecha

   Buenas tardes,
Quisiera saber como puedo rellenar un campo tipo numero con ceros a la derecha. Tantos ceros a la derecha hasta completar que tenga tantos dígitos como indique un campo que hay en el formulario. Por ejemplo si el número es 470 y el campo indica 9, que se quede 470000000, Si el campo indica 5 que se quede 47000.

Muchas gracias de antemano

Un saludo

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
valencianoblaugrana Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 503	Tema: rellenar un número con ceros a la derecha Enviado: 29/Enero/2023 a las 17:41
	Buenas tardes, Quisiera saber como puedo rellenar un campo tipo numero con ceros a la derecha. Tantos ceros a la derecha hasta completar que tenga tantos dígitos como indique un campo que hay en el formulario. Por ejemplo si el número es 470 y el campo indica 9, que se quede 470000000, Si el campo indica 5 que se quede 47000. Muchas gracias de antemano Un saludo

mounir Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 09/Febrero/2009 Localización: Asturias-España Estado: Sin conexión Puntos: 6521	Enviado: 29/Enero/2023 a las 18:14
	Hola! Prueba así Private Sub Texto0_LostFocus() Me.Texto0.Value = Me.Texto0.Value & String(Me.Campo - Len(Me.Texto0.Value), "0") End Sub
	Un Saludo.

valencianoblaugrana Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Colaborador Unido: 20/Junio/2014 Localización: Alicante Estado: Sin conexión Puntos: 503	Enviado: 29/Enero/2023 a las 19:17
	Muchísimas gracias Mounir Excelente respuesta. Funcionando Se puede cerrar el hilo Un saludo