• На форуме с 12 апреля 2007г.
  • Сообщений: 47
  • Спасибо: 0

Тема: Идентификатор для ключевого поля таблицы

Здравствуйте.
Как сделать идентификатор для поля таблицы. Есть ли какая нибудь спец функция, например случайное число от текущего времени или что нибудь подобное?

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Идентификатор для ключевого поля таблицы

Sub random()
    Dim i As Integer
    Dim UG As Integer
    Dim BG As Integer
    Dim IdentLen As Integer
    Dim MyIdentifier As String
    Dim Simbol As String
    UG = 1
    BG = 9
    IdentLen = 15
    MyIdentifier = ""
    Randomize Timer
    For i = 1 To IdentLen
        Simbol = CStr(Int((UG - BG + 1) * Rnd + BG))
        MyIdentifier = MyIdentifier & Simbol
    Next i
    MsgBox MyIdentifier
End Sub

  • На форуме с 12 апреля 2007г.
  • Сообщений: 47
  • Спасибо: 0

Re: Идентификатор для ключевого поля таблицы

Спасибо большое!