Bestand verwijderen in VBA

Pagina: 1
Acties:
  • 272 views sinds 30-01-2008

  • PsychoG
  • Registratie: Augustus 1999
  • Laatst online: 23-05 11:03

PsychoG

Pumpin' on your stereo...

Topicstarter
Ik wil binnen Access een bestand verwijderen.. hoe moet da?!? Ik heb geen flauw idee.. (ik haat Access namelijk). Ik dacht zelf dat het wel via VBA moet lukken. Maar hoe?!

  • Onno
  • Registratie: Juni 1999
  • Niet online
Kill "bestand"

Dat is een standaard Basic statement, dus zal het ook wel in VBA werken...

  • PsychoG
  • Registratie: Augustus 1999
  • Laatst online: 23-05 11:03

PsychoG

Pumpin' on your stereo...

Topicstarter
Shit hej.. dat had ik zelf moeten weten. Naja met dat lente-weer is mijn hersenactiviteit niet echt optimaal.

Senk joe velly muts Onno

Verwijderd

ff inhaken op dit onderwerp. De functie kill heb ik ook gevonden. Ik gebruik hem om afbeeldingen te verwijderen, indien een object verkocht is uit mijn database. In principe geen probleem... Maar het wil ook nog wel eens voorkomen dat er geen foto beschikbaar is.... dan knalt mijn proggie dus uit zijn sub, met de melding "bestand niet gevonden".

Ik probeer hier dus ff omheen te komen. Zelf zat ik te denken aan een if-statementd, waarin ik check of het bestand bestaat.

Zo ja, verwijderen (dmv de kill instructie)
Zo Nee, uit de sub

of is er ook een manier, waardoor vba niet de melding geeft 'bestand niet gevonden' en doorgaat in zijn sequence??

  • justmental
  • Registratie: April 2000
  • Niet online

justmental

my heart, the beat

Deze excepties kan ie terug geven:
IOException 55 Target file(s) open.
FileNotFoundException 53 Target file(s) not found.

Die moet je handlen dus, met andere woorden: lees eens wat over exception handling.

Who is John Galt?


  • Markieman
  • Registratie: December 2001
  • Laatst online: 15-05 12:16
On error resume next
kill "bestand.ext"
if err.number<>0 then
if err.number = 53 then
exit sub 'Indien bestand niet bestaat, stop netjes
else
msgbox err.description 'Andere foutmelding, geef weer
exit sub
endif
end if

on error goto 0 'Laat fouten weer het programma afbreken...

(zoiets, ff snel getypt)

You do not fear them? - The Wraith? Naah. Now *clowns*, that's another story.


  • curry684
  • Registratie: Juni 2000
  • Laatst online: 12-05 22:23

curry684

left part of the evil twins

Met deze 2 hints moet het wel lukken, gaarne volgende keer een nieuw topic openen waarin je naar een ander topic verwijst indien nodig ipv een trap van 3.5 jaar te geven :)

Professionele website nodig?


  • curry684
  • Registratie: Juni 2000
  • Laatst online: 12-05 22:23

curry684

left part of the evil twins

Een kleine toevoeging per email van een behulpzame gebruiker:
Het is IMO nl. slordig om een fout te laten optreden en die af te vangen als je de fout ook kan voorkomen.
M.b.v. de functie Dir kan je kijken of een bestand bestaat, en vervolgens daarnaar handelen.

Professionele website nodig?

Pagina: 1

Dit topic is gesloten.