Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/08/2010, 11:03
Avatar de ViccoLizcano
ViccoLizcano
 
Fecha de Ingreso: enero-2008
Ubicación: Working...
Mensajes: 100
Antigüedad: 16 años, 3 meses
Puntos: 1
Información Respuesta: Relacionar dos campos access

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.
__________________
KNOWLEDGE is Power