• Martes 15 de Julio de 2025, 08:30

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Skakeo

Páginas: 1 [2]
26
MS Access / Re: Filtros en Subformularios
« en: Domingo 13 de Junio de 2004, 11:47 »
Prueba a tocar el evento AfterUpdate del boton de opcion y cambia el RecordSource del formulario con el filtro (condicion Where) que quieras

27
MS Access / Re: Problema Con El Formato Y La Mascara De Entrada
« en: Domingo 13 de Junio de 2004, 11:12 »
yo me cree esta funcion espero que te sirva
un saludo

Public Function RellenaCerosDerecha(valor, longitud)
'********************************************************************
'   Esta funcion rellena de un número determinado de ceros
'   a la derecha el campo que queramos.
'   Creada el día 4/10/1999.
'   by Skakeo©
'********************************************************************
    Dim strretorno As String
    strretorno = Trim(Str(valor))
    Do While Len(strretorno) < longitud
        strretorno = Trim(strretorno) & "0"
    Loop
    RellenaCerosDerecha = strretorno
End Function

donde valor es el numero que tu quieras y longitud el numero de caracteres total del string en tu caso 6
seria txtValor= 115
RellenaCerosDerecha(me.txtValor,6)
te devolvera "115000"

28
MS Access / Re: Consulta De Actualización
« en: Domingo 13 de Junio de 2004, 11:05 »
Prueba a utilizar la funcón mid
Ejemplo:
?mid("08024Barcelona",1,5)
08024
?mid("08024Barcelona",6)
Barcelona
 :comp:

Páginas: 1 [2]