MapForums

First, thanks to anyone who reads this thread. I have some experience with MS access with none in Mappoint. I have a form in ms access. On that form I have an activex control named Mappointctrl3. I also have a decimal format lat and long on the same form. I want to pass the lat and long to the activex control and have it display a map on the form. Does anyone have any example code or could point me in the right direction for some Mappoint reference material. I sure would appreciate your help and time. Thanks jason

assuming your textboxes for lat/lon are name txtLatitude and txtLongitude, and that you have opened a map on the control:

With Mappointcontrol3.ActiveMap
.Location=.GetLocation(cDbl(txtLatitude.Text),cDbl (txtLongitude.Text))
.Altitude=1
End With

Paul, first, let me thank you for your help. You and those like you are why these sites are sooo helpful and work. Now, I tried the code sample you sent. Here is what I find. I have an active x control on my page that I have reinstalled to be mappointcontrol6. I am using mappoint 2006 in MS access. On my form (sample) I have a text box with the name, lat and long and the activex control for mappoint. I can make the maps work with mappoint running external to the form (stand alone and passing data to it) but I cannot get the activex box to work. Here is the code. The top section works fine and puts a pushpin on the map with the correct name. When I get to the lower code (revised from what you sent me to accomodate my decimal lat's and long's) it gives me the error that "object variable not set". When I type With MappointControl6. a list of parameters comes up. None of which are activemap, map, anything of the like. They are about, application, bordor color, border style, border width, cancel, class, etc. Something tells me that this activex will not work inside ms access. I am using access 2003. Let me say again your help is much appreciated. If I can ever return the favor, let me know. Any other ideas?

Private Sub Command5_Click()
Dim oMap As MapPoint.MAP
Dim mysite As String
mysite = Me![CASCADE]
Dim oLoc As MapPoint.Location

Set oMap = GetObject(, "MapPoint.Application").ActiveMap
oMap.Application.Units = geoMiles
Set oLoc = oMap.GetLocation(Me![LAT], Me![LONG], 1)
oMap.AddPushpin oLoc, mysite

oLoc.Goto

With MappointControl6.ActiveMap 'fails here as .activemap is not listed
.Location = .GetLocation(Me![LAT], Me![LONG])
.Altitude = 1
End With
End With

Send me an email and I'll reply with a working demo in an Access2003 database.

My email is "plarsonpma(AT)hotmail(DOT)com"

Paul, once again you came through. Problem solved. If anyone reads this and wants to know how to make Mappoint work in a MS access form, email me and I will share the knowledge Paul was kind enough to share with me. Thanks again!