- 帖子
- 15
- 主題
- 5
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2013-7-22
- 最後登錄
- 2015-7-21
|
我在網上東找西尋寫好了一個公司走貨用的EXCEL
但有時候好像會沒有回應
暫時發現了問題的有兩個
1 , 使用雷射槍在 SI 方格輸入後不懂跳到BAR CODE格
2 , 在BAR CODE行輸入按下ENTER沒有執行ADD / ERRORADD
我設定的條件是
1 , 兩格都要有10個字 , 方可執行 ADD
2 , 在SI格沒有資料時 , BAR CODE輸入字時自動跳到 SI 格
3 , 在SI格有10個字時 , BAR CODE沒有東西按下ENTER 不會執行 ERRORADD (防止有貨物按住鍵盤引致無限執行ERRORADD)
4 , 在SI格有10個字時 , BAR CODE 0個字以外 / 不是10個字 執行 ERRORADD
5 , BAR CODE沒有任何MSGBOX (防止使用者沒有留意下跳過了下一個BAR CODE)
我覺得問是在這裡...- Private Sub bar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
- If si.Value Like "" Then
- Me.si.SetFocus
- End If
- If KeyCode <> 13 Then Exit Sub
- If si.Value Like "??????????" Then
- If bar.Value Like "??????????" Then
- add
- Me.bar.SetFocus
- Me.bar.Value = ""
- End If
- End If
- If si.Value Like "??????????" Then
- If bar.Value Like "" Then
- Me.bar.SetFocus
- Me.bar.Value = ""
- Else
- erroradd
- End If
- End If
- noExit = True
- End Sub
先謝!
 TakegoodsRecords.zip (23.24 KB)
|
|
發表於 2013-10-28 20:04
| 
