2016-04-07 14 views
0

フォームに3つのテキストボックス、CboNetCostTxtMarginTxtPriceがあります。4フォームのアクセス率の計算

TxtMarginは、パーセントとしての書式プロパティを持ち、CboNetCostおよびTxtPriceは通貨として書式プロパティを持ちます。

TxtMarginに何パーセント値を設定して、CboNetCostの値を増やし、回答をTxtPriceに配置する必要があります。

CboNetCostに($ 10.00)と書いてありますが、TxtMarginを選択して10%の値を書き込むと、TxtPriceは$ 11.00になります。私はこのマクロ click to see image of macro

txtMarginに更新イベントの後に追加してみました

はお時間をいただき、ありがとうございます。

+0

です:

=Val(Nz(CboNetCost))*(1+Nz(TxtMargin, 0)) 

かっことマイナス記号を削除するには? – LiamH

+0

はい、私は少しVBAに精通していますが、私はそれに新しい –

答えて

1

あなたはTxtPriceためControlSourceとして、この表現を使用することができます:あなたはAccessでマクロビルダーではなく、VBAを使用して精通

=Abs(Val(Replace(Replace(Nz(CboNetCost),")",""),"(","")))*(1+Nz(TxtMargin, 0)) 
+0

その作業とは非常にありがとうございます本当に申し訳ありません私は本当に申し訳ありませんが、私はコストを言及することを忘れていたparanthisis陰性、かっこなしの通常の方法がありますか? –

+0

これと 'Abs'のために' Replace'を使うことができます - 編集を参照してください。 – Gustav

+0

あなたは天才私の友人に感謝します。どのように私は笑に評判を追加することができます:Sそれは私がそれを投票するのに十分な評判を持っていないようです –