Access VBA Macros | Recordsets 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.

Software ==> Access VBA Macros  (25 exercises)
Version ==> Access 2010 and later
Topic ==> Recordsets  (3 exercises)
Level ==> Average difficulty
Subject ==> Access training
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!

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.
This page has 0 threads Add post