Microsoft Access VBA Macro Programming

HIncr = Spd Do Until 1 = 2 If Me.MyLabel.Left + HIncr < 0 Then HIncr = Spd If Me.MyLabel.Left > Me.InsideWidth - Me.MyLabe ...

Bear in mind that when this code runs, it will keep looping continuously forever until you pressCTRL+BREAK,or until you write co ...

This page intentionally left blank ...

PA RT IV Access VBA in Action The purpose of this section is to show the reader the worked examples of how they can apply the VB ...

This page intentionally left blank ...

CHAPTER 23 Getting the Login ID A ccess applications are multiuser and you can have several users loading your application at on ...

Next, enter a function to return the user name. Enter the following code in the same module: Public Function ReturnUserName() Di ...

A Simple Use of the User Name Now that you have the identity of the user entering your application, you can begin putting it to ...

Not so long ago, I wrote a similar application in Oracle (which is case-sensitive) that had screens to allow users with admin ri ...

Chapter 24 Securing Your Database Chapter 24 Securing Your Database O nce you have created your application, you will want some ...

I have never seen an application that did not come into this category. One of the difficulties is that until several users start ...

Change_Err: If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properti ...

Display Form to select the form you created. This means that when the database is loaded it will automatically default to your n ...

Notice that the File tab now has very limited options. The button for Access Settings is now missing and you cannot customize th ...

This page intentionally left blank ...

Chapter 25 Creating Audit Trails on Tables Chapter 25 Creating Audit Trails on Tables E ven the simplest database can end up hol ...

This sets up a link to the functionGetUserNamein the dynamic link library advapi32 (which is supplied as part of the Windows ope ...

Temp = RecSet!AuditTrail Temp = Temp & "Edit" & "|" & ReturnUserName & "|" & Now() & "|" CurrentDb.Execu ...

Instead, you add another field of Boolean type (Yes/No) to the underlying table called Deleted. You then put your own Delete but ...

Chapter 26 Creating and Editing Queries in VBA Chapter 26 Creating and Editing Queries in VBA S QL queries in Access are an esse ...