Error 398 Scode DabataseXP

[way2park]

Hola lojam!!!

Lo logramos!! ambos pensamos igual!!, lo solucione asi mira.
Primero agrege esta funcion en los forms
Para desbloquear

Código:

Private Sub desB()
Me.Enabled = True
Dim controlesForm As Control
  For Each controlesForm In Controls
    If (TypeOf controlesForm Is ButtonTransparent) Then
        controlesForm.Enabled = True
    End If
  Next
End Sub

Para bloquear

Código:

Private Sub Blo()
Dim controlesForm As Control
  For Each controlesForm In Controls
    If (TypeOf controlesForm Is ButtonTransparent) Then
        controlesForm.Enabled = False
    End If
  Next
End Sub

Luego agrege en cada form un timer con un interval de 500.
Tanto en el Load como en el Activate, bloqueo, le doy el arranque al timer cuando el timer completa el tiempo desbloqueo y deshabilito el timer en cuestion.

Ahora si, pueden zapatear arriba del boton y no se bloquea el sistema.

Gracias Gracias !!!!!!!!
Como siempre, dentro de este foro siempre encuentro gente especional !!!