beregn felt i form ud fra indtastning i 2 forskellige felter

Har vi ikke rodet med dette flere gange? Det drejer sig jo kun om simple beregninger.

Hvad har du problemer med? Får du nogen fejl eller sker de bare ingenting?

Hej mkri

Koden bag hændelsen "BeforeUpdate" på de 2 ubundne textbokse på formularen:


Private Sub txtLig_på_lager_BeforeUpdate(Cancel As Integer)
Me.Stk_på_lager.Value = Me.Stk_på_lager.Value +
Me.txtLig_på_lager.Value
End Sub


Private Sub txtPluk_fra_lager_BeforeUpdate(Cancel As Integer)
Me.Stk_på_lager.Value = Me.Stk_på_lager.Value - Me.txtPluk_fra_lager.value
End Sub

mvh Nicolai

Hej i to

Til Mugs

Ja jeg syntes også det burde være ret simpelt.... men jeg er ikke Visual basic ekspert... så derfor.

hvad angår at vi har rodet med det før så har jeg på bedste amatør aktig vis oprettet det "samme" spørgsmål to gange, troede ikke den første kom igennem... så den lukker jeg lige og giver dig points der..

og til lalocin så virkede din kode også så du får også points.

skriv et svar så sender jeg nogle til jer..

tak for hjælpen

Jeg afstår fra point. Har fået i dit tidligere spørgsmål, og det er rigeligt.

Lige et lille tillægs spørgsmål, som nok skal give ekstra points :-)


det jeg taster i mine unboundfelter skulle gerne slettes efter at det er tastet..
har selv prøvet med:

Private Sub sub_AfterUpdate()
Me.add.Value = ""
End Sub

det virker også, bare ikke første gang der tastes noget.
altså jeg åbner formen og taster 1 og enter, herefter bliver 1 hængende og jeg kan taste enter igen og så forsvinder den, hvilket også betyder at Me.Stk_på_lager.Value opdateres to gange.

hvis jeg så taster en anden værdi herefter så forsvinder den med det samme..

dobbelt indtastningen sker altså kun ved første ciffer.

nogen ideer ??

Hændelsen AfterUpdate indtræder som navnet siger efter tabellen er opdateret.

Prøv at indsætte denne i din kode i BeforeUpdate:

Me.Stk_på_lager = ""

Og tilsvarende i det andet felt.

Du kan max give 200 point i et spørgsmål, så denne må være gratis.

hej Mugs, kan bare oprette ny tråd for points :-)

Det er ikke me.Stk_på_lager der skal slettes men me.Add


så ser min kode sådan ud.
og jeg får så en fejl i Me.add.Value = ""



Private Sub add_BeforeUpdate(Cancel As Integer)
Me.Antal_på_lager.Value = Me.Antal_på_lager.Value - Me.add.Value
Me.add.Value = ""
End Sub

Hvad er Me.add.Value? Det skal være Me.FELTNAVN = ""

Vedr. point:

http://www.eksperten.dk/faq#faq-5

Hej mkri

Hermed mit "svar" :o)

Og med hensyn til dit tillægssåørgsmål angående sletning af 1 / dobbeltindtastning.

Prøv at ændre din kode:

Private Sub sub_AfterUpdate()
Me.add.Value = ""
End Sub

til

Private Sub sub_AfterUpdate()
Me.add.Value = NULL
End Sub

Det virker hos undertegnede ... og jeg vil mene, at det skal være NULL fremfor "", da vi har med en værdi (value) at gøre og ikke en tekststreng.

Mvh Nicolai