Office中国论坛/Access中国论坛

标题: 窗体记录问题 [打印本页]

作者: cangqiong 时间: 2008-1-31 10:49
标题: 窗体记录问题
[attach]28257[/attach]

请高手指点

作者: 咱家是猫 时间: 2008-1-31 10:56
请简单说明具体问题

作者: cangqiong 时间: 2008-1-31 10:59
项目备注
其他内容
新人实习
新人训练

如果项目是 "其他内容" 则备注一定要填写如果不填不让填写下一条记录
如果项目不是 "其他内容" 则备注可以填也可以不填.

作者: cangqiong 时间: 2008-1-31 11:00
请看附件....的内容..谢谢

作者: 咱家是猫 时间: 2008-1-31 11:19
Private Sub Form_BeforeUpdate(Cancel As Integer)

If Me.损失项目 = "其他内容" Then
      If IsNull(Me.备注) Then
         MsgBox "因为你选择的是其他内容，请把具体内容输入到备注栏。"
         Cancel = True
      End If
End If

End Sub

作者: dreamice01 时间: 2008-1-31 11:22
在项目所在控件的AFTERCHANGE事件中写这个代码就可以吧

if 项目="其它内容"  then
if isnull(备注) then
   msgbox"必填"
   备注.setfocus
endif

end if

作者: cangqiong 时间: 2008-1-31 11:26
谢谢!!!非常感谢!!!

作者: cangqiong 时间: 2008-1-31 12:11
还想问个问题....如果是 "其它内容" 框变成红色如果不是 "其他内容 "变成黄色
语名怎么写

作者: 咱家是猫 时间: 2008-1-31 14:23
条件格式
If Me.损失项目 = "其他内容" Then
      If IsNull(Me.备注) Then
         If Not isnull(0810) and Not isnull(0802) then
               MsgBox "因为你选择的是其他内容,且月份已填写内容，请把具体内容输入到备注栏。"
               Cancel = True
         End If
      End If
End If

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