[AccessD] Office API's

Yeah, and it's temperamental to boot! ;)

Susan H.


> Susan,
>
> <<FindWindow -- but I can't get it to return
> anything but 0???>>
>
>  FindWindow() only returns top level windows and not child windows.  So
> this will only fetch the main Access window.
>
> This:
>
> Function apicFindWindow()
>  'Get window handle.
>  Dim hWnd As Long
>  hWnd = FindWindow("oMAIN", vbNullString)
>  Debug.Print hWnd
> End Function
>
>  Will return the handle of the first Access window it finds.
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
> Sent: Friday, December 10, 2010 02:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Office API's
>
>> Private Declare Function BringWindowToTop Lib "user32" (ByVal lngHWnd As
>> Long) As Long
>
> ======This one begs the function, FindWindow -- but I can't get it to 
> return
>
> anything but 0??? I can get the class Okay, but the window name/caption --  
> I
>
> must be passing the wrong strings. I really don't have a clue what to pass
> and I'm just guessing. I've tried several different strings, and 
> everything
> returns 0 -- any help?
>
> Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
> (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
>
> Function apicFindWindow()
>  'Get window handle.
>  Dim hWnd As Long
>  hWnd = FindWindow("oMAIN", "Table2")
>  Debug.Print hWnd
> End Function
>
> Susan H.
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com