Mini Quiz

Question 1

Comment supprimer les messages d'alertes ?

	DoCmd.SetWarnings False
	DoCmd.MsgBox False
	DoCmd.SetWarnings = False
	DoCmd.MsgBox = False

Question 2

Pour fermer un recordset, il est conseillé d'écrire :

	rst.Close Set rst = Nothing
	rst.Close
	Aucune différence

Question 3

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 4

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

Question 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