Start af program og lås af shifttasten

kan du ikke i bruger shell "c:\data.mdb" ?

du skal lave en shell og så er navnet på word winword.exe jeg ved desvære ikke mere så håber en anden hjælper

Sub rasmus()
Dim Fil, ZZ

On Error Resume Next
'FileCopy "c:\dokumenter\Flemming\*.doc", "c:\Flemming\" 'Jokertegn Virker ikke
'FileCopy "c:\dokumenter\Flemming\prøve1.doc", "c:\Flemming\"  'Filnavn i destMappe mangler
  Dir                                                            'Virker ikke
Fil = "c:\dokumenter\Flemming\Prøve1.doc"
'TilFil = "c:\Flemming\pp.doc"

'FileCopy "c:\dokumenter\Flemming\Prøve1.doc", _
'"c:\Flemming\pp.doc"  'virker
'FileCopy FraFil, TilFil
ZZ = "C:\Programmer\Microsoft Office\Office\Winword.exe " & Fil

Dim x

x = Shell(ZZ, vbNormalFocus)
Exit Sub

Err_rasmus:
MsgBox Error$ & " " & Err.Number
End Sub

du kan jo prøve at se om dette kan hjælpe

Jeg vil også anbefale Shell som xzxz... skriver.

MHT at låse Shifttasten:
I formens properties sættes "KeyPreview" til True

I selve formen indsætter du følgende Kode:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If Shift = 1 Or Shift = 3 Or Shift = 5 Or Shift = 7 Then Exit Sub

End Sub

3,5 og 7 er for kombinationer med Ctrl og Alt

/tjacob

Dette vil kun gælde hvis formen har focus! Hvis du har f.eks. Access åbnet, og det har focus, så vil Shift IKKE blive fanget.
Hvis du skal have fanget ALLE tastetryk på Shift, så er det API-kald, og Keyhooks du skal have gang i, og det er meget mere kompliceret.

Access skal startes med VB-kode, hvilket Shell ikke vil godtage.

xzxz - du skriver bruger shell - det er ikke VB vel?

Det er Keyhooks jeg skal bruge da alle shifttastetryk skal fanges. Jeg har prøvet at arbejde med det før - jeg kan bare ikke lige finde koden så hvis nogen har en reference ville det være fint!