Fonctionnalités avancées

Insérer un graphique moderne

1. Ouvrez un formulaire ou un état en mode Création.
2. Création › Insérer un graphique moderne › choisissez le type : histogramme, courbes, secteurs…
3. Tracez le graphique. Dans le volet Paramètres du graphique : Source de données = R_Commandes_Clients.
4. Réglez Axe (Catégorie) = Ville, Valeurs (Axe Y) = MontantHT (Somme), Légende (Série) si besoin.

Tableau croisé dynamique dans Excel

1. Dans Excel : Données › Obtenir des données › À partir d’une base de données › À partir d’une base de données Microsoft Access.
2. Choisissez la base, puis la table ou la requête.
3. Chargez en Rapport de tableau croisé dynamique. Données › Actualiser tout relit la base à tout moment.

Importer un classeur Excel

1. Données externes › Nouvelle source de données › À partir d’un fichier › Excel.
2. Choisissez le fichier et le mode :

   • Importer dans une nouvelle table ;
   • Ajouter une copie à une table existante ;
   • Lier : Access lit le fichier Excel sans copier les données.
3. Choisissez la feuille, cochez Première ligne contient les en-têtes de colonnes.
4. Vérifiez le type de données de chaque champ, choisissez la clé primaire, nommez la table.
5. Cochez Enregistrer les étapes d’importation si l’opération se répète.

Exporter

1. Sélectionnez la table, la requête ou l’état dans le volet de navigation.
2. Données externes › Exporter › Excel, Fichier texte, PDF ou XPS, ou Plus › Word.
3. Pour Excel, cochez Exporter les données avec la mise en forme et la disposition et Ouvrir le fichier de destination.

Options de la base de données active

1. Fichier › Options › Base de données active.
2. Réglez les options utiles :

Ruban, accès rapide, volet de navigation

1. Fichier › Options › Personnaliser le ruban : créez un onglet « Gestion » avec vos commandes favorites.
2. Fichier › Options › Barre d’outils Accès rapide : ajoutez Compacter et réparer, Aperçu avant impression…
3. Volet de navigation : clic droit sur son titre › Options de navigation › créez une catégorie personnalisée avec des groupes « Saisie », « Éditions ».

Un événement est un moment précis de la vie d’un formulaire, d’un état ou d’un contrôle. On y attache une macro incorporée ou une procédure VBA.

Pas à pas

1. Mode Création, sélectionnez l’objet (le formulaire ou un contrôle), F4 › onglet Événement.
2. Cliquez sur le bouton … de l’événement voulu.
3. Choisissez Générateur de macro (macro incorporée) ou Générateur de code (VBA).

Créer une macro

1. Créer › Macro : le Générateur de macros s’ouvre avec le Catalogue d’actions.
2. Ajoutez des actions dans l’ordre, par exemple OuvrirFormulaire (F_Commandes) puis AtteindreEnregistrement (Nouveau).
3. Enregistrez : M_Nouvelle_Commande. Exécutez-la avec le bouton Exécuter (!).

Convertir une macro en VBA

1. Ouvrez la macro en mode Création.
2. Création de macro › Convertir les macros en Visual Basic.
3. Access crée un module avec le code équivalent : une excellente façon d’apprendre VBA.

Ouvrez l’éditeur avec Alt + F11, ou Outils de base de données › Visual Basic.

Une procédure événementielle

Bouton cmdNouveau › événement Sur clic › Générateur de code :

Option Compare Database
Option Explicit

Private Sub cmdNouveau_Click()
    ' Aller sur une nouvelle fiche et placer le curseur dans Nom
    DoCmd.GoToRecord , , acNewRec
    Me.Nom.SetFocus
End Sub

Ouvrir les commandes du client affiché

Private Sub cmdCommandes_Click()
    DoCmd.OpenForm "F_Commandes", , , "[N°Client]=" & Me![N°Client]
End Sub

MsgBox : informer et confirmer

Private Sub cmdSupprimer_Click()
    If MsgBox("Supprimer ce client ?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
End Sub

InputBox : demander une valeur

Private Sub cmdFiltrerVille_Click()
    Dim strVille As String
    strVille = InputBox("Quelle ville ?", "Filtrer les clients")
    If strVille <> "" Then
        Me.Filter = "Ville='" & strVille & "'"
        Me.FilterOn = True
    End If
End Sub

Gérer les erreurs

Private Sub cmdImprimer_Click()
    On Error GoTo Gestion_Erreur
    DoCmd.OpenReport "E_Liste_Clients", acViewPreview
    Exit Sub
Gestion_Erreur:
    MsgBox "Erreur " & Err.Number & " : " & Err.Description, vbCritical
End Sub