VBScript, Object variable or With block variable not set (Error 91)

dhillonpara
#1 / 3

Object variable or With block variable not set (Error 91)

Hi Iam trying to run the code below and get this error command. Can anyone
tell me ehat is wrong here.

Thanks

Option Explicit
Dim oMpApp As MapPoint.Application
Dim oMap As MapPoint.Map
Private Sub Command1_Click()
oMap.Shapes.AddShape geoShapeOval, _
oMap.GetLocation(49.01807, -121, 9), 10, 10
' Try to attach to running instance of MapPoint
On Error Resume Next
Set oMpApp = GetObject(, "MapPoint.Application")
On Error GoTo 0

If oMpApp Is Nothing Then
' Attaching failed - try creating an object
On Error Resume Next
Set oMpApp = CreateObject("MapPoint.Application")
On Error GoTo 0

If oMpApp Is Nothing Then
MsgBox "Could not create MapPoint object"
End
End If
' make the app visible
oMpApp.Visible = True
End If

' Ensure MapPoint survives when app terminates
oMpApp.UserControl = True

' Retrieve the active map
Set oMap = oMpApp.ActiveMap
End Sub

Tue, 03 May 2005 05:26:33 GMT

MVP
#2 / 3

Object variable or With block variable not set (Error 91)

Quote:

> Hi Iam trying to run the code below and get this error command. Can
> anyone tell me ehat is wrong here.

1) It's VB/VBA code, not VBScript (in case you missed it, this is a VBScript
newsgroup ;-).

2) You never actually set oMap to be an instance of a MapPoint.Map (at least
not in the code you posted).

Quote:

> Option Explicit
> Dim oMpApp As MapPoint.Application
> Dim oMap As MapPoint.Map
> Private Sub Command1_Click()
> oMap.Shapes.AddShape geoShapeOval, _
> oMap.GetLocation(49.01807, -121, 9), 10, 10
> ' Try to attach to running instance of MapPoint
> On Error Resume Next
> Set oMpApp = GetObject(, "MapPoint.Application")
> On Error GoTo 0

> If oMpApp Is Nothing Then
> ' Attaching failed - try creating an object
> On Error Resume Next
> Set oMpApp = CreateObject("MapPoint.Application")
> On Error GoTo 0

> If oMpApp Is Nothing Then
> MsgBox "Could not create MapPoint object"
> End
> End If
> ' make the app visible
> oMpApp.Visible = True
> End If

> ' Ensure MapPoint survives when app terminates
> oMpApp.UserControl = True

> ' Retrieve the active map
> Set oMap = oMpApp.ActiveMap
> End Sub

--
Michael Harris
Microsoft.MVP.Scripting
Seattle WA US

Tue, 03 May 2005 05:45:12 GMT

MVP
#3 / 3

Object variable or With block variable not set (Error 91)

Quote:

> 2) You never actually set oMap to be an instance of a MapPoint.Map
> (at least not in the code you posted).

Just noticed that you do, but way too late in the code...

Quote:

>> Private Sub Command1_Click()
>> oMap.Shapes.AddShape geoShapeOval, _
>> oMap.GetLocation(49.01807, -121, 9), 10, 10
---snip---
>> Set oMap = oMpApp.ActiveMap
>> End Sub

--
Michael Harris
Microsoft.MVP.Scripting
Seattle WA US

Tue, 03 May 2005 07:52:22 GMT