點擊保存按鈕后的判斷: If Err.Number = 0 Then
Dim strDescript As String
If Not bReplace Then
strDescript = "保存成功!" & vbCr & "是否繼續新增?!"
Else
strDescript = "[生產批次]自動取為:" & txt(0).Text & vbCr & "保存成功!" & vbCr & "是否繼續新增?!"
End If
bNewOK_PB = True
If MSGSelectYN(strDescript, "New PB") = 6 Then
'繼續新增
iEditTypePB = 0
Call cmdReset_Click
Call WorkNormal
Else
'返回frmDataMain
Call WorkNormal
Unload Me
End If
Else
Call MSGError("保存失敗" & vbCr & "請檢查錄入的數據是否正確!" & vbCr & Err.Number & vbCr & Err.Description, "New PB")
rstPB.CancelUpdate
'Resume
Call WorkNormal
End If
最近一直出現的狀況,點擊確定按鈕后:
保存失敗
請檢查錄入的數據是否正確!
-2147217900
資料行名稱或提供的數值數量與資料表定義不相符
雖然有這個提示,但是數據都已經保存進去了。
查看數據庫中的資料也有,打開介面也可以看到新增的這筆。
在自己電腦上面測看不到這個錯誤,沒法斷點查找。
但是使用者在自己電腦上面操作就會出現這個情況,我用他們的帳號報工也不會出現這種情況
想請教下問題可能出在哪?
Dim strDescript As String
If Not bReplace Then
strDescript = "保存成功!" & vbCr & "是否繼續新增?!"
Else
strDescript = "[生產批次]自動取為:" & txt(0).Text & vbCr & "保存成功!" & vbCr & "是否繼續新增?!"
End If
bNewOK_PB = True
If MSGSelectYN(strDescript, "New PB") = 6 Then
'繼續新增
iEditTypePB = 0
Call cmdReset_Click
Call WorkNormal
Else
'返回frmDataMain
Call WorkNormal
Unload Me
End If
Else
Call MSGError("保存失敗" & vbCr & "請檢查錄入的數據是否正確!" & vbCr & Err.Number & vbCr & Err.Description, "New PB")
rstPB.CancelUpdate
'Resume
Call WorkNormal
End If
最近一直出現的狀況,點擊確定按鈕后:
保存失敗
請檢查錄入的數據是否正確!
-2147217900
資料行名稱或提供的數值數量與資料表定義不相符
雖然有這個提示,但是數據都已經保存進去了。
查看數據庫中的資料也有,打開介面也可以看到新增的這筆。
在自己電腦上面測看不到這個錯誤,沒法斷點查找。
但是使用者在自己電腦上面操作就會出現這個情況,我用他們的帳號報工也不會出現這種情況
想請教下問題可能出在哪?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货