!urgente¡ inhabilitar boton.
Publicado por bekyna (88 intervenciones) el 05/09/2005 16:50:09
Hola tengo este código y hace lo que yo necesito pero el problema es que si por error el usuario presiona dos veces el botón vuelve a realizar las consultas y por lo tanto hace la operación para el mismo registro y esto no debe de pasar así que se me ocurrió que después de presionar el botón(de ejecutar mi código) se pueda inhabilitar ya sea con visible = false o con enabled= false pero como pueden ver lo puse en el código y me marco el error: “Imposible ocultar un control que tiene un enfoque”
Private Sub a_Click()
On Error GoTo Err_a_Click
Dim stDocName As String
stDocName = "cantidad"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "suma"
DoCmd.OpenQuery stDocName, acNormal, acEdit
luis = MsgBox("DATOS ACTUALIZADOS CORRECTAMENTE", vbOKOnly, ("CONFIRMACIÓN"))
A.Visible = False
Exit_a_Click:
Exit Sub
Err_a_Click:
MsgBox Err.Description
Resume Exit_a_Click
End Sub
Si hay algo que me puedan recomendar se los voy a agradecer.
saludos
Private Sub a_Click()
On Error GoTo Err_a_Click
Dim stDocName As String
stDocName = "cantidad"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "suma"
DoCmd.OpenQuery stDocName, acNormal, acEdit
luis = MsgBox("DATOS ACTUALIZADOS CORRECTAMENTE", vbOKOnly, ("CONFIRMACIÓN"))
A.Visible = False
Exit_a_Click:
Exit Sub
Err_a_Click:
MsgBox Err.Description
Resume Exit_a_Click
End Sub
Si hay algo que me puedan recomendar se los voy a agradecer.
saludos
Valora esta pregunta
0