visual basic, access, форматирование вывода

[art_y10]

В MS Access при открытиии отчета проверяю некое значение, которое хранится в строке таблицы. Далее добавляю к этому значению единицу и заношу в ту же строку таблицы. Далле вывожу значение из таблицы
Me.Надпись4.Caption = Str(i)
Мне нужно, чтобы в надпись выводилось семизначное число. То есть, если у меня число в таблице 154, то в поле надпись, чтобы выводилось так: 0000154. Если у меня значение в таблице 1564, то в надпись, чтобы выводилось: 0001564

[R Dmitry]

Сообщение от art_y10

В MS Access при открытиии отчета проверяю некое значение, которое хранится в строке таблицы. Далее добавляю к этому значению единицу и заношу в ту же строку таблицы. Далле вывожу значение из таблицы
Me.Надпись4.Caption = Str(i)
Мне нужно, чтобы в надпись выводилось семизначное число. То есть, если у меня число в таблице 154, то в поле надпись, чтобы выводилось так: 0000154. Если у меня значение в таблице 1564, то в надпись, чтобы выводилось: 0001564

функция подойдет ?

Public Function str7(s$) As String
Dim ss$
If Len(s) < 7 Then
For i = 1 To 7 - Len(s)
ss = ss & "0"
Next
str7 = ss & s
Else
str7 = s
End If
End Function

и еще пару на конкурс талантливой краткости

Public Function str77(s$) As String
If Len(s) < 7 Then
str77 = String(7 - Len(s), "0") & s
Else
str77 = s
End If
End Function

Public Function str777(s$) As String
If Len(s) < 7 Then
str777 = Replace(Space(7 - Len(s)), " ", "0") & s
Else
str777 = s
End If
End Function

и для всех случаев жизни

Public Function Add_str(s$, l&, st$) As String
Add_str = IIf(Len(s) < l, String(l - Len(s), st) & s, s)
End Function

[art_y10]

У меня еще короче получилось : Me.Надпись4.Caption = Format(i, "0000000")

Итого весь код обработки события открытия отчета:

Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
Dim db As Database
Dim rs As Recordset
Dim sql_select As String

sql_select = "SELECT * FROM numb"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql_select, dbOpenDynaset)
If (rs.RecordCount = 1) Then
Set bd = DBEngine.Workspaces(0).Databases(0)
Set tab1 = bd.OpenRecordset("numb")
tab1.Edit
i = tab1!Number
tab1!Number = i + 1
tab1.Update

End If
i = tab1!Number
Me.Надпись4.Caption = Format(i, "0000000")
End Sub


А теперь нужно чделать такое. Нужно чтобы можно было печатать пачку бланков с номерами последовательными. Как можно видеть из кода, я сделал, когда нужно один бланк напечатать. А если нужно 30 или 100. При этом, нужно, чтобы в следующий раз, когда нужно будет напечатать один бланк или 100, базка помнила последний номер и начинала опять все правильно последовательно считать...

Думаю, что это можно реализовать добавив еще одну таблицу, в которую записывать конечный номер печати. Дальше сравнивать и печатать, пока номера не совпадут. Процедурка выше - это моя первая процедурка на VB ? поэтому прошу помощи!

[R Dmitry]

Сообщение от art_y10

У меня еще короче получилось : Me.Надпись4.Caption = Format(i, "0000000")

Итого весь код обработки события открытия отчета:

Private Sub Report_Open(Cancel As Integer)
Dim i As Integer
Dim db As Database
Dim rs As Recordset
Dim sql_select As String

sql_select = "SELECT * FROM numb"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql_select, dbOpenDynaset)
If (rs.RecordCount = 1) Then
Set bd = DBEngine.Workspaces(0).Databases(0)
Set tab1 = bd.OpenRecordset("numb")
tab1.Edit
i = tab1!Number
tab1!Number = i + 1
tab1.Update

End If
i = tab1!Number
Me.Надпись4.Caption = Format(i, "0000000")
End Sub


А теперь нужно чделать такое. Нужно чтобы можно было печатать пачку бланков с номерами последовательными. Как можно видеть из кода, я сделал, когда нужно один бланк напечатать. А если нужно 30 или 100. При этом, нужно, чтобы в следующий раз, когда нужно будет напечатать один бланк или 100, базка помнила последний номер и начинала опять все правильно последовательно считать...

Думаю, что это можно реализовать добавив еще одну таблицу, в которую записывать конечный номер печати. Дальше сравнивать и печатать, пока номера не совпадут. Процедурка выше - это моя первая процедурка на VB ? поэтому прошу помощи!

ну да про формат я и не вспомнил )

ну да сделать табличку с одной строкой и LOOKUPом тянуть начальный счетчик, и в конце процедуры обновить показания счетчика в таблице

[art_y10]

Не силен в VB, можно пример кода.

[R Dmitry]

пример

Sub art_y10()
'таблица TBL
'Поля "Код" , "CN"
'Получаем значение счетчика
счетчик = DLookup("CN", "TBL", "Код=1")
'Переписываем значение счетчика
CurrentDb.Execute "UPDATE TBL SET TBL.CN =" & счетчик & " WHERE (((TBL.Код)=1))"
End Sub