Support de cours VBA --------------------------------------------------------------------------------------------------------------

VISUAL BASIC
Support de cours VBA --------------------------------------------------------------------------------------------------------------

VISUAL BASIC
Visual Basic est dérivé du langage Basic. Cependant Visual Basic utilise un modèle de programmation
évènementielle. Dans une application évènementielle, l’exécution ne suit pas un ordre prédéfini.
Différentes section de code sont exécutées en réponse à des évènements. Les évènements peuvent être
déclenchés par les actions des utilisateurs, par des messages en provenance du système ou d’autres
applications. L’ordre des évènements détermine l’ordre dans lequel le code s’exécute. Par conséquent, le
parcours suivi par le programme dans le code de l’application diffère à chaque exécution. Un élément
essentiel de la programmation évènementielle est l’écriture de code capable de répondre aux différents
évènements possible dans une application.

1 – Les structures de contrôle :

1.1 Les structures de décision : les structures de décision apportent de la logique à vos programmes.
- La structure de décision IF…. THEN : Cette structure de décision, permet d’évaluer une
condition et d’entreprendre une action en fonction du résultat. Sous sa forme la plus
simple une structure de décision se présente ainsi.
IF condition THEN
Action
End IF
Visual Basic supporte également une structure de décision qui permet d’inclure plusieurs
expressions conditionnelles. Ce bloc d’instruction qui peut occuper plusieurs lignes
contient des mots clés importants :
IF categories = « A » THEN
Instruction 1
ELSE
Instruction 2
END IF
- La structure de décision SELECT CASE : Elle met en relation les décisions et les variables.
SELECT CASE variable
Case 1
Instruction 1
Case 2
Instruction 2
END SELECT

L’exemple suivant montre comment une structure SELECT CASE peut servir à afficher le
message approprié en fonction de l’âge d’une personne. Si la variable âge correspond à
l’une des valeurs CASE, le message adapté à l’âge s’affiche dans une zone de texte.

SELECT case age

Case 14
Msgbox («vous pouvez conduire un cyclomoteur »)
Case 15
Msgbox («vous pouvez conduire une voiture »)
END SELECT
1.2 Les boucles : Une boucle permet d’évaluer une série d’instruction un certains nombre de fois bien
déterminé
Support de cours VBA --------------------------------------------------------------------------------------------------------------

- La boucle FOR…. NEXT : Cette boucle permet d’exécuter à plusieurs reprises un groupe
d’instruction. Dans une procédure évènementielle, elle remplace une longue suite
d’instructions similaires. Visual Basic vous permet de définir une seule fois un ensemble
d’instruction et de demander qu’il soit exécuté autant de fois que vous le souhaitez.

FOR variable = début TO fin

Instruction
NEXT variable

Dans une boucle FOR NEXT début et fin déterminent la durée d’exécution de la boucle. A
titre d’exemple la boucle FOR NEXT ci-dessous émet quatre BIP rapide via le haut-parleur
de l’ordinateur.

FOR I = 1 TO 4
BEEP
NEXT I

La variable I utilisée dans la boucle est une simple lettre qui par convention représente la
première valeur entière du compteur dans une boucle FOR NEXT. A chaque exécution de la
boucle ce compteur est incrémenté de 1. La valeur de début. Au dernier passage elle
contient la valeur 4 la valeur de fin.

L’instruction EXIT … FOR : l’instruction EXIT FOR vous permet de quitter une boucle FOR
NEXT avant la fin de son exécution. C’est un moyen de répondre à un évènement spécifique
qui survient au cours de la réalisation de la boucle.

FOR I = 1 TO 10
Nom = Inputbox (« Taper votre Nom ou taper Terminer pour quitter »)
If Nom = « Terminer »
EXIT FOR
NEXT I

L’instruction EXIT FOR demande à l’utilisateur de saisir dix nom et quitte la boucle. Dès que
vous saisissez « Terminer » ou si les dix noms ont été saisie. L’instruction EXIT FOR est
également utilisée avec l’instruction IF ELSE. Elles vous permettent par exemple
d’interrompre une boucle lorsqu’une valeur limite prédéfinie est atteint.

- La Boucle DO : Elle exécute le code jusqu’ à la réalisation d’une condition. La boucle DO

peut parfois remplacer la boucle FOR NEXT. Elle a la particularité d’exécuter un groupe
d’instruction jusqu’à ce qu’une condition définie sur TRUE dans la boucle soit remplie. Les
boucles DO sont particulièrement utiles comme lorsque vous demandez à l’utilisateur de
saisir des noms dans une base de données jusqu’à ce qu’ils saisissent le mot « terminer »

DO WHILE condition

Instruction

LOOP

Il est essentiel de définir votre condition de test de manière à ce que la boucle comporte un
dispositif de sortie. Si le test de la boucle n’aboutit jamais à la valeur FALSE elle sera
exécutée indéfiniment, et vous perdrez le contrôle de votre programme.

DO
Support de cours VBA --------------------------------------------------------------------------------------------------------------

Nombre = Input (« taper un nombre a élever au carré. Taper -1 pour quitter »)

Nombre = Nombre*Nombre

LOPP WHILE nombre sup 0

Dans cette boucle l’utilisateur saisit un nombre après l’autre que le programme élève au
carré puis affiche dans la feuille. Malheureusement l’utilisateur ne peut pas quitter le
programme car la condition requise pour quitter : une valeur négative. La variable nombre
n’est jamais réalisé. En effet lorsque l’utilisateur entre -1 le programme l’élève au carré et
la variable au carré et la variable nombre reçoit alors la valeur 1. La solution consiste à fixer
une autre condition de sortie.

2. Les opérateurs utilisés dans VISUAL BASIC

2.1. Les opérateurs de comparaison

Operateur de comparaison Significations

= Egal

<> différent

> Supérieur

< Inférieur

>= Supérieur ou égal

<= Inférieur ou égal

2.2. Les opérateurs logiques

Operateurs Logiques Significations

AND Si les deux expressions conditionnelles renvoient la

valeur TRUE alors le résultat est TRUE

OR Si l’une ou l’autre des expressions conditionnelles

renvoie la valeur TRUE alors le résultat est TRUE

XOR Si une seule expression conditionnelle renvoie la

valeur TRUE, alors le résultat est TRUE. Si les deux
expressions renvoient la valeur TRUE ou la valeur
FALSE alors le résultat est FALSE.

3. Les types d’erreurs : Dans un programme Visual Basic on rencontre généralement trois types d’erreurs :
les erreurs de syntaxe, les erreurs d’exécutions et les erreurs logiques.
Support de cours VBA --------------------------------------------------------------------------------------------------------------

- Une erreur de syntaxe : C’est une erreur de programmation comme un mot clé mal
orthographié qui ne respecte pas les règles définit par Visual Basic. Visual Basic se charge
de vous montrer certaines erreurs de syntaxe en cours de saisie. Vous ne pourrez exécuter
aucun programme tant que vous n’aurez pas corrigé ces erreurs de syntaxes.

- Une erreur d’exécution : Elle entraine l’interruption inattendue d’un programme en cours
d’exécution. Ces erreurs se produisent lorsqu’un évènement extérieur ou une erreur de
syntaxe non corrigé oblige le programme à s’interrompre en cours d’exécution, un nom de
fichier mal orthographié dans une fonction par exemple.

- Une erreur logique : C’est une erreur d’origine humaine. Il s’agit d’une erreur de
programmation qui fait que le code va générer des résultats faux. La majeure partie des
efforts de débogage sont centrés sur la détection des erreurs logiques commises par le
programmeur.

4. Les variables

Une variable et un emplacement temporaire de stockage pour les données d’un programme. Votre code
peut contenir une ou plusieurs variables contenant des mots clés, des nombre, des dates ou des
propriétés. Les variables vous permettent d’attribuer un nom concis et mnémotechnique à chaque
ensemble de données avec lequel vous avez prévu de travailler. Les variables peuvent contenir des
informations saisies par l’utilisateur lorsqu’il exécute le programme, des résultats de calcul ou des jeux de
données que vous souhaitez afficher sur votre feuille.

4.1. Déclaration des variables : Pour déclarer explicitement une variable avant de l’utiliser en principe en
début de procédure d’évènements, il suffit de taper le nom de cette variable à la suite de l’instruction DIM
(pour dimension). Cette déclaration réserve de l’espace mémoire à la variable lors de l’exécution du
programme et permet à Visual Basic de savoir quel type de données il doit s’attendre à rencontrer lors de
l’exécution du programme. A titre d’exemple l’instruction suivante crée l’espace pour une variable
nommée Nom dans un programme.

Dim Nom as String

Dans cette ligne de code, la variable Nom peut être suivie de la valeur qui lui est affecté. Visual Basic vous
permet d’identifier le type de données d’avance de manier à faciliter le contrôle de la quantité de mémoire
qu’utilise votre programme. Par exemple, si la variable est destinée à détenir un nombre entier (sans
virgule) vous allez le déclarer comme tel pour économiser de l’espace mémoire.

Sachez que par défaut, Visual basic réserve de l’espace nécessaire au fonctionnement d’un type de variable
nommé variant qui peut déterminer les données de toute taille au format. Cette variable générique
extrêmement simple peut répondre à tous vos besoins de programmation.

4.2. Convention de désignation des variables

Il peut se révéler délicat de designer des variables car il faut employer des noms à la fois concis, intuitif.
Pour éviter toute confusion, respectez les conventions suivantes lorsque vous nommez des variables :

- Faites commencer les noms de variable par une lettre car il s’agit d’une exigence de Visual
Basic. La longueur d’une variable est limitée à 256 caractères et les virgules sont interdites.
Support de cours VBA --------------------------------------------------------------------------------------------------------------

- Rendez les noms de variable descriptif en combinant un ou plusieurs mots. Lorsque cela
parait logique par exemple le nom de variable tva_vente est plus explicite que taux ou taxe

- Combinez capitale, bas de casse et si vous le souhaitez nombre. Par convention la première
lettre de chaque mot est en capitale comme par exemple DateNaissance.

- N’utilise pas les mots clés, les objets ou des propriétés de Visual Basic comme variable.

4.3. Les type de variables

Type de données Plage

Nombre entier (Integer) 32 768 à + 32768

Monétaire (Currency) -922337203685477.508 à +922337203685477.508

Chaine de caractères (String) De 0 à 65 535 caractères

Valeur Booléenne (Boolean) TRUE ou FALSE

Date Du 01 janvier 1000 au 31 décembre 9999

Variant Toute plage de type de données

5. Les fonctions mathématiques

ains cas, vos programmes devront accueillir divers outils de gestion des nombre, conversion d’une va en un
type par exemple ou calcul d’une expression mathématique complexe. Les fonctions suivantes vous

Fonction Action accomplie

ABS (n) Retourne la valeur absolue de n

COS(n) Retourne le cosinus de l’angle n. ce dernier est

exprimé en radian.

SIN(n) Retourne le sinus de l’angle n. ce dernier est

exprimé en radian.

SQR(n) Retourne la racine carrée de n

STR(n) Convertit une valeur numérique en chaine de

caractères.

Val(n) Convertit une chaine en valeur numérique

aideront à travailler avec les nombre dans vos formules. A l’instar des autres fonctions, les fonctions
mathématiques doivent être utilisées dans une instruction pour retourner une valeur au programme. Dans
le tableau suivant, n représente une variable ou une expression soumis à la fonction pour évaluation.
Support de cours VBA --------------------------------------------------------------------------------------------------------------

6. Les opérations sur les chaines de caractères

Mot clé Description Exemple

UCASE Fait passer les lettres de la chaine en capitale UCASE (« kim ») = KIM

LCASE Fait passer les lettres de la chaine en bas de casse LCASE(« KIM ») = kim

LEN Détermine la longueur en caractère d’une chaine LEN(« jeudi ») = 5

de caractère

RIGHT Retourne un nombre de caractère donné en RIGHT(« jeudi »,2) = di

partant de la droite de la chaine

LEFT Retourne un nombre de caractère donné en LEFT(« jeudi »,2) = je

partant de la gauche de la chaine

MID Retourne un nombre de caractère donné en cours MID(« jeudi »,2,2) = eu

de chaine à partir d’un point de départ

STRING Répète une chaine de caractères STRNG(8, « * ») = ********

CHR Retourne le caractère Correspondant au code ASCII CHR(65) = A

7. Les évènements

Propriétés Action

Sur Ouverture A l’ouverture du formulaire

Sur Fermeture A la fermeture du formulaire
Sur activation Lorsqu’Access accède à un enregistrement du formulaire
Sur Insertion Lorsque vous précisez la valeur d’un champ d’un nouvel enregistrement
Sur Suppression Lorsque vous tentez de supprimer un enregistrement
Avant MAJ Apres avoir quitté un enregistrement modifié et avant l’enreg. des
modifications.
Apres avoir quitté un enregistrement modifié et après l’enreg. des
Apres MAJ
modifications.

Lorsqu’un formulaire ou un état devient la fenêtre active

Sur Activé

Sur Désactivé Lorsqu’un formulaire ou un état est désactivé

Sur Clic Lorsque vous cliquez sur le contrôle
Support de cours VBA --------------------------------------------------------------------------------------------------------------

Sur double Clic Lorsque vous double cliquez sur un contrôle

Sur Entrée Avant d’accéder à un contrôle
Sur Sortie Lorsque vous quitter un contrôle
Sur Réception Focus Quand un contrôle est activé
Sur Perte Focus Quand un contrôle est désactivé
Souris appuyé Quand l’utilisateur appui le bouton de la souris
Souris relâché Quand l’utilisateur relâche le bouton de la souris
Support de cours VBA --------------------------------------------------------------------------------------------------------------

CAS PRATIQUE
GESTION DU PERONNEL
Private Sub Exit
Matricule Matricule If age inf 20 then
Enfant.visible = true
Nom Nom
Else
Prénom Prénom Enfant.visible = false
End if
Age Age End Sub
Enfant Enfant

Catégorie Catégorie
Private Sub Enter
Salaire Net Salaire net If categories = “A’’ then
INPS = 2 500
INPS INPS Else
If categories = “B’’ then
IGR IGR
INPS = 3 000
Salaire Brut Salaire Brut Else
INPS = 4 000
End if
End Sub

Private Sub Enter

Select case categories
Case ‘’A’’
INPS = SalaireNet * 10/100
Case ‘’B’’
INPS = SalaireNet * 2/100
Case ‘’C’’
INPS = SalaireNet * 3/100
End Select
End Sub

La méthode RUN : La méthode RUN vous permet d’exécuter une procédure Function ou Sub par Microsoft
Access ou définie par l’utilisateur.

Syntaxe : Application.RUN procedure (Arg1, Arg2, Arg3……. Argn)

La méthode RUN possède les arguments suivants :

Support de cours VBA --------------------------------------------------------------------------------------------------------------

Argument Description

Application Objet de l’application

Procédures Nom de la procédure Function ou Sub à exécuter. Si vous

appelez d’une autre base de données, utilisez le nom du
projet et de la procédure en les séparant par un point
comme suit : ‘’NomProjet.NomProcédures ‘’

Arg1, Arg2, Arg3 Facultatif, les arguments de la procédure Function ou Sub

spécifié. Vous pouvez fournir un maximum de 30 arguments

A Indépendant Faites un double clic puis

donnez un nom au
B Indépendant champ indépendant

D Indépendant

Private Sub
OK Run « Delta », a, b, c
End Sub

Sub Delta (a,b,c)

Delta = b*b – 4*a*c

If delta inf 0 then
X1 = (-b – SQR(delta))/2*a
X2 = (-b + SQR(delta))/2*a

Else
If delta = 0 then
X1 = X2 = -b/2*a
End if
End if
Msgbox “delta =” & delta & vbcrlf + “X1 est = “& X1 & vbcrlf + “X2 est = “ & X2

End sub
 Support de cours VBA --------------------------------------------------------------------------------------------------------------

Private Sub Commande4_Click()

Dim Enreg As Recordset
Dim test As Integer
Test = 0
Set Enreg = CurrentDb.OpenRecordset("utilisateurReq", dbOpenSnapshot)
Do While Enreg.EOF = False
If Enreg.Fields!NomUtil = NomUtil And Enreg.Fields!passe = passe Then
DoCmd.OpenForm "MenuAgent"
Test = 1
Else
If Enreg.Fields!NomUtil = NomUtil And Enreg.Fields!passe = passe Then
DoCmd.OpenForm "MenuGestionnaire"
Test = 1
End If
End If
Enreg.MoveNext
Loop
If Test = 0 Then
MsgBox ("Mot de passe incorrecte")
End If
Enreg.Close
End Sub
Support de cours VBA --------------------------------------------------------------------------------------------------------------

La Fonction INPUTBOX

Affiche une invite dans une boite de dialogue attend que l’utilisateur tape du texte ou clique sur un bouton
puis renvoie le contenu de la zone de texte sous la forme d’une valeur de type string

Syntaxe : InputBox (Prompt, Tite, Default, Xpos, Ypos)

La syntaxe de la fonction InputBox comprend les arguments suivants :

Elément Description

PROMPT Expression de chaine affichée comme message dans la boite de

dialogue. La longueur maximale de l’argument prompt est
d’environ 1024 caractères, selon la largeur des caractères utilisés

TITLE Facultatif. Expression de chaine affichée dans la barre de titre de la

boite de dialogue. Si l’argument TITLE est omis, le nom de
l’application est placé dans la barre de titre.

DEFAULT Facultatif. Expression de chaine affichée par défaut dans la zone de

texte. En l’absence de toute autre valeur. Si l’argument default est
omis, la zone de texte qui s’affiche est vide.

XPOS Facultatif. Expression numérique indiquant la distance horizontale

qui sépare le bord gauche de la bordure gauche de la boite de
dialogue. Si l’argument XPOS est mis, la boite de dialogue est
centrée horizontalement.

YPOS Facultatif. Expression numérique indiquant la distance verticale qui

sépare le haut de l’écran de la bordure supérieure de la boite de
dialogue. Si l’argument YPOS est omis la boite de dialogue est
positionnées verticalement a environ un tiers de l’écran en partant
du haut.
Support de cours VBA --------------------------------------------------------------------------------------------------------------

La Fonction Msgbox

Affiche un message dans une boite de dialogue et attend que l’utilisateur clique sur le bouton puis renvoie
une valeur de type integer qui indique le bouton choisi par l’utilisateur.

Syntaxe : Msgbox (Prompt, Buttons, Title)

La syntaxe de la fonction MsgboxBox comprend les arguments suivants :

Elément Description

PROMPT Expression de chaine affichée comme message dans la boite de

dialogue. La longueur maximale de l’argument prompt est
d’environ 1024 caractères, selon la largeur des caractères utilisés

TITLE Facultatif. Expression de chaine affichée dans la barre de titre de la

boite de dialogue. Si l’argument TITLE est omis, le nom de
l’application est placé dans la barre de titre.

BUTTONS Facultatif, expression numérique qui représente la somme des

valeurs indiquant le nombre et le type de bouton affichés. Le style
d’icone à utiliser, l’identité du bouton par défaut ainsi que la
modalité du message.

Quelques types de bouton et leur signification

- VBOkOnly : Affiche le bouton OK uniquement

- VBOkCancel : Affiche le bouton OK et Annuler
- VBYesNo : Affiche les boutons Oui et Non
- VBYesNoCancel : Affiche le bouton Oui – Non et Annuler

Les types d’icones sont

- VBExclamation : Affice l’icone de message d’avertissement
- VBInformation : Affiche l’icone de message d’information
- VBCritical : Affiche l’icone message critique

Exemple

Msgbox « Attention EREEUR » ---------- Affiche le message : ATTENTION ERREUR

If Msgbox (« Attention ERREUR », VBYesNon + VBExclamation, « Mise à jour ») = VbYes

Instruction
Else
Instruction
End IF

MISE A JOUR

ATTENTION ERREUR

OK Annuler
Support de cours VBA --------------------------------------------------------------------------------------------------------------

Interception des Messages d’erreur d’un programme

Private Sub Interception_Erreur()

Dim X as Double
Dim Y as Double
Dim Resultat as Double
Dim Z as Double
Dim N as Double
ON ERROR GOTO ERREUR
N= 0
Do
X = InputBox(« Taper la valeur de X »)
Y = InputBox (« Taper la valeur de Y »)
Resultat = X/Y
Msbox X & ‘’Divisé par’’& Y & ‘’est :’’ & resultat
Z = InputBox « taper la valeur de Z »
Resultat = SQR(Z)
Msgbox « La racine carrée de » & Z & « est : » & resultat
N=N+1
Loop Until N = 2
ERREUR:
Select case ERR.Number
Case 11
Msgbox “Division par zero impossible”
Case 5
Msgbox « On ne peut pas extraire la racine carrée d’un nombre négatif »
End Select
End Sub

Les fonctions dans un programme VBA

Public Function Calcul_age (AnNaiss as integer) as integer

Calcul_age = year(date) – An Naiss
End Function

AnNaiss

Age =calcul_age(AnNaiss)
Support de cours VBA --------------------------------------------------------------------------------------------------------------

La procedure de recherché

Bouton de recherché

Private Sub Commande_20_ click

Dim Texte_recherche as string
If isnull(recherché) = true then
BEEP
Msbox “veuiller saisir un terme de recherché”
Else
Texte_recherche = Recherche
Numero.SetFocus
Docmd.FindRecord findWhat :=Texte_recherche, Match :=AcAnywhere, MatchCase:=False,
Serach:=Acdown, SearchAsFormatted:= False, OnlyCurrentFied:=Acurent, FindFirst:=True
End If

If numero different Texte_recherche then

Msgbox”Ce numero n’existe pas”
End if

End Sub

Bouton Trouver Suivant

Private Sub Commande23_Click

Numero.SetFocus
Docmd.FindNext
End Sub
Support de cours VBA --------------------------------------------------------------------------------------------------------------

ACCES AUX DONNEES

Les objets RecordSet servent à accéder aux données de votre base de données. Par exemple aux tables. Les
enregistrements d’un RecordSet (Jeu_enreg) peuvent être issus d’une table ou d’une requête. Les jeux
d’enregistrements possèdent un pointeur d’enregistrement semblable à celui d’un formulaire. Ce pointeur
désigne l’enregistrement courant. Ce pointeur peut être déplacé sur d’autres enregistrements à l’aide des
méthodes spéciales ce qui permet d’accéder a tous les enregistrements.

Access distingue 3 types de RecordSet

Les Tables : Un RecordSet de type table est une image directe d’une table, le jeu d’enregistrement contient
tous les enregistrements qui sont contenus dans la table, l’ordre de enregistrements correspond a celui de
la table. La recherche des enregistrements n’est malheureusement possible que sur les champs qui
comportent un index. Les modifications des enregistrements sont immédiatement répercutées dans la
table.

Les Dynaset : Le type Dynaset (feulle de réponse dynamique) contient le résultat de la requête. Les
données peuvent être issues de plusieurs tables ou requêtes. Le Type Dynaset contrairement au Recordset
table permet la recherche d’enregistrement sur tous les champs. Si vous modifiez des enregistrements dans
un Dynaset ces modifications peuvent être prises en compte par les tables sous jacentes.

Le SnapShot : Le type Snapshot (instantané) représente l’état instantané d’un jeu d’enregistrement lors de
la création d’un jeu d’enregistrement tous les enregistrements sont copiés dans le jeu d’enregistrement
Snapshot a partir de la table concernant les modifications ne sont pas répercutées vers les tables d’origine.
Un jeu d’enregistrement Snapshot est ainsi totalement indépendante des tables ou les données sont
extraites. Ce type de Recordset est bien adapté pour exploiter certaine situation.

Pour créer un jeu d’enregistrement utiliser la méthode OpenRecordSet

Exemple de modification d’un enregistrement

Private Sub Modification()

Dim jeu_enreg as RecordSet
Set Jeu_enreg = CurrentDB.OpenRecordSet (« Fournisseur », DBOpentable)

Do While Jeu_enreg.EOF = False then

If Isnull(Jeu_Enreg.Fields!fax) then
Jeu_Enreg.Edit
Jeu_Enreg.Fields!Fax = “Inconnu”
Jeu_Enreg.Edit
End If
Jeu_Enreg.MoveNext
Loop
Jeu_Enreg.Close

End Sub
 Support de cours VBA --------------------------------------------------------------------------------------------------------------

Exemple d’ajout d’un enregistrement

Private Sub Ajout

Dim jeu_enreg as RecordSet
Jeu_Enreg = CurrentDB.OpenRecordSet (« Fournisseur », DBOpentable)
Jeu_Enreg.Addnew
Jeu_enregFields !Titre = « Societe »
Jeu_enregFields !Nom = « Test SA »
Jeu_enreg.Update
Jeu_enreg.close
End Sub

Exemple d’une connexion avec mot de passe

Private Sub Commande4_Click()

Dim Enreg As Recordset
Dim test As Integer
Test = 0
Set Enreg = CurrentDb.OpenRecordset("utilisateurReq", dbOpenSnapshot)
Do While Enreg.EOF = False
If Enreg.Fields!NomUtil = NomUtil And Enreg.Fields!passe = passe Then
DoCmd.OpenForm "MenuAgent"
Test = 1
Else
If Enreg.Fields!NomUtil = NomUtil And Enreg.Fields!passe = passe Then
DoCmd.OpenForm "MenuGestionnaire"
Test = 1
End If
End If
Enreg.MoveNext
Loop
If Test = 0 Then
MsgBox ("Mot de passe incorrecte")
End If
Enreg.Close
End Sub

Commande pour masquer le ruban

Docmd.ShowToolbar “RIBBON”, AcToolBarNo

Support de cours VBA --------------------------------------------------------------------------------------------------------------

Commande de suppression d’un enregistrement

Private Sub Suppression ()

ON ERROR GOTO ERREUR
Dim Reponse as string
Dim prompt as string
Dim Titre as string
Prompt = “Souhaitez-vous réellement supprimer cet enegistrement”
Titre = Suppression
Reponse = Msgbox (prompt, VBOKCancel, Titre)
If reponse = VBOK then
Docmd.RunCommand AcCmdDeleteRecord
Exit Sub
ERREUR :
Msgbox “Enregistrement non supprimer”
End Sub