Access - !urgente¡ inhabilitar boton.

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

hola :
te decia en el link anterior que abriste (que por cierto para el mejor control,no deberias abririr mas de dos link con la misma pregunta) en fin, access no te va a dejar ocultar y/o inhabiltar un control que tenga el foco, mmm para que me explique mejor, no te va a dejar ocultar y/o inhabiltar tu boton mientras este seleccionado, ok
por eso te decia que hicieras una chapucilla y quedaria asi:
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"))
me.otroboton.setfocus
A.Visible = False
Exit_a_Click:
Exit Sub

Err_a_Click:
MsgBox Err.Description

Resume Exit_a_Click

End Sub
en OTROBOTON le puedes poner a donde quieras que se seleccione antes de ocultar tu boton..
pruebalo y ya me contaras
Saludos
Néstor

Eso es lo que necesitaba, gracias por tu apoyo, envió saludos cordiales.