Mini Quiz

Question 1

Comment obtenir la valeur de Pi (3,1415926535897932) ?

	Pi= 2 * Atn(1)
	Pi= 3 * Atn(1)
	Pi= 4 * Atn(1)

Question 2

Quel est le résultat de la fonction suivante si le fichier existe ?

Dir("C:\MonChemin\MonFichier.txt")

	"MonFichier.txt"
	"C:\MonChemin\MonFichier.txt"
	True

Question 3

Quel est l'effet d'un bouton sur un Etat en mode aperçu avant impression ?

	L'événement 'Sur clic' est déclenché,
	Aucun évènement est déclenché ,
	Il n'est pas possible de mettre un contrôle sur un état.

Question 4

Pourquoi lors de l'exécution de ce code, ma procédure boucle sans fin ?

Dim rs As Recordset
set rs = CurrentDB.OpendRecordset ("SELECT * FROM MaTable")
While NOT rs.EOF
Debug.Print rs.Fields("MonChamp")
Wend

	Il n'y a pas de rs.close
	Il n'y a pas de set rs = Nothing
	Il n'y a pas rs.moveNext
	L'appel de Fields() se fait avec un entier et pas avec une string

Question 5

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