Waarde van tekstvak mag niet veranderen

[Abel Visscher]

Beste,

Ik heb hulp nodig bij het volgende, ik zal het zo goed mogelijk uitleggen.
Ik heb 3 tekstvakken teweten TxtA, TxtB en TxtC
TxtA wordt in eerste instantie met de hand ingevuld bv 24
TxtB is gekoppelt aan TxtA (TxtB=TxtA)
TxtC is variable (telt naar beneden af)
Nu is het de bedoeling dat als TxtC kleiner wordt dan TxtB (bv 23), dat TxtA dan TxtC wordt (in dit geval 23).
Maar omdat TxtB gekoppelt is aan TxtA veranderd die dus ook (naar 23) en dat moet niet.
Dit gebeuren staat onder de afdrukknop van een formulier.
Dit heb ik tot nu toe.

Private Sub CmdPalletkaartAfdrukken102_1_Click()

If TxtC < TxtB Then TxtA = TxtC
If TxtC = 0 Then CmdPalletkaartAfdrukken102_1.Enabled = False
TxtB = TxtA
End Sub

Ik heb de code voor het afdrukken en het tellen weggelaten
Kan iemand mij hier verder mee helpen?

 

[OctaFish]

Je kunt TextB uiteraard niet koppelen aan TextA als in sommige gevallen A<>B is. Dat moet je dus anders oplossen. Ik zou het doen op basis van de eigenschap <Bij aanwijzen> van het formulier, en op het veranderen van de waarde in TextC. De eerste eigenschap gebruik je om de waarde in TextB in te stellen:

Private Sub Form_Current()
If Me.TextC < Me.TextB Then 
     Me.TextA=Me.TextC
Else
     Me.txtB = Me.txtA
End If
End Sub

Hiermee start je dus met gelijke waarden in A en B. De vraag is nu: hoe telt TextC af? Met de hand? In dat geval zet je een actie bij de gebeurtenis <Na bijwerken> van TextC.

If Me.TextC < Me.TextB Then 
     Me.TextA=Me.TextC
Else
     Me.txtB = Me.txtA
End If