Deleting Text Boxes Programmatically

With Unlaod "txtName" & i I get a type mismatch.  If I try doing a Me.Controls.Remove("txtName" & i) as described in your link, I get "Unable to Unload within this context."

Any other suggestions, or comments on what I might be doing wrong?

To unload controls you need to setup a control array. You can then unload all but the first one.

Using your example, add a TextBox to the form. Change its Name to txtName and give its Index property the value 0 to create a control array.

To create new controls, use:

For i = 0 To XXX
    if i > 0 then
        Load txtName(i)
    end if
    txtName(i).Move ?, ?, ?, ?
    txtName(i).Visible = True
Next i

To remove controls, use:

For i = XXX to 0 step -1
    if i = 0 then
        txtName(0).Visible = False
    else
        Unload txtName(i)
    end if
Next i

You should never unload txtName(0). Instead just make it invisible.

Let me try that, it will involve a little reworking of my code, but I'll give it a try and let you know how it goes.

Thanks,
Jaime

Let me try that, it will involve a little reworking of my code, but I'll give it a try and let you know how it goes.

Thanks,
Jaime

phildaley :

When I try using a control array, I still get the "Unable to Unload within this context." error while trying to unload that object:

    For i = 1 To rstFPOrder.RecordCount
            Load lblItemNum(iManualItems)
            lblItemNum(iManualItems).Move 120, iManualCurrent, 600, 200
            lblItemNum(iManualItems).Caption = rstFPOrder!EquipNum
            lblItemNum(iManualItems).Visible = True
    Next i
.
.
.
    For i = 1 To iManualItems
        Unload lblItemNum(i)
    Next i

Is the difference between th 'i' in

      For i = 1 To rstFPOrder.RecordCount

and the 'iManualItems' in

      Load lblItemNum(iManualItems)

a typo it should be

      Load lblItemNum(i)

and try changing this
      For i = 1 To iManualItems
       Unload lblItemNum(i)
      Next i  

to

   For i = lblItemNum.Ubound To 1 step -1
       Unload lblItemNum(i)
   Next i  

Yes While editing out the extra code, I also removed the iManualItems = iManualItems + 1.

I am not trying to call the unload from a click, but from a validate on a textbox.  Would this cause the same error as the combo box click event?

Well, Adding the timer seems to work, but it does bring up another problem.

Basically if I have a list of objects, I wanted to clear the old list before running the new query to create another list.  With the timer, even with the Interval set to 1, the new list will populate before the timer activates, when it activates, it deletes everything, including the new items just added.

I'll play around and see what I can't figure out, but since that does solve my original problem, the answer goes phildaley.

If anyone knows of another way other than the timer to get around the VB bug, I would like to hear about it :)

Thanks to all,
Jaime