I refer to th eexample on p. 447, in which textboxes are subclassed. Code shows making a subclass instance for each textbox on the form manually. I.e.,

   set FirstTB.myTextbox = Me.txtFirst 'i.e., the first textbox control
   set LastTB.myTextbox = Me.txtLast

I would like to do this programmatically:

   For each ObjCtl in Form.Controls
       aTB = new clsTextbox
       aTB.myTextbox = ObjCtl
   next

Obviously, this code keeps reassigning to "aTB." What I'd like is:

   i=0
   For each ObjCtl in Form.Controls
       i=i+1
       aTB(i) = new clsTextbox
       aTB(i).myTextbox = ObjCtl
   next

But this is not how VB works, I think. Any help appreciated.

Hi,

Thank you for your question and for checking out the book!

Access/VBA does not natively support control arrays as does VB6, however, you might be able to simulate it using something like:

Dim aTB() As clsTextbox

Private Sub Form_Load()
    ReDim aTB(Me.Controls.Count)

    Dim i As Integer
    Dim j As Integer
    Dim ctl As Control

    For Each ctl In Me.Controls
        If (TypeOf ctl Is TextBox) Then
            i = i + 1
            Set aTB(i) = New clsTextbox
            Set aTB(i).MyTextbox = ctl
        End If
    Next
End Sub

Hope this helps,

Rob Cooper
Lead Software Design Engineer in Test
Microsoft Access Team

co-author: Access 2007 VBA Programmer's Reference
co-author: Expert Access 2007 Programming

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at microsoft.com/info/cpyright.htm.

Thanks, Rob. I'll give it a try. Your book is excellent and very helpful!

Thanks, Rob. It worked!

You're welcome! I'm glad you are enjoying the book.

Rob Cooper
Lead Software Design Engineer in Test
Microsoft Access Team

co-author: Access 2007 VBA Programmer's Reference
co-author: Expert Access 2007 Programming

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at microsoft.com/info/cpyright.htm.