Bom dia, tenho um formulário onde o VBA faz uma consulta na internet e retorna laltitude longitude, acontece que so em uma maquina com o Win10 esta dando o erro abaixo, todas as maquinas inclusive esta com Win10 estao com o Access 2010, alguem pode me ajudar, nao encontro em lugar nenhum a solução disso, conferi as referencias e estão todas certas
Erro de compilação:
O tipo definico pelo usuário não foi definido
Dim Erro de compilação:
O tipo definico pelo usuário não foi definido
Dim HttpReq As New MSXML2.XMLHTTP30
Dim objXML As New MSXML2.DOMDocument..
Eis o codigo completo onde funciona nas maquinas com Win7 e Office 2010,
Function fGetXMLText( _
pstrURL As String _
) As String
'******************************************************************************
'* Peter De Baets, author
'* 9/4/2010
'* Requires a referenc to "Microsoft XML, v3.0", or later
'******************************************************************************
Dim Marker As Integer
Dim Rtn As String
Dim S As String
Dim HttpReq As New MSXML2.XMLHTTP30
Dim objXML As New MSXML2.DOMDocument
On Error GoTo Err_Section
Marker = 1
HttpReq.Open "GET", pstrURL, False
HttpReq.send
Rtn = HttpReq.responseText
Exit_Section:
On Error Resume Next
Set HttpReq = Nothing
Set objXML = Nothing
fGetXMLText = Rtn
On Error GoTo 0
Exit Function
Err_Section:
Select Case Err
Case Else
Beep
MsgBox "Error in fGetXMLText (" & Marker & "), object " & Err.Source & ": " & Err.Number & " - " & Err.Description
End Select
Err.Clear
Resume Exit_Section
End Function
Obrigado
Erro de compilação:
O tipo definico pelo usuário não foi definido
Dim Erro de compilação:
O tipo definico pelo usuário não foi definido
Dim HttpReq As New MSXML2.XMLHTTP30
Dim objXML As New MSXML2.DOMDocument..
Eis o codigo completo onde funciona nas maquinas com Win7 e Office 2010,
Function fGetXMLText( _
pstrURL As String _
) As String
'******************************************************************************
'* Peter De Baets, author
'* 9/4/2010
'* Requires a referenc to "Microsoft XML, v3.0", or later
'******************************************************************************
Dim Marker As Integer
Dim Rtn As String
Dim S As String
Dim HttpReq As New MSXML2.XMLHTTP30
Dim objXML As New MSXML2.DOMDocument
On Error GoTo Err_Section
Marker = 1
HttpReq.Open "GET", pstrURL, False
HttpReq.send
Rtn = HttpReq.responseText
Exit_Section:
On Error Resume Next
Set HttpReq = Nothing
Set objXML = Nothing
fGetXMLText = Rtn
On Error GoTo 0
Exit Function
Err_Section:
Select Case Err
Case Else
Beep
MsgBox "Error in fGetXMLText (" & Marker & "), object " & Err.Source & ": " & Err.Number & " - " & Err.Description
End Select
Err.Clear
Resume Exit_Section
End Function
Obrigado