Deseo utilizar el boton "mostrar escritorio" (o algo q 
realice la misma accion), desde un formulario. Ya que 
quiero minizar la base de datos con una sola accion. pero 
el problema esque tengo que minimizar dos veces. Una el 
formulario y otra el formato "madre" de access. ¿Que puedo 
hacer?. Gracias.

RESPUESTAS
==========

BUHO
----
Hace tiempo Enrique Martinez, dió la siguiente respuesta:
COPIA:
======
Mediante la API «keybd_event» puedes simular la acción del teclado cuando se
pulsa conjuntamente la tecla de Windows + M, de manera que se minimicen
todas las ventanas:

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, _
     ByVal bScan As Byte, _
     ByVal dwFlags As Long, _
     ByVal dwExtraInfo As Long)

    Const KEYEVENTF_KEYUP = &H2
    Const VK_LWIN = &H5B

    ' Código de la tecla Windows
    Call keybd_event(VK_LWIN, 0, 0, 0)

    ' Código de la tecla "M"
    Call keybd_event(77, 0, 0, 0)

    ' Simula la liberación de la tecla
    Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)



--

RESPONDE JUAN M AFAN DE RIBERA
==============================

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVallpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub MostrarEscritorio()
Dim rutaFichero As String
Dim textoFicheroSCF As String

rutaFichero = "C:\WINDOWS\Application Data\Microsoft\Internet Explorer\Quick Launch\Mostrar escritorio.scf"
    If Dir(rutaFichero) = "" Then
        textoFicheroSCF = "[Shell]" & vbCrLf & "Command = 2" & vbCrLf
        textoFicheroSCF = textoFicheroSCF & "IconFile=explorer.exe,3" & vbCrLf
        textoFicheroSCF = textoFicheroSCF & "[Taskbar]" & vbCrLf & "Command=ToggleDesktop"
        rutaFichero = CurrentProject.Path & "\mostrar escritorio.scf"
        If Dir(rutaFichero) <> "" Then
            Kill rutaFichero
        End If
        Open rutaFichero For Output As #1
        Print #1, textoFicheroSCF
        Close #1
    End If

    ShellExecute Application.hWndAccessApp, vbNullString, rutaFichero,vbNullString, "c:\", 0

End Sub

--
Saludos desde Barcelona


Y LLEGA MARJAN [MARTIN] Y DA LA FACIL PERO MUY EFECTIVA:

En el evento "Al hacer clic" de un botón pones :

DoCmd.RunCommand acCmdAppMinimize

Saludos,
marjan