Bestand openen

[jtoonen]

Wie kan mij helpen?

Ik ben bezig met een systeem voor een Hotel in Access van waaruit ze de meest belangrijke bestanden bij kunnen.

Nu wil ik op een formulier een knop maken die het bestand Afvalbeheer.xls opent.
Dus als ze op die knop drukken, dat dan dat bestand geopend wordt.

Ik heb van alles al geprobeerd, maar kom er niet uit.

Het bestand staat staat op de locatie: F:\Docs\GBS\Afvalbeheer\Afvalbeheer.xls
F: is wel een server.
Het access bestand zelf staat in de map F:\Docs\GBS\

Wie kan mij helpen om dit op te lossen?

Alvast bedankt

 

[etri]

Je kan het Shell commando gebruiken:

Dim retval as long
retval = Shell("F:\Docs\GBS\Afvalbeheer\Afvalbeheer.xls",1)

Succes!

 

[jtoonen]

Hoe moet ik dat dan precies VBA neer zetten?
Heb niet zo veel verstand hiervan.

 

[etri]

Als je een knop (button) op een formulier hebt staan, dan heeft die knop een zgn 'Click' event. De code in dat event wordt iedere keer uitgevoerd wanneer een gebruiker op de knop klikt.

In de ontwerpmodus van MS Access voeg je een knop toe. Er start meteen een wizard, maar die beeindig je met de Annuleer/Cancel knop.
Vervolgens klik je met de rechtermuisknop op de nieuw toegevoegde knop en selecteer je de optie "Build Event...". Selecteer in het volgende venster de optie "Code Builder".

Je zit nu in de Visual Basic for Applications (VBA) omgeving. En als het goed is staat de cursor in de subroutine genaamd "Command0_Click" (indien je knop "Command0" heet). Voeg hier de code toe en dan zie je uiteindelijk het onderstaande:

Private Sub Command0_Click()
    Dim retval as long
    retval = Shell("F:\Docs\GBS\Afvalbeheer\Afvalbeheer.xls",1)
End Sub

Nu wordt iedere keer als je op de knop klikt het document "Afvalbeheer.xls" geopend.

 

[jtoonen]

Bedankt maar ik heb gedaan wat jij zei, maar dat kan krijg ik een foutmelding:

Fout 5 tijdens uitvoering:

Ongeldige procedure-aanroep of ongeldig argument

Heeft iemand enig idee hoe dit komt?
Heeft dit er mee te maken dat de bestanden op een server staan?

 

[etri]

Je zou ook de volgende code kunnen gebruiken:

    Dim oExcel As Object
    
    Set oExcel = CreateObject("Excel.Application")
    oExcel.Workbooks.Open ("F:\Docs\GBS\Afvalbeheer\Afvalbeheer.xls")
    oExcel.Visible = True