Генератор последовательных чисел от 00 до 99

Кто подскажет, возможно ли в Access создать генератор последовательных чисел в формате от 00 до 99?

Scorcaesa

Кто подскажет, возможно ли в Access создать генератор последовательных чисел в формате от 00 до 99?

автосчетчик имеете в виду или все-же генератор случайных чисел?

mcgrow

Scorcaesa Кто подскажет, возможно ли в Access создать генератор последовательных чисел в формате от 00 до 99? автосчетчик имеете в виду или все-же генератор случайных чисел?

Да, конечно автосчетчик.

заглядывайте в FAQ

Спасибо, но не совсем то, что мне надо. У меня стартовое значение "00" и последующие "01", "02" .... "09". Access понимает их как текст... Получается не совпадение типов данных. Каким образом можно обойти?

Scorcaesa

Спасибо, но не совсем то, что мне надо. У меня стартовое значение "00" и последующие "01", "02" .... "09". Access понимает их как текст... Получается не совпадение типов данных. Каким образом можно обойти?

вах... обрабатывайте как числа, затем преобразовывайте в текст и, если число < 10, то добавляйте символ "0" слева и все.

[quot mcgrow] Спасибо!

или format(СгенерированноеЧисло,"00")

Всем ОГРОМНОЕ СПАСИБО!
Вот что получилось:

Function sNumerik()
    Dim minNumber As Integer 'минимальный номер
    Dim maxNumber As Integer 'максимальный номер
    Dim nNomer As String 'значение номера в предпоследней записи
    Dim lNomer As String 'значение номера последней записи
    Dim lastZapis As String 'код последней записи
    Dim celZapis As String 'код предпоследней записи
    
        minNumber = 0
        maxNumber = 99
        lastZapis = Nz(DLast("[sKod_NomFider]", "tbl_NomFider_sprTMP"), 0)
        celZapis = lastZapis - 1
        nNomer = DLookup("[cZavNomer5_spr]", "tbl_NomFider_sprTMP", "[sKod_NomFider] =" & celZapis)
        lNomer = Nz(IIf(nNomer >= maxNumber, minNumber, nNomer + 1), 0)
        
        Forms!frm_NomFider_sprTMP!pZavNomer5_spr = IIf(lNomer < 10, Format(lNomer, "00"), Format(lNomer))
    
    Exit Function
End Function

Scorcaesa

=IIf(lNomer < 10, Format(lNomer, "00"), Format(lNomer))

???