Dropdownbox vullen

Status
Niet open voor verdere reacties.

piepoeh

Gebruiker
Lid geworden
30 mrt 2002
Berichten
718
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
 
Dim stAppName As String
If Me.combo32 = "Excel" Then
stAppName = "C:\Program Files\Microsoft office\excel.exe"
Call Shell(stAppName, 1)
End If
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan