Office中国论坛/Access中国论坛

标题: 请教vba写法 [打印本页]

作者: luqigaoyan 时间: 2004-2-13 22:46
标题: 请教vba写法
比如窗口中有 a b c d 四个选择，就是布尔形的，打勾的那种

如何实现在a b c 中打勾后，然后d 自动打勾呢？？？

谢谢，很急！

作者: 徐阿鹏 时间: 2004-2-13 22:55
if a＝true and b＝true and c＝true then
d＝true
end if
在a、b、c的单击事件中写上

作者: luqigaoyan 时间: 2004-2-13 23:11
还有问题，菜兄！

就是如果打勾的时候弹出一个窗口一个按钮是确定一个按钮是 cancel 这两个按钮如何写呢？？
可否用宏实现？？

作者: 徐阿鹏 时间: 2004-2-13 23:25
是不是弹出对话框？
可以用msgbox函数阿！
例：
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "确认要打钩吗？可以后悔的阿！"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "后悔的机会"
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 如果按是的话
。。。。。‘你想要干的事情
Else '如果按放弃的话
。。。。。
End If
用宏的话，。。。。。很抱歉，宏我没有用过！

作者: luqigaoyan 时间: 2004-2-13 23:41
呵呵，可否给我单击确定那么这个勾就打上单击 cancel 那么这个勾就不打

的具体代码？？？？呵呵，我很菜

作者: luqigaoyan 时间: 2004-2-14 00:10
我会了，谢谢！

作者: 徐阿鹏 时间: 2004-2-14 00:34
标题: 你要的例子
[attach]3478[/attach]

作者: luqigaoyan 时间: 2004-2-14 01:07
急呀，反之如何呀，比如本来勾是打着的  ，现在就要出现对话框，时候要取消呀，如何用if实现呢？？
Private Sub 工作单完成_Click() '打勾
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "确认要打钩吗？可以后悔的阿！"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "后悔的机会"
Help = "DEMO.HLP"
Ctxt = 1000

Dim Msg1, Style1, Title1, Help1, Ctxt1, MyString1
Msg1 = "确认要取消吗？"
Style1 = vbYesNo + vbExclamation + vbDefaultButton2
Title1 = "确认要取消吗？"
Help1 = "DEMO.HLP"
Ctxt1 = 1000

If 工作单完成 = flase Then
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 如果按是的话
   Me.工作单完成 = True
Else '如果按放弃的话
   Me.工作单完成 = False
End If
Else
Response = MsgBox(Msg1, Style1, Title1, Help1, Ctxt1)
If Response = vbYes Then  ' 如果按是的话
   Me.工作单完成 = False
Else '如果按放弃的话
   Me.工作单完成 = True
End If
End If

End Sub       这样写为何不对呀！！！！？？

作者: luqigaoyan 时间: 2004-2-14 07:38
顶！继续问！上面的程序哪里错了

作者: luqigaoyan 时间: 2004-2-15 06:33
ding

作者: 徐阿鹏 时间: 2004-2-17 16:43
标题: 新的例子
[attach]3510[/attach]
新的例子

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