En VBA, le mot clé Err désigne :

	Une propriété de l'objet Application
	Un évènement
	Une fonction

Dans l'éditeur VBE, quel raccourci permet d'afficher l'explorateur d'objet ?

	F11
	F2
	F4
	ALT+F2
	ALT+F4

En VBA que renvoie l'appel de CBool(2) ?

	Vrai
	Faux
	Une erreur est levée.

En VBA, le paramètre DataErr de l'évènement OnError d'un formulaire est :

	Un objet correspondant à l'erreur
	Le numéro de l'erreur
	Le descriptif de l'erreur

Soit le code suivant :

Dim disque As String Dim repertoire As String Dim fichier As String Dim extension As String WizHook.SplitPath "d:\test\test.mdb", disque, repertoire, fichier, extension MsgBox repertoire

Que contient la variable repertoire à son affichage ?

	test
	\test
	\test\
	Une chaîne vide

La propriété WizHook de l'objet Application propose une liste de fonctions non documentées parfois utiles. Mais pour qu'elle fonctionne correctement, il faut avant tout appel définir :

	WizHook.Key = 0
	WizHook.Key = 65535
	WizHook.Key = 51488399

Quel est le comportement de la méthode Debug.Assert dans le cadre d'un fichier mde ?

	Une erreur est levée
	L'appel est omis
	Exactement le même que dans un fichier mdb

Dans une base de données contenant la table locale tblClient, quelle sera la valeur affichée à l'issue de ce code si la table contient 10 enregistrements ?

Dim oRst As DAO.Recordset Set oRst = CurrentDb.OpenRecordset("tblClient") MsgBox oRst.RecordCount

	0
	1
	10

Dans une base de données contenant la table attachée tblClient, quelle sera la valeur affichée à l'issue de ce code si la table contient 10 enregistrements ?

Dim oRst As DAO.Recordset Set oRst = CurrentDb.OpenRecordset("tblClient") MsgBox oRst.RecordCount

	0
	1
	10

Dans une base de données contenant la table locale tblClient, que va provoquer l'exécution du code suivant ?

Dim oRst As DAO.Recordset Set oRst = CurrentDb.OpenRecordset("tblClient") oRst.FindFirst("idclient=2")

	Le Recordset va avancer de deux enregistrements
	Le Recordset va se positionner sur l'enregistrement ayant l'idclient égal à 2
	Une erreur de compilation est levée
	Une erreur d'exécution est levée

En VBA, la fonction racine carrée est :

	Sqr()
	Sqrt()
	Square()
	La fonction n'existe pas et il faut élever le nombre à la puissance 0.5

Quelle est le prototype de la fonction TimeSerial, équivalent de DateSerial mais pour les horaires ?

	TimeSerial(Hour,Minute,Second)
	TimeSerial(Second,Minute,Hour)
	TimeSerial(Second)
	Cette fonction n'existe pas

La syntaxe SQL suivante :

SELECT TOP 10 , 2 * FROM Matable

	Retourne deux enregistrements à partir du dixième
	Retourne dix enregistrements à partir du deuxième
	Retourne le deuxième et le dixième enregistrements
	Retourne les enregistrements du deuxième au dixième
	Est incorrecte

En VBA, la ligne suivante :

#Const conDebug = 1

définit

	Une constante de type Integer
	Une constante mise en commentaire
	Une constante de compilation conditionnelle

Que va afficher la procédure suivante ?

Sub Quiz() Dim n n = 0 = 1 MsgBox n End Sub

	Vrai
	Faux
	Rien
	Une erreur de compilation est levée
	Une erreur d'exécution est levée

Dans la procédure suivante, combien de messages vont être affichés ?

Sub Quiz() Dim i As Integer For i = 1 To 1.5 MsgBox i Next i End Sub

	Un
	Deux
	Une erreur de compilation est levée
	Une erreur d'exécution est levée

Quel est le sens de la déclaration suivante ?

Dim i$

	Cette déclaration n'est pas valide
	La variable i$ est une donnée de type Variant
	La variable i est une donnée de type String

Quelle est le volume de mémoire occupé par un paramètre de type Boolean passé par référence à une procédure ?

Sub Essai(ByRef MonBool As Boolean)

	1 octet
	2 octets
	4 octets
	16 octets

Une requête SQL possédant une clause GROUP BY limite l'affichage des champs mémo à :

	64 caractères
	255 caractères
	Les champs mémos ne sont pas compatibles
	Les champs mémos ne sont pas tronqués

Quand deux tables sont mises en relations et que l'intégrité référentielle est appliquée, il est possible d'affecter une valeur nulle à une clé étrangère ?

	Oui
	Non