Calculatie veld opslaan in tabel

[Htt_wng]

Dank je Octafish het is me gelukt. Nou zit ik weer met een andere probleem ik krijg het veld waarin het word gecalculeerd niet goed

Private Sub txt_Toevoegen_1_zwartsel_Omschrijving_AfterUpdate()
txt_Toevoegen_1_Zwartsel_Ton = Nz(txt_Toevoegen_1_zwartsel_Omschrijving.Column(2), 0)
End Sub

Private Sub txt_artikelcode_AfterUpdate()
Tekst130 = txt_artikelcode.Column(2)
Tekst134 = txt_artikelcode.Column(1)
txt_Product_Prijs_Ton = Nz(txt_artikelcode.Column(3), 0)
txt_totaal_product = txt_Product_Prijs_Ton + txt_Toevoegen_1_zwartsel_Omschrijving
End Sub

De laatste regel word ook weer in rood getoond ik heb Me. (zoals jij me eerder adviseerde) voor elke txt veld gezet maar krijg nog steeds een foutmelding.

 

[OctaFish]

Me geeft alleen maar een verwijzing naar objecten op het formulier; weghalen lost het probleem dus zeker niet op. Ik zou de Me verwijzing ook absoluut niet weghalen.
Als de veldverwijzingen kloppen, moet de formule dus werken. Tenzij je velden verkeerde gegevens bevatten.