Modificar estado de botón...!!!
Publicado por Javiera (1 intervención) el 05/09/2011 17:49:42
Hola a todos, espero que me puedan ayudar con este porblema:
tengo un formulario continuo, que me muestra el listado de varios registros, y en cada registro tengo un boton para editar el registro. Si yo presiono el boton editar, me abre un formulario con la información del registro correspondiente, ya que yo en el boton editar le paso el id y fecha, y luego relizo un cambio, y la información se gurada en una nueva tabla llamada ausentes.
Lo que quiero hacer es lo siguiente, cuando me abra el formulario continuo, y allá un registro que este en la tabla ausente entonces que el boton editar no aparezca o se bloquee.
He puesto el siguinete código en el botón editar, pero no funciona...no desaparece el botón:
Private Sub editar_GotFocus()
Dim Ausente As Recordset
Set Base = CurrentDb
Set Ausente = Base.OpenRecordset("select * from Ausente where ID = " & ID & " and Fecha= " & Fecha & "")
If Ausente.RecordCount <> 0 Then
Form_turnos_actual.editar.Value = False
End If
End Sub
Espero de su ayuda....Gracias.
tengo un formulario continuo, que me muestra el listado de varios registros, y en cada registro tengo un boton para editar el registro. Si yo presiono el boton editar, me abre un formulario con la información del registro correspondiente, ya que yo en el boton editar le paso el id y fecha, y luego relizo un cambio, y la información se gurada en una nueva tabla llamada ausentes.
Lo que quiero hacer es lo siguiente, cuando me abra el formulario continuo, y allá un registro que este en la tabla ausente entonces que el boton editar no aparezca o se bloquee.
He puesto el siguinete código en el botón editar, pero no funciona...no desaparece el botón:
Private Sub editar_GotFocus()
Dim Ausente As Recordset
Set Base = CurrentDb
Set Ausente = Base.OpenRecordset("select * from Ausente where ID = " & ID & " and Fecha= " & Fecha & "")
If Ausente.RecordCount <> 0 Then
Form_turnos_actual.editar.Value = False
End If
End Sub
Espero de su ayuda....Gracias.
Valora esta pregunta


0