OUVRIR ACCESS DEPUIS UN COMBOBOX (OÙ AUTRES)

Option Explicit
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

Sub AppelerAccess()
Dim FileName As String
FileName = "C:\Program Files\Microsoft Visual Studio\vb98\" + Combo1.Text
Call ShellExecute(0&, vbNullString, FileName, _
vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Combo1_Click()
Call AppelerAccess
End Sub

Private Sub Form_Load()
Combo1.AddItem "Biblio.mdb"
Combo1.AddItem "Nwind.mdb"
End Sub

18 mai 2005 23:48:39 :

Un faute d'orthographe assez flagrante

18 mai 2005 23:57:53 :

Une procédure manquante.

• UTILISATION D'UN FICHIER À ACCÈS DIRECT, COMME BASE DE DONNÉES.
• MAJUSCULES / MINSUSCULES
• JEU, LES ALLUMETTES
• UN PETIT INSTALLATEUR DE FICHIER (COPIEUR)
• RÉCUPÉRER DES DONNÉES ACCESS DANS EXCEL

• LIRE SOURCE HTML SUR WEBBROWSER SANS PASSSER PAR NAVIGATE
• OUVERTURE D'UNE TABLE VOLUMINEUSE EN DOTNET
• LISTER LES NOMS DES INSTANCES SQL SERVER.
• AGENDA MEDICAL
• OPEN ACCESS MDB