Habilitar o inhabilitar commandButton según contenido en el campo de la base de datos.

Que tal amigo. Vuelvo necesitando de tus conocimientos. Te comento mi problema: Tengo un formulario en el cual muestro los voluntarios que tengo. A estos voluntarios les puedo dar

de baja. A su vez, también los puedo dar de alta. Cuando les doy de baja lleno
un campo que he llamado MOTIVO BAJA para saber porque fue dado de baja. La
cuestión es la siguiente: No sé como hacer para que si le doy de baja porque
fallece, hacer que el CommandButton “dar
de Alta” no se habilite ya que no puedo dar de alta un voluntario que ha
fallecido.
Yo tengo hecho este código. Se puede hacer desde acá la
modificación que quiero hacer???
Private Sub cmdBajaVol_Click()
Dim Motivo As String
Set Base = New ADODB.Connection
AbrirBase
RazonBaja = InputBox("Ingresa el motivo de la baja")
Motivo
= RazonBaja
'='" & txtModVoluntario(0).Text & "'"
ActualizaVolBajas = "UPDATE VOLUNTARIOS SET FechaBaja ='"
& lblFecha.Caption & "',MOTIVOBAJA='" & Motivo &
"' where NumVoluntario ='" & txtModVoluntario(0).Text &
"'"
Base.Execute (ActualizaVolBajas)
frmListadoVoluntarios.dtaVoluntarios.Refresh
Base.Close
End sub
Bueno amigo. Espero puedas darme una idea de cómo hacer esto
que necesito. Saludos.

Añade tu respuesta

Haz clic para o