Bem amigos.. tentarei explicar a situação.
Tenho um form com um Browser, no mesmo tem uma caixa texto Acoplada que tem um endereço de página.
quando abro o mesmo com esse endereço cadastrado na tabela que é origem do form, o navegador normalmente no endereço contido na caixa texto...
Mas tenho uma situação que esta caixa recebe o valor de outro form, quando é assim o navegador não vai para o endereço contido na caixa texto..
Este é o código
Private Sub Form_Load()
On Error Resume Next
'Esta linha segue o envio de alerta para coordenadas não cadastradas
If IsNull(txtUnidade) = True Then
Dim HTML As String
Me.WebBrowser9.Visible = True
HTML = Forms!frmAcionarAlertaGoogle!txtHTML
Me.txtHTML = Forms!frmAcionarAlertaGoogle!txtHTML
Me.MapCenterLatitude = Forms!frmAcionarAlertaGoogle!cboLat.Value
Me.MapCenterLongitude = Forms!frmAcionarAlertaGoogle!cboLong.Value
Me.txtLA = Forms!frmAcionarAlertaGoogle!cboLa.Value
Me.txtLO = Forms!frmAcionarAlertaGoogle!cboLO.Value
Me.txtArea = "COORDENADA NÃO CADASTRADA"
Me.WebBrowser9.Navigate = HTML
MsgBox HTML
Else
'Esta linha segue o envio de alerta para localidades previamentes cadastradas
If IsNull(txtHTML) = False Then
Me.WebBrowser9.Visible = True
Me.WebBrowser9.Navigate Me.txtHTML
Call Alerta
'Esta linha para quando não há localidades ou cooredenadas a serem visualizadas
Else
Me.WebBrowser9.Visible = False
End If
End If
End Sub
Como viram la no código em azul, tentei tambem com uma variável e mesmo assim não funcionou..
Se puderem me ajudar fico grato
Tenho um form com um Browser, no mesmo tem uma caixa texto Acoplada que tem um endereço de página.
quando abro o mesmo com esse endereço cadastrado na tabela que é origem do form, o navegador normalmente no endereço contido na caixa texto...
Mas tenho uma situação que esta caixa recebe o valor de outro form, quando é assim o navegador não vai para o endereço contido na caixa texto..
Este é o código
Private Sub Form_Load()
On Error Resume Next
'Esta linha segue o envio de alerta para coordenadas não cadastradas
If IsNull(txtUnidade) = True Then
Dim HTML As String
Me.WebBrowser9.Visible = True
HTML = Forms!frmAcionarAlertaGoogle!txtHTML
Me.txtHTML = Forms!frmAcionarAlertaGoogle!txtHTML
Me.MapCenterLatitude = Forms!frmAcionarAlertaGoogle!cboLat.Value
Me.MapCenterLongitude = Forms!frmAcionarAlertaGoogle!cboLong.Value
Me.txtLA = Forms!frmAcionarAlertaGoogle!cboLa.Value
Me.txtLO = Forms!frmAcionarAlertaGoogle!cboLO.Value
Me.txtArea = "COORDENADA NÃO CADASTRADA"
Me.WebBrowser9.Navigate = HTML
MsgBox HTML
Else
'Esta linha segue o envio de alerta para localidades previamentes cadastradas
If IsNull(txtHTML) = False Then
Me.WebBrowser9.Visible = True
Me.WebBrowser9.Navigate Me.txtHTML
Call Alerta
'Esta linha para quando não há localidades ou cooredenadas a serem visualizadas
Else
Me.WebBrowser9.Visible = False
End If
End If
End Sub
Como viram la no código em azul, tentei tambem com uma variável e mesmo assim não funcionou..
Se puderem me ajudar fico grato