我在access2007中用vba写代码,发现一个在access03中正常的问题。
if 条件成立 then
if msgbox(“条件成立”,vbyesno)= vbyes then
else
exit sub
end if
end if
for i = 1 to mx
........
发现如果前面的if语句没有,则正常,如果加上了if语句,对话框出来后点击yes,就会出现错误,类似于循环无法执行下去的错误。
而这些在03版的access vba中完全正常。
请问哪里需要改进呢?
access vba中,if语句的疑问
答案:4 悬赏:50 手机版
解决时间 2021-02-20 02:05
- 提问者网友:送舟行
- 2021-02-19 22:25
最佳答案
- 五星知识达人网友:摆渡翁
- 2021-02-19 23:28
我觉得条件成立,就可以了,你的代码用了两次条件成立。
if msgbox(“条件成立”,vbyesno)= vbyes then
else
exit sub
end if
for i = 1 to mx
........
if msgbox(“条件成立”,vbyesno)= vbyes then
else
exit sub
end if
for i = 1 to mx
........
全部回答
- 1楼网友:轮獄道
- 2021-02-20 01:44
改写为:
if 条件成立 then
if msgbox(“条件成立”,vbyesno)= vbNo then
exit sub
end if
'继续可以运行的代码
‘...........
end if
for i = 1 to mx
云驰软件(房地产、进销存、财务软件)!
- 2楼网友:不如潦草
- 2021-02-20 00:46
我觉得条件为真时,可以保持你的代码有两个条件。
如果MSGBOX(“规定的条件”,vbyesno)= vbyes
其他
退出子
结束,如果
为i = 1到MX ...... /> ........
- 3楼网友:雾月
- 2021-02-20 00:34
private sub command1_click()
dim sql as string
dim rst as dao.recordset
sql = "select dgzy.usename from dgzy where (((dgzy.usename) like " & '张三' & "))"
set rst = currentdb.openrecordset
'然后你就可以处理rst了,rst就是返回的记录集
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯