Access 2003 duda programacion

Hola expertos!
aver si me podéis ayudar con esto, que no se que esta mal...
Tengo un cuadro con cinco distintos botones de opción, y en dos de ellos quiero que cuando se seleccionen se pueda escribir en un cuadro de texto independiente al lado, para detallar la actividad, pero si no se seleccionan, que permanezcan inactivos.
Ya lo tengo hecho, pero al pasar a introducir datos para probarlo, me dice que mis macros no existen...!? ¿Qué pasa con la programación que no se que esta mal? Os la adjunto:
Muchas gracias por adelantado!
Private Sub MarcoMOTIUVISITA_AfterUpdate()
' Si el usuario selecciona la opción de "realització activitat" en el cuadro de opciones, activa
' el cuadro donde incluir el tipo de actividad.
Const Opción_Activitat = 4
If Me!MarcoMOTIUVISITA.Value = Opción_Activitat Then
Me!NOMACTIVITAT.Enabled = True
Else
Me!NOMACTIVITAT.Enabled = False
End If
' Si el usuario selecciona la opción de "altres" en el cuadro de opciones, activa
' el cuadro donde incluir la actividad que sea.
Const Opción_Activitat = 5
If Me!MarcoMOTIUVISITA.Value = Opción_Activitat Then
Me!Texto289.Enabled = True
Else
Me!Texto289.Enabled = False
End If
Dim Valor
Select Case Me.MarcoMOTIUVISITA
Case 1
Valor = "Consulta documental"
Case 2
Valor = "Consulta activitats"
Case 3
Valor = "Consulta FAQ"
Case 4
Valor = "Realització activitat"
Case 5
Valor = "Altres"
End Select
Me.MOTIUvisita = Valor
End Sub

1 respuesta

Respuesta
1
¿Qué significa "mis macros no existen"?
¿Qué pone en la hoja de propiedades para el evento Después de actualizar del control MarcoMOTIUVISITA? (Debería poner: [Procedimiento de evento])
En cuanto al código en si... me permitirás que te lo simplifique un pelín...
Private Sub MarcoMOTIUVISITA_AfterUpdate()
Me!NOMACTIVITAT.Enabled = (Me!MarcoMOTIUVISITA = 4)
Me!Texto289.Enabled = (Me!MarcoMOTIUVISITA = 5)
Me! MOTIUvisita = Choose(Me! MarcoMOTIUVISITA, "Consulta documental", "Consulta activitats", "Consulta FAQ", "Realització activitat", "Altres")
End Sub
Muchísimas gracias! Ahora va perfecto!
(Lo que te decía de que las "macros no existían" era el mensaje de error que me salía antes... pero ahora ya esta arreglado, graciaaaaaaaaaaaaas!)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas