Foxtable(狐表)用户栏目专家坐堂 → 求代码


  共有2409人关注过本帖树形打印复制链接

主题:求代码

帅哥哟,离线,有人找我吗?
188802386
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
求代码  发帖心情 Post By:2014/4/28 15:41:00 [只看该作者]

模糊查询后面是个 "textbox1"  后面有个新增按钮“Button5"  
请问 如何实现   ”textbox1"  为空时 禁止新增   "textbox1"不为空时则可以新增呢 

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/28 15:42:00 [只看该作者]

 If e.Form.Controls("TextBox1").Text > "" Then

      '新增

 Else

     Msgbox("不能新增")

 End If


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/28 15:44:00 [只看该作者]

if e.form.controls("TextBox1").text="" then
  e.form.controls("Button5").Enabled=false
else
e.form.controls("Button5").Enabled=true
end if

 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/4/28 15:54:00 [只看该作者]

谢谢 

 回到顶部