Ouvrir access depuis un combobox (où autres)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 982 fois - Téléchargée 30 fois

Contenu du snippet

Ce code permet d'ouvrir Access , de visionner et modifier la Base de données.

Source / Exemple :


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

Conclusion :


Dans mon exemple j'utilise un Combobox, mais cela pourrait être un autre contrôle.Il vous suffit de changer le chemin d'accès en fonction de votrre répertoire.

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.