求助老师,
以下红色字体是我增加的代码,现在保存输入 Me.PGqty数据时,不管有没有超出规定值,点保存时都会体现保存成功!另外,如何做到当输入Me.PGqty时先判断是否(strFqty +Me.PGqty)> strZqty,如果是则数据不可保存,且会提示超过数量值?谢谢
Private Sub btnSave_Click()
On Error GoTo ErrorHandler
If Not CheckRequired(Me) Then Exit Sub
If Not CheckTextLength(Me) Then Exit Sub
Dim cnn: Set cnn = GetADOConnection()
'cnn.BeginTrans
'Dim blnTransBegin As Boolean: blnTransBegin = True
Dim strSQL: strSQL = "SELECT * FROM [lblproductreport_group] WHERE [No]=" & Nz(Me![No], 0)
Dim rst: Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
If rst.EOF Then rst.AddNew
UpdateRecord Me, rst
'你的自定义代码
'rst!Field1 = Me!Field1
'rst!Field2 = Me!Field2
rst.Update
rst.Close
Dim strZqty: strZqty = DLookup("ZLqty", "lblzlcode", "ZLID='" & Me.ZLID & "'")
Dim strFqty: strFqty = DLookup("Totalqty", "qryzlfinish_totalqty", "ZLID='" & Me.ZLID & "'and SID='" & Me.SID & "'")
Dim strUFqty: strUFqty = DLookup("unfinishqty", "qryzlunfinish_qty", "ZLID='" & Me.ZLID & "'and SID='" & Me.SID & "'")
If strFqty <= strZqty Then
Me.AllowAdditions = True
End If
If strFqty > strZqty Then
MsgBox (strUFqty - Me.DataEntry)
If MsgBox("你刚录入的数据大于订单量,请重新录入", vbOKCancel, "提示") = vbOK Then
Me.AllowAdditions = False
Me.PGqty = ""
End If
Exit Sub
End If
'cnn.CommitTrans
'blnTransBegin = False
RequeryDataObject gsfrList
MsgBoxEx LoadString("Saved Successfully."), vbInformation
If Me.DataEntry Then
Me.InitData
Else
DoCmd.Close acForm, Me.Name, acSaveNo
End If
ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub
ErrorHandler:
'If blnTransBegin Then
' cnn.RollbackTrans
' blnTransBegin = False
'End If
RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
Resume ExitHere
End Sub