Microsoft Access VBA Macro Programming

Qds.Append Qd Application.RefreshDatabaseWindow Set Qd = Nothing Set Qds = Nothing End Sub This example assumes you do not alrea ...

This code can be run from any module within Access. If you look in the Navigation pane for your query, you will now see that it ...

This page intentionally left blank ...

Chapter 27 Search and Replace in Queries Chapter 27 Search and Replace in Queries S tructures of queries in large Access applica ...

Click Create in the Access menu and then click the Table Design icon in the Table group of the ribbon. Create a single text fiel ...

application—especially if you have to reinstate it on very short notice when an angry user starts shouting. A far better way is ...

The code sets up strings to hold the name of the query and the search and replace information. These are then loaded with the re ...

Chapter 28 Using the DateAdd Function Chapter 28 Using the DateAdd Function A ccess provides a useful function that allows a tim ...

Else Temp = " 19 " & Temp End If Target = Month(Target) & "/" & Temp TestDateAdd = DateAdd("m", Months + 1, Target) ...

You can use the following parameters for the interval: Setting Description Yyyy Year Q Quarter M Month Y Day of Year D Day W Wee ...

This page intentionally left blank ...

Chapter 29 Monitoring Table Statistics Chapter 29 Monitoring Table Statistics I n large complex Access applications, it is diffi ...

No primary key is required since this is an internal table for information only. Save the table with the nametblTableStatistics. ...

Chapter 30 Handling Large Text Files Chapter 30 Handling Large Text Files I n an Access application, you frequently have to eith ...

For n = 1 To 10 Line Input #fnum, temp Print #fnum1, temp Next n Close fnum Close fnum1 End Sub This code opened the 4GB file (M ...

Else temp1 = temp1 & Mid(temp, m, 1) End If Next m Print #fnum1, temp1 Loop Close fnum Close fnum1 End Sub This code opens u ...

Open "c:\SmallFile1.txt" For Output As fnum1 fnum2 = FreeFile Open "c:\SmallFile2.txt" For Output As fnum2 Do While Not EOF(fnum ...

When n=1, the first row of the big file is written to both output files. This is because it was a header row containing field na ...

This page intentionally left blank ...

Chapter 31 Create and Change Table Structures Chapter 31 Create and Change Table Structures A s your Access application is runni ...