Displaying 1 result from an estimated 1 matches for "hwndaccessapp".
2005 Nov 17
0
problem with shell and acccess 97
...r.
Set MiAccess = GetObject(CaminoAlServidor & "\Informes.mdb")
MiAccess.CommandBars("BarraInformes").Visible = True
MiAccess.DoCmd.OpenReport Informe, vista, , Condici?nWhere
If vista = acPreview Then
If Not IsZoomed(MiAccess.Application.hWndAccessApp) Then
'Maximiza la aplicaci?n abierta
ShowWindow& MiAccess.Application.hWndAccessApp, 3
End If
MiAccess.DoCmd.Maximize 'maximiza el informe
Else
MiAccess.Quit
Set MiAccess = Nothing
End If
SetForegroundWindow...