Newsgroup: it.comp.appl.access
Titolo: sito non si riesce ad aprire da access

qualcuno da dirmi perchè non riesco ad aprire questo sito da vba?
 
il sito è il simulatore di ADE fatturazione elettronica link seguente
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
 
 
ed io eseguo quanto segue:
 
********** CODE *********
 
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
'apre il browser 
Public Sub ExecBrowser(strURL$)
Dim lVal As Integer
lVal = ShellExecute(1, "open", strURL, "", "", 1)
End Sub
 
 
e su click del pulsante eseguo
    ExecBrowser ("
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
")
 
*** END CODE ***


mettendo il link nell'indirizzo collegamento ipertestuale me lo apre correttamente, ho risolto cosi


rettifico a funzionato una volta dal collegamento ipertestuale poi aprendo il sito  
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
 
 
mi ha dato errore
Error 500: java.lang.NullPointerException
 
quale idea su come portelo aprire da access?
 


adopero queste righe per avere in sottofondo qualche canzoncina da youtube
e l'ho adattato
 
vedo però che qualche volta restituisce errore 500
----------
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
'set IE = CreateObject("SHDocVw.InternetExplorer"): NON permette late binding
IE.Visible = True
IE.Navigate "
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
"
Do While IE.ReadyState <> READYSTATE_COMPLETE
  'non fa considerare il tempo di caricamento, ma sono pochissimi secondi ...
Loop
 

Giorgio... cosa significa non permette Latebinding...?
 
Quello è Latebinding...
 
@Alex


a me non funziona, dice "impossibile visualizzare la pagina"
 


poiché, a suo tempo ho fatto (per il solo scopo "di divertimento personale) un copia incolla di PIU' frammenti di codice "raccattati"
mi era sembrato (a quel momento) che quella dichiarazione con l' oggetto (?)SHDocVw NON permettesse il late binding 
(ora non l'ho più presente, credo ci fosse il CreateObject "immediato")


Giorgio, solo per non scrivere cose inesatte nel NG ai possibili fruitori...
La distinzione Early/LateBinding non ha nulla a che vedere con l'uso di CREATEOBJECT, infatti puoi tranquillamente usare questo metodo per entrambe le tecniche di Istanza.
 
Quello che differenzia le 2, è solo la dichiarazione della variabile Oggetto, che in LATE(As Object) mentre in EARLY(As LibTypeSpecifica)
 
Saluti
@Alex

 a me non funziona, dice "impossibile visualizzare la pagina"
 
è quanto accade anche a me PERO' SOLO PER LA PRIMA VOLTA
 
per cui "COMPLETO" così il MIO AUTOREVOLE CONSIGLIO
 
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = False
IE.Navigate "
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
"
Do While IE.ReadyState <> READYSTATE_COMPLETE
  'non fa considerare il tempo di caricamento, ma sono pochissimi secondi ...
Loop
 
IE.Visible = True
IE.Navigate "
https://sdi.fatturapa.gov.it/SdI2FatturaPAWeb/login.jsp
"
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
 
 
porta pazienza, ripeto che per me 
sono davvero cose da considerare "raccattate"
 
e comunque sono tutte cose che si trovano meglio (bene)
con ricerche del tipo
"vbscript per aprire Internet"
 
in fondo i frammenti di codice vbscript
sono, "di fatto" frammenti di codice VBA
 
 
ma continuando a visionare l'effetto, per curiosità personale,
 
vien da pensare che questi siti istituzionali
possano riconoscere una chiamata "indiretta",
 
perchè vedo che il server dà anche altri tipi di avvisi
di mancata risposta
"l'oggetto invocato si è disconnesso dai client"


eh, sì
 
quella riga di commento PROPRIO personale
deriva dal fatto che, scorrendo i (pochi) frammenti rintracciati,
vedevo dichiarare l'oggetto SHDocVw.InternetExplorer
nella modalità EARLY 
 
e poi vedendo che il copia-incolla di
Dim IE As Object 
Set IE = CreateObject("internetexplorer.application") 
apriva bene IE su 2-3 PC
 
(in modo indipendente dalla versione di IE)
 
avevo commentato in modo improprio una mia preferenza
(effettuare, da codice, l'apertura di IE in modo indipendente dalla versione)
e non un oggettivo riscontro