[AccessD] Max's Tag solution

Drew Wutka DWUTKA at Marlow.com
Tue Feb 24 18:17:53 CST 2009


First of all, GREAT JOB Max.

Two comments for you.

1. In your 'sGetLanguageCaptions' code, you can simplify your code by
using Split, instead of searching through the string:

Private Sub sGetLanguageCaptions()
  ' set the caption based on the language selected where language value
is held in glngLangauge variable
  Dim ctl As Control, strCaption As String, lng As Long, str As String
  Dim strArray() As String
  For Each ctl In Me.Controls
    If ctl.ControlType = acLabel And Len(ctl.Tag) > 1 Then
        strArray = Split(ctl.Tag, "+")
        ctl.Caption = strArray(glngLanguage - 1)
    End If
    Next ctl
End Sub

2.  The delimiter should be a non-typable character.  You never know
when a typable character will be used in a caption.  In your sample, you
used the plus sign.  If a caption read: 'Credits+Debits' it would add
another 'element' to what you have stored in the tag.  Since some
foreign languages require Unicode, it would probably be better to
'create' a delimiter, instead of using something like chr(240).
Something like '|$@'  two or three characters that would be garbage.
Split can use multiple character delimiters.

Drew
The information contained in this transmission is intended only for the person or entity to which it is addressed and may contain II-VI Proprietary and/or II-VI Business Sensitive material. If you are not the intended recipient, please contact the sender immediately and destroy the material in its entirety, whether electronic or hard copy. You are notified that any review, retransmission, copying, disclosure, dissemination, or other use of, or taking of any action in reliance upon this information by persons or entities other than the intended recipient is prohibited.





More information about the AccessD mailing list