Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General »

Desactivar botones

Estas en el tema de Desactivar botones en el foro de Bases de Datos General en Foros del Web. Parece que nunca ababo por arreglar las cosas, no paro de preguntar!!!!. Esto es algo sencillito de hacer (aunque yo lo he intentado y nada ...
  #1 (permalink)  
Antiguo 13/06/2008, 03:12
Avatar de Koudelka  
Fecha de Ingreso: febrero-2008
Mensajes: 397
Antigüedad: 16 años, 9 meses
Puntos: 1
Desactivar botones

Parece que nunca ababo por arreglar las cosas, no paro de preguntar!!!!. Esto es algo sencillito de hacer (aunque yo lo he intentado y nada ¬¬).

Veamos, en un formulario de access 2003, tengo unos cuantos botones. Me gustaría que esos botones no hiciesen la función que tienen que hacer si un campo ya está relleno. Os pongo uno de mis botoncitos.

Private Sub Comando137_Click()
If Me.tarde = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.noche = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.festivo = True Then
MsgBox "Ya has seleccionado un turno"
Else
Me.mañana = Not Nz(Me.mañana, False)
End If
End If
End If
End Sub

Este es un botón normal y corriente y yo lo he intentado poner de esta manera:

Private Sub Comando137_Click()
If Me.TxtHoraFinal = "" Then
If Me.tarde = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.noche = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.festivo = True Then
MsgBox "Ya has seleccionado un turno"
Else
Me.mañana = Not Nz(Me.mañana, False)
End If
End If
End If
MsgBox "bu"
End If
End Sub

Quería poner que si el campo TxtHoraFinal está en blanco hiciese todo lo que haría normalmente y en caso de que el campo ya estuviese relleno saliese el mensaje. (El mensaje lo he puesto para probar, pero es que ni me sale ¬¬).

Assí que no se si es que estoy haciendolo mal o que >.<

El campo TxtHoraFinal es de texto y guarda dia y hora...
__________________
Cámara Oscura
Etheria

Última edición por Koudelka; 13/06/2008 a las 03:30
  #2 (permalink)  
Antiguo 13/06/2008, 04:14
Avatar de Koudelka  
Fecha de Ingreso: febrero-2008
Mensajes: 397
Antigüedad: 16 años, 9 meses
Puntos: 1
Respuesta: Desactivar botones

Al final lo he conseguido de esta manera:

Private Sub Comando137_Click()
If Me.TxtHoraFinal <> 0 Then
Else
If Me.tarde = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.noche = True Then
MsgBox "Ya has seleccionado un turno"
Else
If Me.festivo = True Then
MsgBox "Ya has seleccionado un turno"
Else
Me.mañana = Not Nz(Me.mañana, False)
End If
End If
End If
End If
End Sub
__________________
Cámara Oscura
Etheria
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 14:16.