• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Problemen met opslaan in ander bestand

Status
Niet open voor verdere reacties.

Samsung6713

Gebruiker
Lid geworden
24 dec 2019
Berichten
209
Goedeavond,
ik heb een bestand waarin ik klanten, prijzen, artikelen e.d. opsla.
Deze gegevens worden daarin weggeschreven via een userform in een ander bestand.
Tot nu toe werkte dat perfect, maar sinds kort niet meer.
Als ik op toevoegen klik wordt het bestand geopend, gegevens weggeschreven, opgeslagen en weer afgesloten via vba.

Alleen het opslaan lukt soms ineens niet.
Dan krijg ik een foutmelding, en wordt er ineens een nieuw kopiebestand aangemaakt.
Als ik dan op niet opslaan klik krijg ik een foutmelding.
Zie bijlage
Excel wordt daarna afgesloten en weer opgestart met een herstelde versie.

Het probleem is alleen dat het niet altijd het geval is.
Beide bestanden staan in een dropboxmap, maar wel offline.

Ik snap een voorbeeldbestandje gewenst is, maar ik kan het probleem niet reproduceren, en het originele bestand wil ik hier niet posten.

Heeft iemand een idee waar het eventueel aan kan liggen?
 

Bijlagen

  • helpmij 17-11.JPG
    helpmij 17-11.JPG
    35,8 KB · Weergaven: 30
Zeer waarschijnlijk aan een automatiseringsfout.
 
Als je de kans krijgt klik dan in de eerste schermpje op Foutopsporing.
Dan weet je welke regel de fout veroorzaakt en kunnen we er misschien meer over zeggen.
 
Ik ben eruit denk ik.
Na het opslaan wordt er een query gerefresht op het bestand.
Om nog onduidelijke reden begint excel daarmee voordat het bestand is opgeslagen en afgesloten.
Hierdoor gaat het mis.

Code:
        masterwb.Close True
        
    shtVerkoop.ListObjects("qVerkoop").Refresh
    shtInkoop.ListObjects("qinkoop").Refresh
   
    Unload Verkoopprijs_UF
    Application.ScreenUpdating = True
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan