weederom een vraagje overzetten waarde?

[jo geuens]

Hoi graag had ik een totaal van mijn subform. naar een onafhankelijke, textbox op mijn hoofdform willen zetten na een Afterupdate
volgende had ik al geprobeerd maar zonder resultaat
deze waarde wil ik dan op mijn hoofdform gebruiken om een melding waartegeven als de waarde kleiner is dan 10

Private Sub totaalK1_AfterUpdate()
'totaalK1 = meldingK1
'Forms!subToolingvoorraadK1.totaalK1 = Forms!Hoofdmenu_toolingbeheer.meldingK1
'Me.totaalK1 = Forms("Hoofdmenu_toolingbeheer").Controls("meldingK1")
Me.subToolingvoorraadK1.Form.totaalK1.Value = Me.meldingK1.Value
End Sub

 

[OctaFish]

Geen idee welk van die velden je wilt bijwerken, je werkt in je code alleen maar subformuliervelden bij, maar ik vermoed [meldingK1]. Dus dan maar een voorbeeldje dat hopelijk door iedereen gesnapt kan worden
Op het subformulier een veld [Aantal] en in de voettekst een veld [txtSubFormTotaal], op het hoofdformulier een veld [txtCurTotaal] dat moet worden bijgewerkt.

Private Sub txtAantal_AfterUpdate()
    On Error Resume Next
    Me.txtTotaal.Value = Me.txtAantal.Value * Me.txtPrijs.Value
    If Me.Dirty Then Me.Dirty = False
    Me.txtSubFormTotaal.Requery
    Me.Parent.txtCurTotaal = Me.txtSubFormTotaal
    Me.Repaint
End Sub

 

[jo geuens]

hoi

het is me ook gelukt als volgt

ophet hoofdformulier in textvak meldingK1:=[subfrmToolingvoorraadK1].[Form]![totaalK1]
en op het subformulier in het veld Totaal: =som([voorraad])

alleen nu het volgende probleempje als de meldingK1 is bijgewerkt moet volgende al dan niet zichtbaar worden

probeerde dit al

Private Sub MeldingK1_Dirty(Cancel As Integer)
If MeldingK1.Value <= 4 Then
lblLichtkrant.Visible = True
  ElseIf MeldingK1.Value > 4 Then
        lblLichtkrant.Visible = False
        End If
End Sub

maar doet niet veel

een idee waar ik fout ga