Office中国论坛/Access中国论坛

标题: 组合框的问题 [打印本页]

作者: cangqiong 时间: 2008-9-9 15:29
标题: 组合框的问题
[attach]32000[/attach]
想要的效果手法号选译1或21时折旧费必须填写,不填写,不让填第二记录.....选译其他手法号,填折旧费也可以,不填折旧费也可以,也可以为空

作者: Henry D. Sy 时间: 2008-9-9 15:50
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

作者: Henry D. Sy 时间: 2008-9-9 16:18
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)