如何计算字段的值

liaoqiang234

如何计算字段的值，字段很多，如何去判断，详见附件

红尘如烟

1. Private Sub Command12_Click()
   
2. Dim strSQL As String
   
3. If IsNull(Me.模号) Then
   
4. MsgBox "模号不能为空。", vbExclamation
   
5. 
   
6. ElseIf IsNull(Me.出货工段) Then
   
7. MsgBox "出货工段不能为空。", vbExclamation
   
8. 
   
9. ElseIf IsNull(Me.接收工段) Then
   
10. MsgBox "接收工段不能为空。", vbExclamation
    
11. 
    
12. ElseIf Nz(Me.出货数量, 0) <= 0 Then
    
13. MsgBox "出货数量必须大于0。", vbExclamation
    
14. 
    
15. ElseIf Me.出货工段 = Me.接收工段 Then
    
16. MsgBox "出货工段不能和接收工段相同。", vbExclamation
    
17. 
    
18. ElseIf Not (Me.出货工段 Like "[A-z]*" And Me.接收工段 Like "[A-z]*") Then
    
19. MsgBox "出货工段和接收工段必须是正确的工段字段，这里假定的判断条件为工段字段都以英文字母开头。", vbExclamation
    
20. Else
    
21. strSQL = "UPDATE 数量 SET " & _
    
22. Me.出货工段 & "=" & Me.出货工段 & "-" & Nz(Me.出货数量, 0) & "," & _
    
23. Me.接收工段 & "=" & Me.接收工段 & "+" & Nz(Me.出货数量, 0) & _
    
24. " WHERE 模号='" & Me.模号 & "'"
    
25. CurrentDb.Execute strSQL
    
26. Me.Child15.Requery
    
27. End If
    
28. End Sub
    

复制代码

liaoqiang234

CurrentDb.Execute strSQL 是什么意思

红尘如烟

运行查询的意思