ACCESS ÖFFNEN 2
07.06.2003 20:00:12
IVAN
WIE KANN ICH EINE ACCESS DATEI AUS EINER USERFORM PER COMMAND BUTTON ÖFFNEN;UM DATEN IM FORMULAR EINZUGEBEN???
ich habe folgenden code,der mir leider nur mit schreibschutz
die datei öffnet;weil access die daten in die arbeitsmappe von excel exportiert!!
was muß ich noch ändern??
Option Explicit
Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWMAXIMIZED = 3
Sub db()
Dim x As Variant
x = ShellExecute(GetDesktopWindow(), "open", "G:\!Privat\MDB\ACN.mdb", "", "", SW_SHOWMAXIMIZED)
Call Ende
End Sub
DIESER CODE FUNKTIONIERT AUCH ABER ES KOMMT DIE SCHREIBSCHIUTZMELDUNG DAS ICH NICHTS ÄNDERN DARF IN ACCESS!!
DANKE
Anzeige