нужна помощь. я записиваю автоматически в таблицу номера накладных (генерирую от 1 до 5). число цифр в номере накладной 6. янужно сгенерировать от 000100 до 00011. в таблицу водитса только 100, 101, ... а нужно чтобы было 000100, 000101, 000102, ... как сделать и если я от руки написала номер 000150 то если его искать то нельзя найти.

в том то и дело, что всюду там Text, String не работает

Dim i As Long !!! думаю проблема тут
Dim d As Date
Dim PAVADZ_NR As String
Dim txtPavadzStart As String
Dim txtPavadzEnd As String
Dim txtPavadzDat As Date

For i = Me.txtPavadzStart To Me.txtPavadzEnd Step 1

If Not IsNull(Read1stRecVal("SELECT PAVADZ_NR FROM Pavadzimes WHERE PAVADZ_NR = """ & Trim(Str(i)) & """;", 1)) Then
MsgBox ("Pavadzīme ar Nr.:" & Trim(Str(i)) & " Jau pievienota datubāzē")
Else
CurrentProject.Connection.Execute "insert into Pavadzimes " & _
"(PAVADZ_NR, DATUMS, UZVARDS) values(""" & Trim(Str(i)) & """, #" & Format(Me.txtPavadzDat, "mm\/dd\/yyyy") & "#, """ & IIf(IsNull(Me.cmbSoferis), "Nav Norādīts", Me.cmbSoferis) & """ ) "
End If
Next i

DoCmd.OpenTable "Pavadzimes"


в поиске накладнойя использую запрос (Query)

неработает Syntax Error :(
да, я из Латвии :)

:) ошибку не выводет но всё равно пишет цифры без 000 :(

нет, пока он вписывает номера в таблицу. поле таблицы Text

ураа, работает :)) спасибо Вам огромное :)) люлбю Вас всех ;)