Andre175
Gebruiker
- Lid geworden
- 2 feb 2018
- Berichten
- 351
ik wil toch even terug komen op mijn vraag.
in het voorbeeldbestand werkt alles zoals het werken moet. Echter in het bestand waar ik het wil toepassen gaat er toch iets fout.
Voorbeeldbestand: Bekijk bijlage Textboxen optellen .xlsb
in het bestand waar het me niet in lukt moeten 8 boxen worden opgeteld, ik krijg daar de volgende foutmelding zodra in 1 van de boxen die opgeteld moeten worden een waarde in komt te staan.
Toch gebruik ik dezelfde code als uit het voorbeeld bestand, uiteraard de benamingen van textboxen aangepast.
(Alle boxen die opgeteld moeten worden eindigen op "A", BedragAA, BedragBA, bedragCA....enz)
Klassenmodule:
Foutmelding verwijst naar regel: If it.m_T.Text <> "" Then y = y + it.m_T.Text
kan me iemand vertellen wat ik fout doe?
in het voorbeeldbestand werkt alles zoals het werken moet. Echter in het bestand waar ik het wil toepassen gaat er toch iets fout.
Voorbeeldbestand: Bekijk bijlage Textboxen optellen .xlsb
in het bestand waar het me niet in lukt moeten 8 boxen worden opgeteld, ik krijg daar de volgende foutmelding zodra in 1 van de boxen die opgeteld moeten worden een waarde in komt te staan.
Toch gebruik ik dezelfde code als uit het voorbeeld bestand, uiteraard de benamingen van textboxen aangepast.
(Alle boxen die opgeteld moeten worden eindigen op "A", BedragAA, BedragBA, bedragCA....enz)
Code:
Private Sub UserForm_Initialize()
For Each it In Controls
If TypeName(it) = "TextBox" And InStr("A", Right(it.Name, 1)) Then
verz.Add New clsTextBox
Set verz.Item(verz.Count).m_T = it
End If
Next
FormatCurrency (y)
Klassenmodule:
Code:
Public WithEvents m_T As MSForms.TextBox
Private Sub m_T_Change()
y = 0
For Each it In m_T.Parent.verz
If it.m_T.Text <> "" Then y = y + it.m_T.Text
Next
m_T.Parent.OpgK20 = FormatCurrency(y)
End Sub
Foutmelding verwijst naar regel: If it.m_T.Text <> "" Then y = y + it.m_T.Text
kan me iemand vertellen wat ik fout doe?