Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Vba opdracht "prijsverhoging" op twee thema's  (gelezen 1739 keer)

0 leden en 1 gast bekijken dit topic.

Offline d7wrqK5fbE

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • PC Freak
Vba opdracht "prijsverhoging" op twee thema's
« Gepost op: 01 september 2010, 18:09:14 »
Als nieuwkomer wil ik hier iedereen begroeten en wij veel pret mogen beleven.

Wie kan hierbij helpen voor een hint?
Mijn vraagje, heb hier een formulier met een opdrachtknop voor de verwerking
van (prijsverhoging van 1 euro) voor records met de generiek "VH".

bv:
Private Sub Prijsverhoging_VH_Click()
   
    DoCmd.OpenForm "frmInfoFilms", , , "[Mcode]='VH'"
    Prijs = Round([Richtprijs] + 1, 2)
   
End Sub
Mijn doel is de prijsverhoging laten uitvoeren met 1 euro op gefilterd records
en niet zoals verwacht enkel bij het record op het scherm. Daarnaast moeten de
overige records (Not like"VH") ook gelijktijdig verhoogd worden met 0,50 euro cent.

Alvast bedankt voor de tips.
Mvg, J-Paul

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vba opdracht "prijsverhoging" op twee thema's
« Reactie #1 Gepost op: 02 september 2010, 19:06:42 »
zo op  t eerste zicht zou ik dat doen 'bij aanwijzen'

in de veronderstelling dat he veld Mcode op je formulier ook Mcode is:

Form_Current()
 if me.Mcode="VH" then
      Prijs = Round([Richtprijs] + 1, 2)
 else
      Prijs=RichtPrijs
 end if
End Sub
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline d7wrqK5fbE

  • Nieuw lid
  • Berichten: 2
  • Geslacht: Man
  • PC Freak
Re: Vba opdracht "prijsverhoging" op twee thema's
« Reactie #2 Gepost op: 02 september 2010, 23:18:55 »
Dank voor de snelle reactie, intussen uit geprobeerd maar het lukt mij niet en verkrijg ook het eigenschap “bij aanwijzen” niet hier met Access 2003.
 
Mijn formulier is voorzien met tabbladeren waarvan een met het veld Mcode “CBObox”.
Het formulier opent standaard met alle records en bij gebruik van opdrachtknop de
records laten filteren op “VH”  en gelijktijdig al deze records laten bijwerken met prijsverhoging.

J-Paul

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.345
  • I've Upped my standards,now,up yours!
Re: Vba opdracht "prijsverhoging" op twee thema's
« Reactie #3 Gepost op: 03 september 2010, 19:21:31 »
Als je je formulier opent in ontwerpweergave en het vierkanten blokje aanklikt Links van het bovenste lineaal en bover het linkse lineaal zou je bij gebeurtenissen (eigenschappenvenster) bovenaan 'bij laden moeten vinden.
Lukt dat niet dan maak ik een eenvoudig voorbeeldje

Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

 


www.combell.com