Ouvrir une base de données à l"aide de l'instruction "SendKeys" 

wpe2.gif (1107 octets)exemple.mdb

Function OuvrirDb(NomDb As String)
'But : Ouvrir une autre base de données à partir de la base
' de données courante
'Nomdb : Nom et chemin d'accès correct de la base de
' données à ouvrir.
If LangueAccess() = "F" Then
SendKeys "%FF%FO" & NomDb & "~"
Else
SendKeys "%FC%FO" & NomDb & "~"
End If
End Function