ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 690|回复: 4

[求助] access模块中的if语句

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-9-5 17:13 | 显示全部楼层 |阅读模式
语句如下,请大神纠正一下
  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
复制代码


TA的精华主题

TA的得分主题

发表于 2020-9-5 17:20 | 显示全部楼层
"设计强度" = "C30"
这句没有问题吗?

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-5 17:39 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
kuangben8 发表于 2020-9-5 17:20
"设计强度" = "C30"
这句没有问题吗?


没有  可能这个if有问题

TA的精华主题

TA的得分主题

发表于 2020-9-6 08:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
woshifanlei 发表于 2020-9-5 17:39
没有  可能这个if有问题

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

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

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

另多条件分支,建议用:
Select Case
...
End Select

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

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

TA的精华主题

TA的得分主题

发表于 2020-9-7 16:28 | 显示全部楼层
ly 发表于 2020-9-6 08:20
楼上老师的提问你没有认真思考!

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

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

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-23 11:54 , Processed in 0.043452 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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