Access - Solucion al problema de la ventana de Propiedades

 
Vista:

Solucion al problema de la ventana de Propiedades

Publicado por Pancho (149 intervenciones) el 05/11/2002 00:15:31
Hola a todos

La usuaria Emi realizo un pregunta que me produjo un quebradero de cabeza, pregunta si la ventana de propiedades que permanece abierta aun ejecuntando la aplicacion podia cerrarse desde Codigo VBA y no desde la misma ventana, pues investigando un poco halle la respuesta a tan interesante pregunta:

En un modulo nuevo escribir:

Declare Function DestroyWindow Lib "user32" (ByVal hWnd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Funcion FindWindowEx Lib "user32" Alias FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 as String) As Long

En un nuevo formulario crear un boton y colocar el nombre cmdCerrarProp en el evento Al hacer click escribir

Sub cmdCerrar_Click()
Dim hWnd as Long

hWnd = FinWindowEx(GetDesktopWindow(),ByVal 0&, "OArgDlg",vbNullString)
if hWnd<>0 then
DestroyWindow(hWnd) '* Genial No?
end if
End Sub

Dejen abierta la ventana propiedades intencionalmente

Reporten si le funciona adecuadamente o no

Saludos

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder