輸入資料比對資料表轉換到別的資料表 - Excel程式區

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

11^# 跳轉到 »

發表於 2016-10-19 12:42 | 顯示全部帖子

本帖最後由 v03586 於 2016-10-19 12:43 編輯

回復 16# GBKEE

感謝版大...!! 現如今改掉限制後發現一個問題
Lot 部分只能Keyin 一個字元就往下一格跳
即使使用刷條碼的方式 , 例如 EE000-0001 , Lot 格式就只帶E , PCS 那欄會跳E000-0001
回溫後使用期限的時間格式 , 也無法手動修改如下圖 , 修改一個數字就往下一格跳

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

12^#

發表於 2016-10-19 13:27 | 顯示全部帖子

回復 18# GBKEE

版大, 我有修改過工號跟層架編號解除限制 , 不知道是否影響那一欄的判斷
工號

Private Sub TextBox1_Change() '** 控制項有變動 : 程式作用資料格式的檢查
Dim St As String, Msg As Boolean, I As Integer
St = Trim(TextBox1)
Msg = St <> "" And Len(St) > 1: If Not Msg Then GoTo Ne '**Msg=False 程式移到 Ne 繼續執行
Ne:
TheMsg 1, Msg
End Sub

複製代碼

層架編號

Private Sub TextBox2_Change()
Dim St As String, Msg As Boolean
St = Trim(TextBox2)
Msg = St <> ""
TheMsg 2, Msg
End Sub

複製代碼

接下來Lot 是依照版大所以修改的

如下版大請我嘗試修改的範圍

Private Sub TheMsg(T As Integer, Msg As Boolean) ''** 程式作用資料輸入格式的檢查
'** 乎叫此程式須帶有參數1 ,參數2
Dim St As String
Text_Ar(T).BackColor = IIf(Msg, 正常色, 錯誤色)
Text_Msg(T) = Msg
ComButton_檢查
If ComButton.Enabled Then ListBox1_Change
If ComButton.Enabled Then
ComButton.SetFocus '**SetFocus 方法將駐點移到此物件的執行個體上。
ElseIf Msg Then '**輸入格式的正確下移至下一個控制項
'*****************這裡試著修改 ****************************
If T > 2 And T <> 5 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus
'********************************************************
End If
End Sub

複製代碼

我修改了紅色字體 , 變成PCS一個字元就跳去下一格, 回溫後使用期限 , 點兩下變成1899年...也是修改一個數字就跳去下一個
If T > 1 And T <> 4 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus

我修改了紅色字體 , 變成LOT、回溫後使用期限修改一個字元就跳去下一格, 回溫使用期限點兩下變成1899年...
可否將膠紙製造日, 到期日不卡規則呢?? 因為也是刷條碼, 廠商條碼格式就像當初的一樣是字元格式 ”20171011” , 再由程式去轉換時間格式
If T > 3 And T <> 6 And T <> UBound(Text_Ar) Then Text_Ar(T + 1).SetFocus

TOP

v03586

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

13^#

發表於 2016-10-21 13:29 | 顯示全部帖子

回復 20# GBKEE

版大您好!! 昨天將系統上線後, 使用者Feedback 的意見, 他們提到希望只要輸入有效資料
資料表上需計算有效資料僅有
      『冰箱-Database』 G欄位-膠紙到期日
      『回溫區-Database』 F欄位-回溫後使用期限
      『氮氣櫃-Database』 F欄位-回溫後使用期限
故希望將無效資料刪除, 節省人員作業時間
刪除後
資料欄位如下圖, 如此一來計算欄位就一致了!! 就不會像之前冰箱特別在某一欄, 其他兩個欄位不一樣

修改後的IN/OUT 畫面如下圖
取出的畫面, 使用者雖然再查詢頁面找到Lot , 但資料筆數太多了...昨天找了很久, 可否新增一個需要輸入P/N 再讓使用者按拿取的畫面
(使用者也是刷條碼)

放進去的畫面, 除了冰箱不輸入, 回溫後使用期限, 其他都要輸入回溫後使用期限
不同一點的是, 冰箱要輸入膠紙到期日, 其他的則不需要輸入膠紙到期日 ,
工號, 層架. Lot 不卡資料格式 ,
PCS僅支援 1~999 , 先前改完判斷輸入1個數字就會跳到下一格
膠紙到期日一樣是回溫區,與氮氣櫃需要輸入, 一樣是刷條碼方式, 20161010 程式解析

之前輸入回溫後使用期限, 時間格式, 輸入到分 , 就會跳到下一格, 是否能有解呢??

放入日期是否可以改成按下按鈕的同時自動帶入資料庫就行了

TOP

[發問] 輸入資料比對資料表轉換到別的資料表

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 輸入資料比對資料表 轉換到別的資料表

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]

[發問] 輸入資料比對資料表轉換到別的資料表