Onderdrukken pop-up's t.g.v. datasource.errors

[Ruudh59]

Na een refresh van een query wordt een macro gestart volgens onderstaande methode.
Dat werkt prima. Alleen krijg ik af en toe een datasource.error in de vorm van een pop-up.
De pop-up vereist handmatig handelen, dus het proces stopt.
Weet iemand een manier om de pop-up's te onderdrukken?


Methode:
Met de module PutOn wordt het proces gestart en de macro 'Verwerk' opgestart na een refresh van de query in het blad "LOAD".

Module: Puton

Public FollowQT As Qclass
Sub PutOn()
Set FollowQT = New Qclass
Set FollowQT.myQT = Worksheets("LOAD").ListObjects(1).QueryTable
End Sub


Klassenmodule: Qclass

Private WithEvents QT As Excel.QueryTable
Public Property Set myQT(MyQuery As Excel.QueryTable)
Set QT = MyQuery
End Property

Private Sub QT_AfterRefresh(ByVal Success As Boolean)
Debug.Print "AfterRefresh"
If Success Then Verwerk
End Sub

Private Sub QT_BeforeRefresh(Cancel As Boolean)
Debug.Print "BeforeRefresh"
End Sub

 

[jkpieterse]

Wat veroorzaakt deze foutmelding?

 

[Ruudh59]

Er zijn verschillende oorzaken, maar ze zijn allemaal van de categorie [datasource.error].
Een voorbeeld is: "Kan geen verbinding met externe server maken".
Zijn allemaal van tijdelijke aard, misschien veroorzaakt door timing-issues, maar ze doen wat mij betreft niet ter zake; ik wil ze gewoon negeren.

 

[jkpieterse]

Dit bericht wordt door Excel gegenereerd en kan voor zover ik kon vinden niet worden voorkomen.

 

[snb]

Ik doe het zö:

Dim X As New Qclass

Sub PutOn()
   Set X.qt = sheets("LOAD").ListObjects(1).QueryTable
End Sub

Klassemodule: Qclass

Public WithEvents qt As Excel.QueryTable

Private Sub qt_AfterRefresh(ByVal Success As Boolean)
   Debug.Print Success
End Sub

Private Sub qt_BeforeRefresh(Cancel As Boolean)
   Debug.Print "BeforeRefresh"
End Sub

 

[Ruudh59]

Maar heeft dat effect op de pop-up's?

 

[snb]

Dat kun jij testen....
Hier krijg ik er in ieder geval geen.

 

[jkpieterse]

Ik krijg er wel een als ik een query maak (Gegevens ophalen, uit bestand) en die met opzet om zeep help door het pad naar het bestand foutief aan te passen. De enige manier die ik vind om vernieuwen zonder foutmeldingen te doen is deze:

Sub foobar()
    On Error Resume Next
    ActiveCell.ListObject.QueryTable.Refresh False
    On Error Goto 0
End Sub

 

[Ruudh59]

snb:
Ik heb jouw code 1 op 1 overgenomen.

Ik krijg de compileerfout bij het uitvoeren van puton: "Kan de methode of het gegevenslid niet vinden" met ".qt =" gemarkeerd.

 

[E v R]

Ik denk even "hardop"
Die errors zijn "remote" en kun je volgens mij niet veel mee, maar kun je de errors wel afvangen als je QueryTable.refresh handmatig draait? (niet getest)

Dan zou je een simpele (extra) connectie naar een ander werkboek in dezelfde folder kunnen maken (dus kans op errors klein) , deze automatisch laten refreshen en in het Afterrefresh-event van deze query de "handmatige" refresh aanroepen?

Sub MyRefresh()
On Error GoTo Myerr:
        Worksheets("LOAD").ListObjects(1).QueryTable.Refresh BackgroundQuery:=False
On Error GoTo 0
Myerr:
        Resume Next
debug.print "er was een error maar we gaan door..."
End Sub

 

[snb]

Verander
Private WithEvents qt As Excel.QueryTable

in

Public WithEvents qt As Excel.QueryTable

 

[Ruudh59]

De methode van snb veroorzaakt ook pop-ups.

De mogelijke oplossing van E v R is wel interessant.
Dat ga ik proberen als ik daar tijd voor heb over een paar dagen.
Een eenvoudiger query als "MOTOR" en de gewenste query handmatig uitvoeren.
Wordt vervolgd.

 

[jkpieterse]

Die tip van EvR is precies wat ik in #8 al zei.

 

[Ruudh59]

jkpieterse: ja, dezelfde foutafhandeling, maar m.n. de handmatige refresh was een eye-opener. Sowieso moet nog bekeken worden of de foutafhandeling werkt (met een handmatige refresh). De extra (eenvoudiger) query is dan weer nodig om het proces aan de gang te houden. We gaan het zien. Allemaal bedankt voor de tips.

 

[jkpieterse]

Bij mij werkt die on error resume next wel. Met een timer is het eenvoudig genoeg om deze handmatige refresh op gezette tijden te laten uitvoeren of bij openen bestand e.d.

 

[Ruudh59]

Goed te horen dat de on error resume next werkt. Ik heb een timer geprobeerd, maar het nadeel daarvan is dat daardoor de werkmap verder niet toegankelijk is; een module is voortdurend actief, hetzij met bewerkingen, hetzij met wachten.

 

[jkpieterse]

Hoe heb je dat gedaan?

 

[Ruudh59]

Application.Wait

 

[jkpieterse]

Dat bedoelde ik ook niet. Meer zo iets:

 

[Ruudh59]

Bedankt. Ga ik meenemen.