Requeiro de una aclaración para poder darle el código correcto y decirle donde se va a poner..
Como se llaman los cuadros de texto
No cual es el origen del control sino el nombre.. por lo general se llaman texto0 o texto2 etc.
Haga clic derecho en el texto que contiene el dato siglas valla a propiedades y en la pestaña otros el primer renglón dice nombre, eses es el nombre de objeto..
Pues bien ahí en las propiedades valla a la pestaña eventos, de clic en el botoncito que aparecerá en el extremo derecho del renglón "al salir" (no en la flecha hacia abajo)
Seleccione código del cuadro de dialogo.
entre private sub y end sub escriba
if me.texto0.value = "CP" then
me.texto2.enabled = true
else
me.texto2.enabled = false
end if
Solo necesitamos sustituir los nombres texto0 y texto2 por los reales... si los que me dio son los reales entonces el código quedaría así
private sub SIGLAS Salir()
if me.SIGLAS.value = "CP" then
me.No_Socio.enabled = true
else
me.No_Socio.enabled = false
end if
end sub
Espero le funcione si no pues ahí estoy para cualquier aclaracion