Exercise: Adding toy, checking if already exists

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

The answer to the exercise will be included and explained if you attend the Wise Owl course listed below!

Category ==> Access VBA Macros  (17 exercises)
Topic ==> Recordsets  (2 exercises)
Level ==> Average difficulty
Course ==> Access VBA macros
Before you can do this exercise, you'll need to download and unzip this file (if you have any problems doing this, click here for help).

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

Have a look at the tblProduct table - it contains a list of possible gifts (and has nothing to do with any of the other tables in this database!):

Access VBA Macros exercise - Recordsets (image 1)

Something for everyone here ...

Create a new module called modProducts, and in this a procedure calledAddToyWithGivenName which asks the user for the name of a new toy:

Access VBA Macros exercise - Recordsets (image 2)

Use the InputBox function, and store the toy chosen in a variable

Extend your macro so that it stores the name of this new toy as a new record in the tblProduct table, using the AddNew method.

If you have time, modify your macro so that if you type in a toy whose name already exists, you get a warning message and the duplicate toy name is not added:

Access VBA Macros exercise - Recordsets (image 3)

You need to loop over all the records in the table, checking for each that its name isn't the same as the toy you've just entered

If you get all of this working, close your form and module and breathe a deep sigh of satisfaction!

This page has 0 threads Add post