Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.手法号 = 1 Or Me.手法号 = 21 Then
If IsNull(Me.折旧费) Then
MsgBox "请输入折旧费"
Me.折旧费.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.手法号 = 1 Or Me.手法号 = 21 Then
If IsNull(Me.折旧费) Then
MsgBox "请输入折旧费"
Me.折旧费.SetFocus
Cancel = True
End If
End If
End Sub