доступ vba выполнить после вставки новой записи

Question

У меня есть VBA для генерации случайного числа.Это число генерируется после открытия формы, это хорошо, но оно также должно генерировать код после создания новой записи, как это можно сделать?

Private Sub Form_Open(Cancel As Integer)
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.random_nr = strPin
End Sub

Answer 1

Если этот код делает то, что вы хотите, вы можете переместить его в отдельную процедуру в модуле формы.

Private Sub UpdateRandNum()
    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.random_nr = strPin
End Sub

Затем изменить форму Открыть:

Private Sub Form_Open(Cancel As Integer)
    UpdateRandNum
End Sub

и вызватьэто снова из события после вставки формы.

Private Sub Form_AfterInsert()
    UpdateRandNum
End Sub