Private Sub Callproc_Click() 
 ' This code demonstrates calling an Oracle Packaged Procedure and Function 
 ' using the ODBC {Call...} Syntax From Visual Basic using the Microsoft 
 ' Activex Data Objects (ADO) 2.1 (or above) interface via the Oracle ODBC Driver. 
 ' The PL/SQL package called is 
 ' 
 ' create or replace package odbpack as 
 ' 
 ' Procedure Proc(param1 in number,param2 in out number, 
 '   param3 out number); 
 ' 
 ' Function Func(param1 in varchar2, param2 in out varchar2, 
 '   param3 out varchar2) return number; 
 ' end odbpack; 
 ' / 
 ' 
 ' create or replace package body odbpack as 
 ' Procedure Proc(param1 in number,param2 in out number, 
 '   param3 out number) is 
 ' begin 
 '   param2 := param1+param2; 
 '   param3 := param1; 
 ' end; 
 ' 
 ' Function func(param1 in varchar2, param2 in out varchar2, 
 '   param3 out varchar2) return number is 
 ' begin 
 '   param2 := param1||param2; 
 '   param3 := param1; 
 '   return length(param2); 
 ' end; 
 ' end odbpack; 
 ' / 
 ' 
 ' 
 
 'Dim er As adoError 
 'On Error GoTo CnEh 

   Dim cnn1 As ADODB.Connection 
   Dim cmdExeproc As ADODB.Command 
 ' Open connection. 
   Set cnn1 = New ADODB.Connection 
 ' Modify the following line to reflect a DSN within your environment 
   strCnn = "DSN=W805; UID=LeLogin; PWD=LeMotDePasse;" 
   cnn1.Open strCnn 

   Set cmdExeproc = New ADODB.Command 

   cmdExeproc.ActiveConnection = cnn1 
   cmdExeproc.CommandText = "{call odbpack.proc(?,?,?)}" 

 '  In the next set of code, we have to manually set 
 '  the parameter types since ADO and ODBC cannot derive this 
 '  information when calling packaged procedures. 
     
   cmdExeproc.Parameters(0).Value = 1 
   cmdExeproc.Parameters(1).Direction = adParamInputOutput 
   cmdExeproc.Parameters(1).Value = 2 
   cmdExeproc.Parameters(2).Direction = adParamOutput 
    
   cmdExeproc.Execute 
   MsgBox ("Return Values from Proc are : " & _
            cmdExeproc.Parameters(1).Value & _
            " and " & _
            cmdExeproc.Parameters(2).Value) 
            
   Set cmdExeproc = New ADODB.Command 

   cmdExeproc.ActiveConnection = cnn1 
   cmdExeproc.CommandText = "{? = call odbpack.func(?,?,?)}" 
    
 '  In the next set of code, we have to manually set 
 '  the parameter types since ADO and ODBC cannot derive this 
 '  information when calling packaged procedures. 
 
   cmdExeproc.Parameters(0).Direction = adParamReturnValue 
   cmdExeproc.Parameters(1).Value = "Odd" 
   cmdExeproc.Parameters(2).Direction = adParamInputOutput 
   cmdExeproc.Parameters(2).Value = "Fred" 
   cmdExeproc.Parameters(3).Direction = adParamOutput 
   cmdExeproc.Execute 
   MsgBox ("Return Values from Func are : " & _
            cmdExeproc.Parameters(0).Value & _
            " and " & _
            cmdExeproc.Parameters(2).Value & _
            " and " & _
            cmdExeproc.Parameters(3).Value) 
            
 '  Close Connection 
   cnn1.Close 
End Sub

Sub cmdCompacter_Click ()
    sNomBase= "C:\Mes documents\Base.MDB" 
    sNomBaseTmp= "C:\Mes documents\BaseTmp.MDB" 
    DBEngine.CompactDatabase sNomBase, sNomBaseTmp '1. Compactage dans une nouvelle base  
    Kill sNomBase '2. Suppression de la base originale  
    Name sNomBaseTmp As sNomBase '3. Renommer la base compactée avec le nom de la base originale  
End Sub 

TRANSFORM First(IIf([ledebut]<[dd] And [lafin]>[df] Or [Ledebut]>=[DD] 
And [LeDebut]<[DF] Or [LaFin]>[DD] And [LaFin]<=[DF],[LeSujet],"")) AS Expr2
SELECT Table2.DD, Table2.DF
FROM Table2, Table1
GROUP BY Table2.DD, Table2.DF
PIVOT Choose(Weekday([LaDate]),"dimanche","lundi","mardi","mercredi","jeudi","vendredi","samedi") 
In ("Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche");

PIVOT Day([LaDate]) In(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)

Function GetLinkedDBName(TableName As String)
' *** ex: GetLinkedDBName ("ENFANT")
' *** \\serveur\base de données\Base_de_donnees.mdb
'
Dim db As Database, Ret
On Error GoTo DBNameErr
Set db = CurrentDb()
Ret = db.TableDefs(TableName).Connect
GetLinkedDBName = Right(Ret, Len(Ret) - (InStr(1, Ret, "DATABASE=") + 8))
Exit Function
DBNameErr:
GetLinkedDBName = 0
End Function

Function DriveLinkedTable() As String
 
' Retrouve le chemin complet de la base attachée
' ex: \\serveur\base de données\
Dim X As String, I As Integer
Dim Path As String
 
X$ = GetLinkedDBName("ENFANT") ' Chemin complet
' Voir ci-dessus la fonction GetLinkedDbName()
For I = Len(X$) To 1 Step -1
If Mid$(X$, I, 1) = "\" Then Exit For
Next
Path$ = Left$(X$, I - 1) & "\"
DriveLinkedTable = Path$
 
End Function

 "Chemin\vers\MSAccess.exe" "Chemin\vers\votre\fichier.mdb"  /Wrkgrp "Chemin\vers\votre\fichier.mdw" 

/user NomUtilisateur /pwd LeMotDePasse 

"C:\Program Files\Office2000\Office\MSACCESS.EXE" "C:\Mes documents\MaBase.mdb" /repair

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\AutoCorrect]
"ACOptions"=dword:00000000
"CorrectTwoInitialCapitals"=dword:00000000
"CapitalizeSentence"=dword:00000000
"CapitalizeNamesOfDays"=dword:00000000
"ToggleCapsLock"=dword:00000000
"ReplaceText"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\AutoCorrect]
"ACOptions"=dword:00000001
"CorrectTwoInitialCapitals"=dword:00000001
"CapitalizeSentence"=dword:00000001
"CapitalizeNamesOfDays"=dword:00000001
"ToggleCapsLock"=dword:00000001
"ReplaceText"=dword:00000001

Public Function GetMethod(ByVal strRefName As String, ByVal strObject As String, _
                      Optional ByVal item As String = "*") As Collection
    
    Dim objTLI As TypeLibInfo
    Dim objInterFace As InterfaceInfo
    Dim objMember As MemberInfo
    
    Dim i As Integer
    Dim strTypeName As String, strLastAdded As String
    
    Set objTLI = New TypeLibInfo
 
    objTLI.ContainingFile = Application.References(strRefName).FullPath
    
    For i = 1 To objTLI.TypeInfos.Count
        If (objTLI.TypeInfos(i).Name = strObject) Then
            Set objInterFace = objTLI.TypeInfos(i).Interfaces(1)
            Exit For
        End If
    Next i
    
    If Not (objInterFace Is Nothing) Then
        
        For Each objMember In objInterFace.Members
            If Not (Left$(objMember.Name, 1) = "_") And _
               Not (objMember.Name = strLastFound) And _
                (objMember.InvokeKind = INVOKE_FUNC Or _
                 objMember.InvokeKind = INVOKE_EVENTFUNC) And _
                 (objMember.Name Like item) Then
                               
                Debug.Print objMember.Name
                strLastFound = objMember.Name
            End If
        Next objMember
    End If
 
End Function

'Exemple d'appel pour l'objet Formulaire
    GetMethod "Access", "Form"

'Exemple d'appel pour l'objet Formulaire
    GetMethod "Access", "Form", "a*"