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

Scorcaesa
Дата: 06.03.2008 14:44:31
Кто подскажет, возможно ли в Access создать генератор последовательных чисел в формате от 00 до 99?
mcgrow
Дата: 06.03.2008 14:46:46
Scorcaesa
Кто подскажет, возможно ли в Access создать генератор последовательных чисел в формате от 00 до 99?

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

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


Да, конечно автосчетчик.
mcgrow
Дата: 06.03.2008 14:58:40
Scorcaesa
Дата: 06.03.2008 15:11:20
Спасибо, но не совсем то, что мне надо. У меня стартовое значение "00" и последующие "01", "02" .... "09". Access понимает их как текст... Получается не совпадение типов данных. Каким образом можно обойти?
mcgrow
Дата: 06.03.2008 15:15:53
Scorcaesa
Спасибо, но не совсем то, что мне надо. У меня стартовое значение "00" и последующие "01", "02" .... "09". Access понимает их как текст... Получается не совпадение типов данных. Каким образом можно обойти?

вах... обрабатывайте как числа, затем преобразовывайте в текст и, если число < 10, то добавляйте символ "0" слева и все.
Scorcaesa
Дата: 06.03.2008 15:20:38
[quot mcgrow] Спасибо!
Ёжик`
Дата: 06.03.2008 16:15:45
или format(СгенерированноеЧисло,"00")
Scorcaesa
Дата: 07.03.2008 13:30:36
Всем ОГРОМНОЕ СПАСИБО!
Вот что получилось:

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
&lt;&gt;
Дата: 07.03.2008 14:14:35
Scorcaesa

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

???