Private Sub Serialtxt_BeforeUpdate(Cancel As Integer)
Dim i As Long
Randomize ' Initialize random-number generator.
i = Int((900000 + 1) * Rnd + 100000)
Do While DCount("ID", "Check Requests", "ID = " & i) ' "Check Requests" is the table name.
i = Int((900000) * Rnd + 100000)
Loop
SERIAL...