ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] Access中某一列随机插入一定范围内数字

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-4-28 21:44 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 woshifanlei 于 2020-4-29 20:55 编辑

如题:我想要在检验日期这一列插入较上一行相差2分钟左右数据,在抗压力值1/2/3 插入区间为800.0-900.0的随机数值

数据汇总.rar

33.44 KB, 下载次数: 4

TA的精华主题

TA的得分主题

发表于 2020-6-25 12:09 | 显示全部楼层
看看是不是这样。
搜狗截图20200625120643.png
这年头,工程检验都造假了,这影响很不好啊。
  1. Sub test()
  2.     Dim rst As New ADODB.Recordset
  3.     rst.Open "select * from hntky", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  4.    
  5.     Dim startDate As Date
  6.     startDate = #4/28/2020 9:38:22 PM#
  7.    
  8.     Do Until rst.EOF
  9.         Randomize
  10.         rst("检验日期") = DateAdd("s", 90 + 30 * Rnd(), startDate)
  11.         Randomize
  12.         rst("抗压力值1") = Round(800 + 100 * Rnd(), 1)
  13.         Randomize
  14.         rst("抗压力值2") = Round(800 + 100 * Rnd(), 1)
  15.         Randomize
  16.         rst("抗压力值3") = Round(800 + 100 * Rnd(), 1)
  17.         startDate = rst("检验日期")
  18.         rst.Update
  19.         rst.MoveNext
  20.     Loop
  21.     rst.Close
  22.     MsgBox "done!"
  23. End Sub
复制代码
数据汇总.rar (23.07 KB, 下载次数: 12)

TA的精华主题

TA的得分主题

发表于 2020-7-28 14:05 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-5 17:11 | 显示全部楼层
roych 发表于 2020-6-25 12:09
看看是不是这样。

这年头,工程检验都造假了,这影响很不好啊。

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

Randomize
        If "设计强度" = "C30" Then
        rst("抗压力值1") = Round(800 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C25" Then
        rst("抗压力值1") = Round(700 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C20" Then
        rst("抗压力值1") = Round(520 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C15" Then
        rst("抗压力值1") = Round(400 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C10" Then
        rst("抗压力值1") = Round(260 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C35" Then
        rst("抗压力值1") = Round(910 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C40" Then
        rst("抗压力值1") = Round(1050 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C45" Then
        rst("抗压力值1") = Round(1200 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C50" Then
        rst("抗压力值1") = Round(1300 + 100 * Rnd(), 1)
        ElseIf "设计强度" = "C55" Then
        rst("抗压力值1") = Round(1450 + 100 * Rnd(), 1)
        End If
这个有问题吗

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-9-5 17:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
roych 发表于 2020-6-25 12:09
看看是不是这样。

这年头,工程检验都造假了,这影响很不好啊。
  1. 语句如下,请大神纠正一下

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


这个有问题吗

TA的精华主题

TA的得分主题

发表于 2020-9-7 16:11 | 显示全部楼层
本帖最后由 roych 于 2020-9-7 16:17 编辑

Randomize最好在循环体内运行,否则跑出来的可能是同一个随机值。其他没啥好说的。你自己看看跑出来的结果是否符合需求就好了。
"设计强度" = "C30"
理论上,这一句大概是有问题的。前面我的例子写得很清楚了,是对一个数据集来跑的。如果这个“设计强度”是控件,可以用Me.设计强度,如果是表字段,可以用表![设计强度]。如果确实是文本的话,那应该会跳出if。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 02:38 , Processed in 0.046992 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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