返回列表 上一主題 發帖

[發問] 如何製作簡易的訂單製品查詢系統

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-16 13:08 | 只看該作者

[發問] 如何製作簡易的訂單製品查詢系統

Hi 各位大大
附件是我想要製作的模式
主要要統合我目前繁亂的訂單系統
懇請各位大大幫忙

訂單製品查詢.zip (17.46 KB)

收藏 分享
師我

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
95  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-12-16 16:12 | 只看該作者
回復 1# et010884

自動累加的項目編號想要的效果為何?
與需要產生編號的CheckBox有甚麼關聯?
A欄的月份是要寫入填寫當日的月份或是英文字母代表?
學海無涯_不恥下問

TOP

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
3#
發表於 2013-12-17 08:41 | 只看該作者
回復 2# Hsieh
Hi 大大:

自動累加的項目編號想要的效果為何?    自動累加由001開始到999
與需要產生編號的CheckBox有甚麼關聯? 若勾選擇則不產生編號
A欄的月份是要寫入填寫當日的月份或是英文字母代表?月份用字母替代 A~L 換月份時 則項目編號又由001開始計算

月份        編號
A        001 累加到999
B         001 換月份重新累計
師我

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
95  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2013-12-17 10:53 | 只看該作者
回復 3# et010884
最基本的做法
訂單製品查詢.zip (17.94 KB)
學海無涯_不恥下問

TOP

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
5#
發表於 2013-12-18 16:48 | 只看該作者
回復 4# Hsieh
謝謝 受益良多
師我

TOP

et010884

帖子
15 
主題
6 
精華
0 
積分
67 
點名
0  
作業系統
windows 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
TW 
註冊時間
2011-4-26 
最後登錄
2023-11-13 
6#
發表於 2013-12-19 09:52 | 只看該作者
複本 訂單製品查詢.zip (17.27 KB) 回復 4# Hsieh


    Hsieh 大大:
再麻煩一下
我若想在訂單編號旁設定一個搜尋按鈕
可以讓我選擇分頁或搜尋資料庫的資料
直接將灰色地方的該如何新增

擷取.JPG (44.15 KB)

擷取.JPG

師我

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
95  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-24 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2013-12-19 10:14 | 只看該作者
回復 6# et010884
  1. Private Sub CommandButton3_Click()
  2. Dim A As Range
  3. Set A = Sheets("總表").[H:H].Find(TextBox48, lookat:=xlWhole)
  4. If Not A Is Nothing Then
  5.    TextBox52 = A.Offset(, -2).Value
  6.    TextBox51 = A.Offset(, -3).Value
  7.    TextBox50 = A.Offset(, -1).Value
  8.    TextBox53 = A.Offset(, 1).Value
  9.    TextBox55 = A.Offset(, 2).Value
  10.    Else
  11.    TextBox52 = ""
  12.    TextBox51 = ""
  13.    TextBox50 = ""
  14.    TextBox53 = ""
  15.    TextBox55 = ""
  16.    MsgBox "無此訂單"
  17. End If
  18. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題