PDA

Vollständige Version anzeigen : [VBScript] Acces Funktion per VBScript starten


thomas.Sc
21.04.2006, 15:02
Hallo zusammen,
ich möchte per VBScript eine Access-Datenbank öffnen und dann in der geöffneten Datenbank eine Funktion aufrufen. Hier mal mein Code:

Sub Access_Starten
Dim Obj_Shell
Set obj_shell = Wscript.CreateObject("Wscript.shell")
' oeffnen der Datenbank
obj_shell.Run ("D:\Access\Datenbank.mde")
' Auf dem Anmeldeformular zurückspringen, um Benutzername einzugeben
obj_shell.sendkeys ("{TAB}{TAB}{TAB}{TAB}")
' Benutzername eintragen
obj_shell.sendkeys("Benutzername")
' warten
wscript.sleep 1000
' Ins naechste Feld springen
obj_shell.sendkeys("{TAB}")
' warten
wscript.sleep 1000
' Passwort eingeben
obj_shell.SendKeys ("Passwort")
' Auf OK springen und bestaetigen
obj_shell.sendkeys("{TAB}{ENTER}")
' warten
wscript.sleep 50000

' Aufrufen der Funktion FncRoutine
obj_shell.run "FncRoutine"

End Sub


Ich bekomme den Fehler beim "Aufruf" der Funktion, wie muß der Aufruf richtig heißen?

Gruß

Thomas

Maxus
26.04.2006, 10:00
das problem hatte ich auch aber es funktioniert .....

Set objAc = CreateObject ("Access.Application")

objAc.OpenCurrentDatabase"P:\Pfad\Pfad~1\Umsatz~2.mdb"
objAc.Visible = True 'zeigen oder nicht

objAc.Application.Run"AutoExport"

objAc.Application.CloseCurrentDatabase


'objAc.Application.Quit
Set wshshell=Nothing
Set objAc=Nothing