ciclare i controlli di una maschera

Question

Buon giorno 

vorrei trovare un modo per svuotare tutte le caselle di testo presenti un una maschera con vba

Le caselle di testo le ho chiamate txt0, txt1, txt2 ecc.

e come suggerito sul sito di donkarl (http://www.donkarl.com/it?FAQ6.5) ho applicato il seguente codice

For i = 0 To 10

Me("txt" & i) = vbnullstring

Next

Però questo codice va bene se so quante caselle di testo ci sono e se il numero rimane sempre lo stesso.

Ho provato in questo modo

Do Until IsNull(Me("Txt" & i ))

Me("txt" & i) = vbNullString

i = i + 1

Loop

ma non funziona:

quando arriva alla i=13 che non esiste non risulta null e quindi mi da errore:

"impossibile trovare campo txt13. errore 2465"

Suggerimenti?

GRazie

Answer 1

Ciao Elena\_Elena,

puoi fare così:

---

    Dim Ctrl As Control

    For Each Ctrl In Me.Controls

        If Ctrl.ControlType = acTextBox Then

           Ctrl.Value = Null

        End If

    Next

---

Ciao

Giorgio Rancati

Answer 2

grazie!!!!