Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: Schakal am Februar 10, 2012, 10:13:58

Titel: Speicherort Wählen
Beitrag von: Schakal am Februar 10, 2012, 10:13:58
Hallo Forum Nutzer,
Ich stehe mal wieder auf dem Schlauch und bin mir sicher das mir hier jemand helfen kann.
Zum Thema,
Ich habe eine Access Datenbank - aufgeteilt in Frontend und Backend.
Aus der Datenbank wird eine Datei generiert. Soweit alles OK und funktioniert auch.

Nun der BLACKOUT! :-)

Das Frontend befindet ich auf mehreren Rechnern und alle können Arbeiten und die Datei generieren.
Die Datei soll automatisch gespeichert werden und zwar immer auf dem Desktop des entsprechenden Arbeitsplatzes.
Ich habe  zwar einen Code aber ich muss ihn an jedem Arbeitsplatz anpassen denn der Code sieht so aus.


oExcel.ActiveWorkbook.SaveAs FileName:= _
      "C:\Users\Anwender1\Desktop\ABCD_" & strLfdnr & ".xls", FileFormat:=52
    oExcel.ActiveWorkbook.Save

Sicher gibt es eine Trick wie ich das Ändern an jedem Arbeitsplatz verhindern kann indem das Frontend - egal wo ich es Installiere immer auf den Desktop des jeweiligen Anwender speichert.

Bloss komme ich nicht drauf....
:-) :)
Bitte Hilfe
Titel: Re: Speicherort Wählen
Beitrag von: MzKlMu am Februar 10, 2012, 10:17:09
Hallo,
Du brauchst ja ein Kriterium zur Erkennung des Anwenders.
Daher die Frage: Ist Anwender mit dem Windowsbenutzernamen gleich?

Wenn nicht, benötigst Du eine Übersetzungstabelle Windowsuser > Anwender.

Welche Access Version benutzt Du?
Titel: Re: Speicherort Wählen
Beitrag von: Schakal am Februar 10, 2012, 10:20:22
Hallo
Ja Anwender1 = Windowsbenutzer - habe ich hier nur geändert damit der Name nicht erscheint.
Titel: Re: Speicherort Wählen
Beitrag von: Schakal am Februar 10, 2012, 10:21:03
Hallo

Access 2007/2010
Titel: Re: Speicherort Wählen
Beitrag von: bahasu am Februar 10, 2012, 10:47:08
Hi

Username ist mit Environ("username") zu erhalten.

Harald
Titel: Re: Speicherort Wählen
Beitrag von: DF6GL am Februar 10, 2012, 10:51:05
Hallo,

"Username" kann in die Hosen gehen, wenn das User-Profil einen anderen Pfadnamen enthält...


Dim strFname as String

strFname = environ("Userprofile") & "\Desktop\ABCD_" & strLfdnr & ".xls"
Titel: Re: Speicherort Wählen
Beitrag von: MzKlMu am Februar 10, 2012, 10:53:25
Hallo,
ich ziehe meinen Beitrag mit dem Ausdruck des Bedauerns zurück.  ;D
Titel: Re: Speicherort Wählen
Beitrag von: Schakal am Februar 10, 2012, 11:02:28
Hallo,
Vielen dank hat geklappt
Danke Schönes Wochenende!! :-)
;)