et010884

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 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

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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)

師我

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2013-12-19 10:14 | 只看該作者

回復 6# et010884

Private Sub CommandButton3_Click()
Dim A As Range
Set A = Sheets("總表").[H:H].Find(TextBox48, lookat:=xlWhole)
If Not A Is Nothing Then
TextBox52 = A.Offset(, -2).Value
TextBox51 = A.Offset(, -3).Value
TextBox50 = A.Offset(, -1).Value
TextBox53 = A.Offset(, 1).Value
TextBox55 = A.Offset(, 2).Value
Else
TextBox52 = ""
TextBox51 = ""
TextBox50 = ""
TextBox53 = ""
TextBox55 = ""
MsgBox "無此訂單"
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP