Ms access 如何将此代码作为文本标签输入访问表单?
我在互联网上找到了此代码,但我不知道如何在access 2010表单上显示此代码 有人能帮我吗Ms access 如何将此代码作为文本标签输入访问表单?,ms-access,Ms Access,我在互联网上找到了此代码,但我不知道如何在access 2010表单上显示此代码 有人能帮我吗 Dim strPin As String Dim i As Integer strPin = "JobNr" 'Set seed Call Randomize For i = 1 To 4 strPin = strPin & Int(10 * Rnd) Next 问题编辑: 我有这个,请不要看标记,这只是一个测试 Private Sub Tekst49_Click(
Dim strPin As String
Dim i As Integer
strPin = "JobNr"
'Set seed
Call Randomize
For i = 1 To 4
strPin = strPin & Int(10 * Rnd)
Next
问题编辑:
我有这个,请不要看标记,这只是一个测试
Private Sub Tekst49_Click()
Dim strPin As String
Dim i As Integer
strPin = "JobNr: "
'Set seed
Call Randomize
For i = 1 To 5
strPin = strPin & Int(10 * Rnd)
Next
Me.Tekst49 = strPin
End Sub
正如私人潜水艇所说,这是一个onclick事件。
有人能告诉我更新前和更新后是否意味着插入新记录后?
因为这就是我想要的,一个在表单加载和开始新记录后生成的数字。您想要实现什么?
当前的VBA代码将创建“JobNr[randomnumber]”,例如“
JobNr8123
”
Rnd()
创建一个介于0和1之间的随机数,表达式Int(10*Rnd)
创建一个介于0和10之间的随机数(确切地说,它是一个介于0和9.99999之间的随机数,通常会归结为9)。当这个过程重复4次时,随机数实际上变成了4位数字-使用Int(1000*Rnd)
可以更轻松地实现这一点,效果相同。如果您只想显示值,请创建一个文本框,然后执行以下操作
For i = 1 To 4
strPin = strPin & Int(10 * Rnd)
Next
me.myTextBox = strPin
您也可以对标签执行相同的操作:
me.mylabel.caption = strPin
实际上,循环不会覆盖strPin,因为它每次都在连接。所要做的就是生成四个随机数字并将它们附加到初始字符串。为什么一次调用Rnd()并乘以1000并用前导零填充就不能做到这一点,我一点也不知道。难道
Int(10*Rnd)
不创建一个介于0(不是1)和9.99之间的随机数(然后将其转换为Int)?谢谢大家,我已经回答了我的问题,有人能告诉我一个新的随机数是如何在一个新记录之前和之后生成的吗?