‚File save as’ unter VBA6(Access)

Computer: Software & Programmierung Visual Basic
#1

Hallo

Ich möchte mit VBA6.0 (Access!!) einen Dialog für ‚File save as’ erstellen, ein Pfad soll selektiert werden und ein neuer Filenamen eingegeben werden (evt. auch vorhandenes File auswählen).
Bisher versucht:
• Application.FileDialog(msoFileDialogSaveAs):
Option msoFileDialogSaveAs tut nicht mit Access (nur Excel, Word)
• Application.Dialogs(xlDialogSaveAs).Show:
Fehler ‘Methode nicht gefunden’, konnte leider nicht rausbekommen, ob ich unter Extras.Verweise eine zusätzliche Lib einbinden sollte!?

Vielen Dank für eure Tips!

#2

Hallo,

Application.FileDialog(msoFileDialogSaveAs):

sollte funktionieren wenn die Office10 Bibliothek in den Verweisen eingebunden ist.

Allerdings liegt das Problem nicht am FileDialog-Object sondern an der Konstanten, wenn du astatt dessen 0,1,2 oder 3 in die Klammer eintraegst (msoFileDialogSaveAs ist glaube ich 1), sollte es auch ohne die Office-Lib funktionieren.

Tschau
Peter

#3

Hallo, danke für deine Antwort!

ich habe die ‚Microsoft Office 10.0 Object Library‘ eingebunden, die Konstante ‚msoFileDialogSaveAs‘ ist bekannt und wird im Debugger mit Wert=2 angezeigt (ich habs auch direkt mit der Zahl 2 probiert). Jedoch, sobald der Befehl
With Application.FileDialog(msoFileDialogSaveAs)
ausgeführt ist, gibt Access das folgenden Fehlerfenster aus:

Microsoft Visual Basic
Laufzeitfehler ‚445‘:
Objekt unterstützt diese Aktion nicht

Gruß Uwe

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Ich habe jetzt eine gute Lösung gefunden unter:
http://www.ms-office-forum.net/forum/showthread.php?..