Ver Mensaje Individual
  #3 (permalink)  
Antiguo 11/09/2010, 13:12
RODIXBELL412EP
 
Fecha de Ingreso: julio-2010
Mensajes: 2
Antigüedad: 13 años, 9 meses
Puntos: 0
Respuesta: Relacionar dos campos access

Cita:
Iniciado por viccolizcano Ver Mensaje
sí se puede, pero tendrías que meterle código vba, déjame ver como te explico...

1.- crea un cuadro te texto en el formulario donde lo desees, en sus propiedades pongámosle el nombre txtodt (o como quieras, pero es importante recordar que nombre le pusiste).

2.- aún en propiedades, selecciona la pestaña eventos. Seleccionamos la opción "después de actualizar". Es el botón con los tres puntos suspensivos (...).

3.- nos pedirá seleccionar generador, seleccionamos generador de código y nos habrá creado lo siguiente en una nueva ventana.

Código:
private sub txtodt_afterupdate()

end sub
4.- no cierrres la ventana de código y regresa al formulario, coloca otro campo de texto y en sus propiedades ponle el nombre txtmes. (alternativamente podrías tener una lista desplegable con los meses, pero supongo que sólo quieres mostrar el mes y no vas a intercatuar con él).

5.- regresamos a la ventana de código y copia y pega el siguiente código entre lo que se había creado automáticamente, debe quedar así:

Código:
private sub txtodt_afterupdate()
    select case (right(txtodt, 3))
    'seleccionamos los 3 últimos caracteres de la derecha
    'y los comparamos contra los 12 posibles meses.
        Case "001"
            txtmes = "enero"
        case "002"
            txtmes = "febrero"
        case "003"
            txtmes = "marzo"
        case "004"
            txtmes = "abril"
        case "005"
            txtmes = "mayo"
        case "006"
            txtmes = "junio"
        case "007"
            txtmes = "julio"
        case "008"
            txtmes = "agosto"
        case "009"
            txtmes = "septiembre"
        case "010"
            txtmes = "octubre"
        case "011"
            txtmes = "noviembre"
        case "012"
            txtmes = "diciembre"
        case else
            txtmes = "" 'en caso de que no se haya capturado bien, no muestra mes alguno.
    End select
end sub
6.- ahora guarda, y regresa a tu formulario e intenta meter algún valor válido en odt. Estoy considerando que el mes son los 3 últimos caracteres de odt.


Funciona en access 2007, espero te sirva... Saludos y suerte.
muchisimas gracias viccolizcano por tu ayuda, fue exactamente lo que buscaba. Disculpa la tardanza en la contestacion pero no habia podido visitar el sitio.