Private Sub 剩余数量_DblClick(Cancel As Integer)
On Error GoTo ERR_
DoCmd.SetWarnings False
If MsgBox("确定将剩余的标签数量复位?", vbOKCancel, "") = vbOK Then
Forms!条码装箱!标签信息!剩余数量 = Forms!条码装箱!标签信息!标签数量 - 1
条码装箱.筒数.SetFocus
End If
EXIT_: Exit Sub
ERR_:
Resume EXIT_
End Sub
==不行
Private Sub 剩余数量_DblClick(Cancel As Integer)
On Error GoTo ERR_
DoCmd.SetWarnings False
If MsgBox("确定将剩余的标签数量复位?", vbOKCancel, "") = vbOK Then
Forms!条码装箱!标签信息!剩余数量 = Forms!条码装箱!标签信息!标签数量 - 1
Forms!条码装箱!筒数.SetFocus
End If
EXIT_: Exit Sub
ERR_:
Resume EXIT_
End Sub
==也不行