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

Soit une table MaTable, que provoque l'appel de la méthode Add suivant :

Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("MaTable")
oRst.Add

	Création d'un nouvel enregistrement dans la table
	Une erreur de compilation est levée
	Une erreur d'exécution est levée

Question 3

DateAdd("m", 1, Date) ajoute un mois à la date du jour, comment soustraire un mois ?

	DateSub("m",1,Date)
	DateAdd("m",-1,Date)
	DateDiff("m",-1,Date)

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

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