I have a sub form with that creates an array in the following manner:
Expand|Select|Wrap|Line Numbers
- Dim i As Integer
- Dim Arr1() As String
- Private Sub cbo_hdr_memid_Change()
- i = i + 1
- ReDim Preserve Arr1(1 To i)
- Arr1(i) = Me.cbo_hdr_memid.Text
- End Sub