• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

txtboxen terug leeg maken

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Voor het wegschrijven van data via een frm gebruik ik de volgende code
Code: 
Private Sub cboTeamsWegschrijven_Click()
    Dim c As Range, i As Long
    Application.ScreenUpdating = False
        For Each c In Sheets("AlgemeneData").Range("A1")
            For i = 1 To 6
             c.Offset(i) = Me("txtTeam" & i).Text
            Next
        Next
    Application.ScreenUpdating = True
End Sub
Nu wil ik de txtboxen terug leeg hebben na het klikken op de button "wegschrijven"
Ik heb getest met de volgende code
Code: 
Private Sub cboTeamsWegschrijven_Click()
    Dim c As Range, i As Long
    Application.ScreenUpdating = False
        For Each c In Sheets("AlgemeneData").Range("A1")
            For i = 1 To 6
             c.Offset(i) = Me("txtTeam" & i).Text
            Next
        [COLOR="#FF0000"]txtTeam1.Value = ""[/COLOR]
        Next
    Application.ScreenUpdating = True
End Sub
Maar die maakt uiteraard alleen txtBox1 leeg.
Kan ik dit aanpassen zodat alle 6 de txtboxen leeg zijn, of moet ik dit voor alle 6 txtboxen apart toevoegen.

Grtjs.
Armand
 
Laatst bewerkt:
Probeer het eens met : txtTeam & i & .Value = ""
 
Laatst bewerkt:
Code: 
Dim ctrl As Control
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            ctrl.Text = vbNullString
        End If
    Next
 
Hallo ,

Bedankt voor jullie reacties.
De opslossing van Rudy werkt perfect.

Grtjs.
Armand
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan