• 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.

automatisch verspringen naar volgende txt en txt's leegmaken

Status
Niet open voor verdere reacties.
B

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Ik zou graag als de gegevens uit txt's worden weggeschreven dat deze txt's terug leeg worden
Ik dacht dit met de volgende code te doen (staat in rood)
Code: 
Private Sub cmbWegschrijven_Click()
Dim Idlinks As Integer
Dim x As Integer
Dim i As Integer
Idlinks = 1

x = cboSpeeldag * 30 - 26

With Sheets("Blad2")
     .Cells(x - 1, 1).Resize(, 16) = Array(lblTeam2, , , , , , , , , , , , , , , lblTeam3)
        .Cells(x + 1, 1).Resize(, 16) = Array(iD1, , , TextBox1, TextBox2, TextBox3, , , , , iD4, , , TextBox13, TextBox14, TextBox15)
        .Cells(x + 2, 1).Resize(, 16) = Array(iD2, , , TextBox5, TextBox6, TextBox7, , , , , iD5, , , TextBox17, TextBox18, TextBox19)
        .Cells(x + 3, 1).Resize(, 16) = Array(iD3, , , TextBox9, TextBox10, TextBox11, , , , , iD6, , , TextBox21, TextBox22, TextBox23)
     
     .Cells(x + 9, 1).Resize(, 15) = Array(lblTeam4, , , , , , , , , , , , , , , lblTeam5)
        .Cells(x + 11, 1).Resize(, 16) = Array(iD7, , , TextBox25, TextBox26, TextBox27, , , , , iD10, , , TextBox37, TextBox38, TextBox39)
        .Cells(x + 12, 1).Resize(, 16) = Array(iD8, , , TextBox29, TextBox30, TextBox31, , , , , iD11, , , TextBox41, TextBox42, TextBox43)
        .Cells(x + 13, 1).Resize(, 16) = Array(iD9, , , TextBox33, TextBox34, TextBox35, , , , , iD12, , , TextBox45, TextBox46, TextBox47)
        
     .Cells(x + 19, 1).Resize(, 15) = Array(lblTeam6, , , , , , , , , , , , , , , lblTeam7)
        .Cells(x + 21, 1).Resize(, 16) = Array(iD13, , , TextBox49, TextBox50, TextBox51, , , , , iD16, , , TextBox61, TextBox62, TextBox63)
        .Cells(x + 22, 1).Resize(, 16) = Array(iD14, , , TextBox53, TextBox54, TextBox55, , , , , iD17, , , TextBox65, TextBox66, TextBox67)
        .Cells(x + 23, 1).Resize(, 16) = Array(iD15, , , TextBox57, TextBox58, TextBox59, , , , , iD18, , , TextBox69, TextBox70, TextBox71)
    [COLOR="#FF0000"]For i = 1 To 71
        Me("TextBox" & i) = ""
    Next[/COLOR]
End With
End Sub
Maar ik krijg de melding "Kan opbject niet vinden" op de regel "For 1 to 71"
En mijn tweede vraagje is
Ik wil dat na het inbrengen van 3 cijfers automatisch de voldende txt wordt geselecteerd.
Geprobeert om txt op MaxLenght 3 te zetten maar de cursor verspringt niet.

Grtjs.
Armand
 
Laatst bewerkt:
heb je wel alle 71 textboxen in je userform staan?

Code: 
Private Sub TextBox1_Change()
    If Len(TextBox1.Text) = TextBox1.MaxLength Then   [COLOR="#33ff00"]'hier kan je ook gewoon 3 neerzetten![/COLOR]
           TextBox2.SetFocus
    End If
End Sub
 
Laatst bewerkt:
Op welke variabele i stopt de code?
 
Bedankt voor jullie reacties.
Probleem met leegmaken is opgelost.
Had een rij verkeerd genummerd TextBoxen.

Wat het verspringen betreft is.
Ik heb een ander programma en daar heb ik geen code voor staan en mijn txt op MaxLenght 3 en daar verspringt deze wel.

Grtjs.
Armand
 
Of het werkt, weet ik niet maar dit vond op het internet.

Het kan ook zonder code, aangezien de tekstboxen hier al op zijn voorbereid.
Zet de eigenschap Lengte van de tekstbox op: 2
Zet de eigenschap Autotab op: True
Klik om te vergroten...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan