Question

我在互联网上找到了这段代码，但我不知道如何在访问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 5
   strPin = strPin & Int(10 * Rnd)
Next

Me.Tekst49 = strPin
End Sub

正如私人分组所说，这是一个onclick事件。有人可以告诉我，插入新记录后，BeforeUpdate和AfterUpdate是否意味着什么？因为这就是我喜欢的，一个在表单加载和开始新记录后生成的数字。

Answer 1

如果您只想显示值，请创建一个文本框并执行以下操作

For i = 1 To 4 
    strPin = strPin & Int(10 * Rnd) 
Next
me.myTextBox = strPin

你也可以对标签做同样的事情：

me.mylabel.caption = strPin

Answer 2

你想要实现的目标是什么？现有的VBA代码将创建“JobNr [randomnumber]”，例如“JobNr8123”。

Rnd()创建一个介于0和1之间的随机数，表达式Int(10 * Rnd)创建一个0到10之间的随机数（确切地说，它是一个0到9.99999之间的随机数，总是会下降到9）。由于迭代次数超过4次，随机数实际上变为4位数 - 使用Int(1000 * Rnd)可以更轻松地完成这一操作。

如何将此代码作为文本标签添加到访问表单中？

2 个答案: