Dropdownbox vullen

[piepoeh]

Ik ben een database aan het opzetten met daarin een form met een dropdownbox van waaruit ik verschillende applicaties wil laten opstarten. Dit wil echter nog niet lukken. Ik gebruik onderstaande code. Iemand een idee wat daar fout aan is en hoe het wel zou moeten?


Private Sub Combo32_Click()
Dim stAppName As String
If Combo32 = "Excel"
Then stAppName = "C:\Program Files\Microsoft Office\excel.exe
Call Shell(stAppName, 1)
End If

 

[Hooija]

Dim stAppName As String
If Me.combo32 = "Excel" Then
stAppName = "C:\Program Files\Microsoft office\excel.exe"
Call Shell(stAppName, 1)
End If

 

[piepoeh]

Dit werkt. Bedankt.

 

[Bartuls]

Ook hier is het beter om de FollowHyperlink methode te gebruiken in plaats van het shell commando.
Zie http://www.helpmij.nl/forum/showthread.php?s=&threadid=120998