Propiedad tag en commandbutton 2016

Dudas sobre código
AngelMiguel
Nivel 1
Mensajes: 14
Registrado: Mar Nov 21, 2017 4:34 pm

Propiedad tag en commandbutton 2016

Mensajepor AngelMiguel » Vie Nov 09, 2018 5:30 pm

Saludos,

Tengo un form con un commandbutton en color verde al pulsar cambio a rojo que hacen cosas :))

Tengo el siguiente codigo

Al Open en el Form:

Call MantenOpcionSituacionFormAlOpen

Resto del codigo:

Private Sub Encendido_Click()
On Error GoTo Encendido_Click_Error
' rojo 2366701 ' verde 5167783
Select Case Me!Encendido.BackColor
Case 5167783
Me!Encendido.BackColor = 2366701
Me!Encendido.ForeColor = 2366701
Me!Encendido.Tag = 2366701
Case 2366701
Me!Encendido.BackColor = 5167783
Me!Encendido.ForeColor = 5167783
Me!Encendido.Tag = 5167783
End Select

On Error GoTo 0
Exit Sub
Encendido_Click_Error:
MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure Encendido_Click, line " & Erl & "."
End Sub


Private Sub MantenOpcionSituacionForm()
Me!Encendido.Tag = Me!Encendido.ForeColor
End Sub

Private Sub MantenOpcionSituacionFormAlOpen()
Me!Encendido.BackColor = Me!Encendido.Tag
Me!Encendido.ForeColor = Me!Encendido.Tag
End Sub


Problema: Al open no me lee la propiedad Tag, parece ser que no consigo gravar nada en el "Tag"

Problema añadido: Por defecto esta en color verde, cuando cambio a color rojo al pasar el mouse me mantiene el color verde.

Alguien que me saque de la ofuscación?

Gracias por delante.

pitxiku
VIP
Reto01
Mensajes: 199
Registrado: Sab Sep 30, 2017 6:23 pm

Re: Propiedad tag en commandbutton 2016

Mensajepor pitxiku » Sab Nov 10, 2018 11:29 am

Todas las modificaciones en las propiedades de un formulario o sus controles, que se hacen cuando el formulario está abierto, no se guardan para la próxima vez que se abra el formulario a no ser que se indique que se quieren guardar: pulsando en el botón Guardar, usando la macro/método para guardar cambios, …:

- DoCmd.Save: https://docs.microsoft.com/es-es/office ... 10.chm4177)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

- DoCmd.Close: https://docs.microsoft.com/es-es/office ... 10.chm4145)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue

¿Cuáles son los problemas? El primero, que guardará todos los cambios, no sólo el hecho sobre la propiedad Tag. El segundo, que si conviertes tu base de datos a accde, como no se pueden modificar estos objetos, obtendrás un bonito error.

Lo que se suele hacer en estos casos es:

- Usar la colección Properties de la base de datos, para crear propiedades poersonalizadas y guardar ahí los datos que precises.
- O crear una tabla con un par de campos (clave y valor), para guardar ahí esos datos.

P.D.: Para lo del cambio de color, hay una serie de propiedades que controlan el color del objeto cuando el ratón se sitúa sobre él:

- HoverColor: https://docs.microsoft.com/es-es/office ... hovercolor
- HoverForeColor: https://docs.microsoft.com/es-es/office ... rforecolor

AngelMiguel
Nivel 1
Mensajes: 14
Registrado: Mar Nov 21, 2017 4:34 pm

Re: Propiedad tag en commandbutton 2016

Mensajepor AngelMiguel » Dom Nov 11, 2018 10:53 pm

Gracias, solucionado, tenias razón

AngelMiguel

ver: viewtopic.php?f=12&t=1314


Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado