anoniem Geplaatst: 1 juli 2002 Delen Geplaatst: 1 juli 2002 L.S. Heeft iemand een idee hoe ik een hele reeks textboxen op een formulier met een For-Next-lus kan evalueren door ze bijvoorbeeld in een array te plaatsen en of namen van textboxen aan een variabele door te geven en zo te evalueren? Technieken die met cellen van een werkmap heel eenvoudig en doeltreffend zijn maar in formulieren? Concreet: het volgende moet slimmer kunnen, waarbij 'txt-met getal' een textbox is: [code:1:bd4c6ec3d2] If txt4.Value = "" And getal <> 4 Then txt4.Value = 0 If txt5.Value = "" And getal <> 5 Then txt5.Value = 0 . . . If txt19.Value = "" And getal <> 19 Then txt19.Value = 0 [/code:1:bd4c6ec3d2] en ook: [code:1:bd4c6ec3d2] txt4.Value = Int_Ophalen("Wegdek", 8, 44) txt5.Value = Int_Ophalen("Wegdek", 8, 45) . . . txt19.Value = Int_Ophalen("Wegdek", 8, 59) [/code:1:bd4c6ec3d2] Wie mij hiermee kan helpen helpt de omvang van mijn programmeercode aanzienlijk te reduceren... gegroet, mart Quote Link naar reactie
anoniem Geplaatst: 1 juli 2002 Auteur Delen Geplaatst: 1 juli 2002 [code:1:0b9f9fe5d0]Option Explicit Private Sub CommandButton1_Click() Dim i As Integer Dim te_valideren_tekst As Boolean For i = 0 To Controls.Count - 1 If Left(Controls(i).Name, 7) = "TextBox" Then te_valideren_tekst = correcte_tekst(Controls(i).Text) If te_valideren_tekst = False Then Controls(i).SetFocus MsgBox "fout in " & Controls(i).Name Exit Sub End If End If Next i End Sub Public Function correcte_tekst(te_valideren_tekst As String) As Boolean If te_valideren_tekst <> "" Then correcte_tekst = True End Function[/code:1:0b9f9fe5d0] Quote Link naar reactie
anoniem Geplaatst: 4 juli 2002 Auteur Delen Geplaatst: 4 juli 2002 Dijkele, Bedankt voor je reactie; het werkt en sneller dan mijn 'oplossing'. gegroet, mart Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen