[AccessD] Translation data length (cache used)

Using the following function I calculated the lengths of all of the translation strings in every 
translation field:

Function mTotalDataLength()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim lngDataLength As Long
Dim intFld As Integer
     Set db = CurrentDb
     Set rst = db.OpenRecordset("tblLanguage-Controls")
     With rst
         For intFld = 4 To 8
             .MoveFirst
             While Not .EOF
                 If Not (IsNull(rst(intFld).Value)) Then
                     lngDataLength = lngDataLength + Len(rst(intFld).Value)
                 End If
                 .MoveNext
             Wend
             Debug.Print intFld & ":" & lngDataLength
         Next intFld
     End With
End Function

mTotalDataLength
4:43879
5:56558
6:69133
7:107050
8:140369

Spanish and French are by far the most verbose.  In any event, if you are caching the data for every 
single form for a single language, the total data cached is about 140K.

-- 
John W. Colby
www.ColbyConsulting.com