Starte access fra VB

Max 1 spørgsmål med samme \"beskrivelse\".

Så luk den ene af dem. Hvilket må være den du har oprettet i design-kategorien.

Hvordan lukker jeg et spørgsmål????
123

Du laver et svar selv. Og accepterer det. Så enkelt er det.

Deklarer flg i din Form eller Modul (Konstanter er medtaget for at vise, hvilke værdier du kan bruge for at vise programmet anderledes ved opstart; de skulle være selvforklarende):

Private 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
Dim res As Long
Dim ToOpen As String
Const SW_HIDE = 0
Const SW_MAXIMIZE = 3
Const SW_MINIMIZE = 6
Const SW_RESTORE = 9
Const SW_SHOW = 5
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOWNORMAL = 1

Placer så det fulde filnavn & sti på din Access database (f.eks. ToOpen = \"C:\\mydb.mdb\"). Så åbner flg. databasen i access:

res = ShellExecute(Me.hwnd, \"open\", ToOpen, \"\", \"\", SW_SHOW)

Hej driss

Jeg har arbejdet lidt med dit svar, men uden held.

Mit script ser sådan ud:


Public Sub komprimerDB()

Dim res as long
res = ShellExecute(Me.Hwnd, \"open\", c:\\test\\test.mdb,\"\",\"\",5)

Ens Sub

I min version forstår VB ikke \"hwnd\". (Jeg bruger VBA altså en udgave for Application, som ikke nødvendigvis har alle funtioner)

Kommandoen shellexecute er den heller ikke så glad for, hvorimod den selv foreslår:

\"shell(PathName, [WindowStyle As VbAppWinStyle =
vbMinimixedFocus]) As Double\"

Kan du evt hjælpe mig til at få de 2 ting sat sammen??

VH
123

Spørgsmål lukkes hermed