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

et010884

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

Hsieh

回復 1# et010884

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

et010884

回復 2# Hsieh
Hi 大大:

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

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

Hsieh

回復 3# et010884
最基本的做法
訂單製品查詢.zip (17.94 KB)

下載次數: 42

2013-12-17 10:53

et010884

回復 4# Hsieh
謝謝 受益良多

et010884

複本 訂單製品查詢.zip (17.27 KB)

下載次數: 30

2013-12-19 09:48

回復 4# Hsieh


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

Hsieh

回復 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

複製代碼