My Journal

Tech on the Net is a good resource. Dsum is a useful function:

In Microsoft Access, the DSum function returns the sum of a set of numeric values in a specified set of records (or domain). DSum ( expression, domain, [criteria] )

Doing work for NYGC's database, I almost got stuck with a null problem (Runtime error 94, invalid use of null) while using DSum. Problem solved not with IIf Null, but with another function Nz: Nz function lets you return a value when a variant is null. Nz ( variant, [ value_if_null ] )

And with form properties using combo dropdown lists/boxes with multiple columns of a table but showing just one field that's usually default to the primary index column (or retrieving data from table that has primary index which becomes the main reference point for the other field), but the column is the intended object, use: Me.YourComboBoxName.Column(x) where x is the column number (from 0 to *) of the table sourced.

Thus far the best solution for this "Display driver stopped responding and has recovered", atikmdag in particular (flash video playing slowly, error message box shows up when flash video runs in full screen for a while) is to disable Hardware Acceleration in settings by right clicking flash window.

Finally, there is an easy way(filling MS Word fields with Access data) in Access using VBA scripting:

Private Sub cmdPrint_Click()
'Print customer slip for current customer.
Dim appWord As Word.Application
Dim doc As Word.Document
'Avoid error 429, when Word isn't open.
On Error Resume Next
Err.Clear
'Set appWord object variable to running instance of Word.
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = New Word.Application
End If
Set doc = appWord.Documents.Open("C:\WordForms\CustomerSlip.doc", , True)
With doc
.FormFields("fldCustomerID").Result = Me!CustomerID
.FormFields("fldCompanyName").Result = Me!CompanyName
.FormFields("fldContactName").Result = Me!ContactName
.FormFields("fldContactTitle").Result = Me!ContactTitle
.FormFields("fldAddress").Result = Me!Address
.FormFields("fldCity").Result = Me!City
.FormFields("fldRegion").Result = Me!Region
.FormFields("fldPostalCode").Result = Me!PostalCode
.FormFields("fldCountry").Result = Me!Country
.FormFields("fldPhone").Result = Me!Phone
.FormFields("fldFax").Result = Me!Fax
.Visible = True
.Activate
End With
Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description
End Sub