Mini Quiz

Question 1

Parmis ces syntaxes laquelle est correcte ?

If TypeOf ctl Is TextBox Then

If TypeOf(ctl) = acTextBox Then

If Type Of ctl Is TextBox Then

If TypeOf(ctl) = TextBox Then

Question 2

Que va afficher la procédure suivante :

Sub Test()

Dim a As Integer
Dim b As Integer

a = 12
b = 102

a = a Xor b
b = a Xor b
a = a Xor b

Debug.Print "a = " & a
Debug.Print "b = " & b

End Sub

	a = 102 b = 12
	a = 0 b = 0
	a = -1 b = -1

Question 3

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 4

En vba, pour appliquer un filtre sélectionnant les enregistrements créés à une date donnée (saisie par l'utilisateur dans un champ nommé txtDate), il faut écrire :

DoCmd.ApplyFilter ,"DateCréation = " & Me.txtDate

DoCmd.ApplyFilter ,"DateCréation = #" & Format(Me!txtDate,"dd/mm/yyyy") & "#"

DoCmd.ApplyFilter ,"DateCréation = #" & Me.txtDate & "#"

DoCmd.ApplyFilter ,"DateCréation = #" & Format(Me!txtDate,"mm/dd/yyyy") & "#"

Question 5

Dans une requête SQL, quel est l'ordre de tri par défaut de la clause ORDER BY ?

	Croissant
	Décroissant
	Il n'y a pas d'ordre de tri par défaut, il est nécessaire de spécifier celui-ci avec les mots-clés ACS ou DESC.