file naam aanpassen als code via opdrachtknop gerund wordt

Status
Niet open voor verdere reacties.
Friend

Friend

Verenigingslid
Lid geworden
31 jan 2009
Berichten
1.128
Beste forummers,

Ik gebruik, met dank aan NoellaG en OctaFish, de volgende code om vanuit een access query data weg te schrijven naar een excel bestand.

Code: 
Private Sub Knop203_Click()


Dim tFile As String

tFile = "C:\temp\planning-201201-ma.XLS"

DoCmd.OutputTo acOutputQuery, "qPlanning", acFormatXLS, tFile, autostart:=True
End Sub

Graag zou ik het wegschrijven naar Excel wat dynamischer willen maken.

Concreet de filenaam zou ik elke keer willen aanpassen als ik de code run.

Nu wordt dit : planning-201201-ma.XLS ik zou een gedeelte hiervan echter variabel willen maken. BV 201108-ka (planning-201108-ka.XLS)

Kan dit in de code dat ik dit invul als de code gerund wordt?

Friend
 
Laatst bewerkt:
Misschien even logisch denken? Waar tover je 201201 of 201108 vandaan? Als je dat weet, weet je het antwoord ook.
 
VenA,

Hartelijk dank voor je reactie:thumb:

De file naam wordt on the spot gegeven.

Friend
 
Frank,

Hartelijk dank voor je reactie:thumb:

Methode van de inputbox lijkt mij uitstekend voor wat ik voor ogen heb.

Ga kijken hoe ik dat in één code kan krijgen.

Friend
 
Code: 
Private Sub Knop203_Click()
Dim tFile As String

     tFile = "C:\temp\" & Inputbox("Typ de naam van het Excel bestand", "Bestandsnaam", "Planning-201201-ma") & ".xlsx"
     DoCmd.OutputTo acOutputQuery, "qPlanning", acFormatXLS, tFile, autostart:=True
End Sub
 
OctaFish,

Hartelijk dank voor je reactie:thumb:

Dat is een mooie code. Werkt prima.

Zelf had ik inmiddels dit bedacht:

Code: 
Private Sub Knop203_Click()

 Dim myValue
    myValue = InputBox("Please enter the date and day", "Date")
   
Dim tFile As String

tFile = "C:\temp\planning-" & myValue &.XLS"

DoCmd.OutputTo acOutputQuery, "qPlanning", acFormatXLS, tFile, autostart:=True
End Sub

Maar ik zie van jouw code dat je de Inputbox rechtstreeks in de regel tFile kan zetten.

Hartelijk dank.

Friend
 
Door de Inputbox apart te draaien, kun je wél eerst controleren of de naam wel klopt. Dat kan in mijn code niet. Als dat belangrijk voor je is (die check) zou ik zeker jouw eigen code gebruiken. Dan moet er uiteraard wél een foutcontrole worden ingebouwd :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan