Access中某一列随机插入一定范围内数字

woshifanlei

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

roych

看看是不是这样。

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

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)

2020-6-25 12:09 上传

点击文件名下载附件

goodwin168

这个借鉴学习一下

woshifanlei

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
这个有问题吗

woshifanlei

roych 发表于 2020-6-25 12:09
看看是不是这样。

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

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

复制代码

这个有问题吗

roych

Randomize最好在循环体内运行，否则跑出来的可能是同一个随机值。其他没啥好说的。你自己看看跑出来的结果是否符合需求就好了。

"设计强度" = "C30"

理论上，这一句大概是有问题的。前面我的例子写得很清楚了，是对一个数据集来跑的。如果这个“设计强度”是控件，可以用Me.设计强度，如果是表字段，可以用表![设计强度]。如果确实是文本的话，那应该会跳出if。