设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 918|回复: 3
打印 上一主题 下一主题

[其它] 这个提示怎么做啊.

[复制链接]
跳转到指定楼层
1#
发表于 2004-2-4 23:09:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如果在一行里已输入收入,那再次输入支出时,就提示不能输入支了.如果已输入支出,再次输入收入时.就提示不能输入收入.

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2004-2-4 23:49:00 | 只看该作者
Private Sub 收入_GotFocus()
If Me.支出 > 0 Then
MsgBox "对不起,你已经在此行中输入了支出,不能再输入收入!", vbExclamation + vbOKOnly, "提示"
Me.支出.SetFocus
End If
End Sub

Private Sub 支出_GotFocus()
If Me.收入 > 0 Then
MsgBox "对不起,你已经在此行中输入了收入,不能再输入支出!", vbExclamation + vbOKOnly, "提示"
Me.收入.SetFocus
End If
End Sub

还有可以用LOCKED(锁定控件)的方法,
当输入收入后,锁定支出,
输入支出后,锁定收入
3#
 楼主| 发表于 2004-2-5 00:43:00 | 只看该作者
LOCKED锁定控件在哪里,怎么用啊,这个我没用过.
那台果我想在输入支出前,必须输入收入,这个提示怎么做啊.请指教!

[此贴子已经被作者于2004-2-4 16:46:54编辑过]

4#
发表于 2004-2-5 01:07:00 | 只看该作者
当收入大于0时,锁定支出,不能输入
Private Sub 支出_GotFocus()
If Me.收入 > 0 Then
me.支出.locked=true
Me.收入.SetFocus
else
me.支出.locked=false
End If
End Sub

想在输入支出前,必须输入收入,改一下上面的就行

Private Sub 支出_GotFocus()
If isnull(Me.收入) or me.收入= 0 Then
MsgBox "对不起,收入不能为空!", vbExclamation + vbOKOnly, "提示"
Me.收入.SetFocus
End If
End Sub




[此贴子已经被作者于2004-2-4 17:07:36编辑过]

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-16 07:54 , Processed in 0.090385 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表