If you use VB you can use the same syntax in VBA:-
On Error GoTo create_error
Set mapinfo = GetObject(, "mapinfo.application")
'create OLE app to communicate with
create_error:
' if you are here it means that the " GetObject call failed
' and so you will need to make a new instance using
' CreateObject
Set mapinfo = CreateObject("mapinfo.application")
mapinfo.do "close all"
mapinfo.do "set next Document Parent " & mapwin.Hwnd & " Style 1"
mapinfo.do "run application ""C:\winnt40\mapinfow.wor"" "
mapinfo.do "Create Menu ""MapperShortCut"" As ""MapInfo in Access97"" "
BUT! in VB I use an image window. This can't be used Access to support the
.Hwnd function I've had to use the Threed OCX (Additional OCX) as MapWin
Tim Chinchen (IT Services)
mailto:[EMAIL PROTECTED]
> -----Original Message-----
> From: Leduc, Yannick [SMTP:[EMAIL PROTECTED]]
> Sent: Friday, April 16, 1999 5:01 PM
> To: 'MapInfo-L'
> Subject: MI Integrating maps in a MS Access form
>
> Hi!
>
> Is it possible to integrate a MI interactive map in a MS Access form
> ? If so, how it can be done. I'm very familiar with MI and MB, but not
> very
> with MS Access and VBA.
>
> I would like to be able to give two linear reference and then see the
> portion of this road on a map. How can I do that ? Do you have some leads?
>
>
> Thank you
>
> Yannick Leduc
> Minist�re des Transports
> Direction de la Mauricie-Centre-du-Qu�bec
> Service des inventaires et du Plan
>
> t�l.: (819) 371-6606 #331
> fax: (819) 371-6136
> email: [EMAIL PROTECTED]
>
>
> ----------------------------------------------------------------------
> To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
> "unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
