台灣最大程式設計社群網站
線上人數
754
 
會員總數:245794
討論主題:189426
歡迎您免費加入會員
討論區列表 >> ACCESS >> 如何在特定資料產生特定折扣?
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
如何在特定資料產生特定折扣?
價值 : 50 QP  點閱數:223 回應數:9
樓主

Eat D Wong
門外漢
0 3
82 4
發送站內信

如何在"產品編號"選下的PZZZZZZ01後,"折扣"資料自動變成寫下"1"?




搜尋相關Tags的文章: [ 特定資料產生 ] ,
本篇文章發表於2020-03-08 21:26
1樓
回應

P陳
檢舉此回應
這不難 但
您的折扣中 有的 1 有的 0.96
合計那 4筆 就應該不是 0.96 了

折折資料要放在產品主檔內,選的時候再帶過來即可

本篇文章回覆於2020-03-08 22:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

Eat D Wong
檢舉此回應
SORRY~我應該說得不夠清楚!是這樣的,所有折扣是根據客戶資料內的"折扣"所提供.每筆客戶會對每個產品有不同金額,
但一個客戶的折扣就全是統一"0.96".只有這個PZZZZZ01的回收桶一定要"1"的折扣,當選PZZZZZZ01時也會自到把"0.96"加到折扣中,
有方法選PZZZZZ01時,把折扣由"0.96"改到"1"嗎?THANK YOU
本篇文章回覆於2020-03-08 22:29
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

P陳
檢舉此回應
那我們還要再加一個 折扣檔 (客戶編號 貨品編號 折扣)

當銷貨主檔的 客戶編號 貨品編號 數量 打完後,就去貨品主檔取得單價 再到 折扣檔去取回 折扣 等等
折扣檔中不存在的就是 1



本篇文章回覆於2020-03-09 07:58
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

Eat D Wong
檢舉此回應
這也可以,但要用超長時間修改折扣(因客戶差不多一萬個,貨品都有3000多).有沒有方法當選擇"PZZZZZ01回收桶"的折扣指定是"1"(因所有客戶對這個貨品折扣都只會是"1")?用VBA可以寫到嗎?的試過效果不正確.
Private Sub ProductNumber_Click()
"[ProductNumber] = 'PZZZZZZ01'"
else [Discount] = "1"
end if
End Sub

最後選時效果是;當選PZZZZZ01,折扣會是"1",但選其他產品也自動跳到PZZZZZ01....
本篇文章回覆於2020-03-09 16:47
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

羅伯斯
檢舉此回應
依樓主的描述,不容易看出問題所在,可以說明一下你的資料表結構嗎?(客戶及貨品資料表)
本篇文章回覆於2020-03-09 23:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
作者回應

Eat D Wong
檢舉此回應
三份資料表.1.[客戶],內容有"客戶編號~客戶名稱~折扣~等等......"
2.[貨品],內容有"貨品編號~貨品名稱~客戶編號~價值~折扣~等等......"
3.[發票],內容有"發票編號~貨品編號~客戶編號~折扣~價格~等等......"
因每個客戶對貨品的折扣都有不同,例如客戶A所有貨品是0.96折,客戶B貨品折扣是0.98.但所有客戶對一個貨品"PZZZZZ01"的回收桶都沒有折扣,是"1".
我在[發票]表單中當選貨品編號時,它會跟著客戶編號把預設好的貨名,價格,折扣都自動寫入去.所以客人A折扣預設會是0.96折,但貨品"PZZZZZ01"的回收桶一定要是"1",因為不想手動把折扣每次從0.96用手改動打1上去.想知道有甚麼方法(如VBA)可以把PZZZZZ01自動改做"1"

請各位高手幫忙~thank you!
本篇文章回覆於2020-03-10 03:56
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
回應

MIS2000 Lab
檢舉此回應
我覺得「P陳」大大的規劃與說明是正確的

您應該拉出一個專門管理折扣的資料表,哪位會員有哪種折扣?
不應該把折扣寫死在每一個產品裡面
本篇文章回覆於2020-03-10 08:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
最有價值解答

roar
檢舉此回應
Private Sub CompanyID_AfterUpdate()
If ProductID.Value = 5 Then '選擇買yam時設定Customer的discount=1
Me.discount.Value = 1
End If
End Sub
檔案如下:https://drive.google.com/open?id=1VO2JRHsQwsLzdba73UePGR5DxFblyi1s
本篇文章回覆於2020-03-10 20:22
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
回應

P陳
檢舉此回應
最簡單的是用一個折扣表,沒有在表上的就是1
用程式寫 if 只會累死你,更何況修改時會再死一次

另你四樓的寫法?? 1.discount 應該是數字吧
" 也用錯了,這個程式您真的有跑過嗎?

Private Sub ProductNumber_Click()
"[ProductNumber] = 'PZZZZZZ01'"
else [Discount] = "1"
end if
End Sub
本篇文章回覆於2020-03-10 22:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.