access模块中的if语句

woshifanlei

语句如下，请大神纠正一下

1. Randomize
   
2.         If "设计强度" = "C30" Then
   
3.         rst("抗压力值1") = Round(800 + 100 * Rnd(), 1)
   
4.         ElseIf "设计强度" = "C25" Then
   
5.         rst("抗压力值1") = Round(700 + 100 * Rnd(), 1)
   
6.         ElseIf "设计强度" = "C20" Then
   
7.         rst("抗压力值1") = Round(520 + 100 * Rnd(), 1)
   
8.         ElseIf "设计强度" = "C15" Then
   
9.         rst("抗压力值1") = Round(400 + 100 * Rnd(), 1)
   
10.         ElseIf "设计强度" = "C10" Then
    
11.         rst("抗压力值1") = Round(260 + 100 * Rnd(), 1)
    
12.         ElseIf "设计强度" = "C35" Then
    
13.         rst("抗压力值1") = Round(910 + 100 * Rnd(), 1)
    
14.         ElseIf "设计强度" = "C40" Then
    
15.         rst("抗压力值1") = Round(1050 + 100 * Rnd(), 1)
    
16.         ElseIf "设计强度" = "C45" Then
    
17.         rst("抗压力值1") = Round(1200 + 100 * Rnd(), 1)
    
18.         ElseIf "设计强度" = "C50" Then
    
19.         rst("抗压力值1") = Round(1300 + 100 * Rnd(), 1)
    
20.         ElseIf "设计强度" = "C55" Then
    
21.         rst("抗压力值1") = Round(1450 + 100 * Rnd(), 1)
    
22.         End If

复制代码

kuangben8

"设计强度" = "C30"
这句没有问题吗？

【万言书_新人必读_十年之后的文章】《新人提问指南--EH版》V1.1版
https://club.excelhome.net/thread-846394-1-1.html
(出处: ExcelHome技术论坛)

woshifanlei

kuangben8 发表于 2020-9-5 17:20
"设计强度" = "C30"
这句没有问题吗？

没有  可能这个if有问题

ly

woshifanlei 发表于 2020-9-5 17:39
没有  可能这个if有问题

楼上老师的提问你没有认真思考！

就此代码的逻辑，因为if 文本1=文本2 这个等式条件结果都是False，所以无果。

要正确运行，或rst("设计强度")=文本值，或me!窗体上某控件=文本值......

另多条件分支，建议用：
Select Case
...
End Select

最后，提问时上个附件效率更高。

如果我的建议对你有帮助，请送上小花，以资鼓励。谢谢！

roych

ly 发表于 2020-9-6 08:20
楼上老师的提问你没有认真思考！

就此代码的逻辑，因为if 文本1=文本2 这个等式条件结果都是False，所 ...

这个是几个月前的帖子了。附件见以下链接。http://club.excelhome.net/thread-1534559-1-1.html
当时本着治病救人的态度，去回复一些无人问津的僵尸贴，脚本也算是写得清清楚楚了，但有人就算抄也抄不对，我能有什么办法呢？
所谓“基础不牢，地动山摇”，说得大概就是这种情况吧。也许楼主很生气，不过我还是建议多花点时间去把VBA的变量定义，基本语句等等吧。——当然，如果确实是一锤子买卖的话，不看也行，下次继续当伸手党就好了。如果提供一颗纽扣，就盼着别人缝制一件大衣的话，这未免有些过分。至少我不是这样的裁缝。