Создание новой записи в подчиненной форме

[serega1576]

Приветствую Вас программисты.
Помогите реализовать такое дело:
Имеется форма "Прием сотрудников" в данной форме имеется подчиненная "Приказы". Приказы имеют следующие поля: Код(Счетчик); №п-п(Текстовое); Дата(Дата); Содержание приказа(Текстовый).
Данные в поле "№п-п" следующего типа: *-л(где *- число: например 33-л) и */*-л(где *-число, например: 33/1-л)
Как сделать чтобы при создании нового приказа в подчиненную форму автоматически вставлялось следующий по порядку №п-п, и проверялось наличие дроби.(если дробь есть, то создание следующей записи будет основано на предшествующей записи). Предполагается что пользователь будет в ручную, если это необходимо, править поле №п-п, добавляя дробь с числом.
Заранее Спасибо!!!

[gluk_fm]

А какой кнопкой у Вас создаётся приказ?

Если я правильно понял, то в случае если это не новый сторудник, то просто надо добавлять после дроби число+1?
Поппробуйте уточнить задание.
С того что я понял:

1. проверялось наличие дроби.(если дробь есть, то создание следующей записи будет основано на предшествующей записи)

Функция iif(InStr(1;"№п-п";"/";0)>1;Значение;mid("№п-п";InStr(1;"№п-п";"/";0)+2;3)+1)

[serega1576]

Создал кнопку. На нее поместил процедуру.

Private Sub btnNewPrikaz_Click()
Dim s, f, r, n, ns, p, i
Dim rst As ADODB.Recordset
Me.Приказы1.Form.Dirty = False
s = "select top 10 [№п-п] from Приказы order by val([№п-п]) desc"
i = 0
ns = 5
Set rst = CurrentProject.Connection.Execute(s )
Do While ns <> 0
f = rst.Fields(0)
rst.MoveNext
ns = InStr(1, f, "/")
Loop
n = InStr(1, f, "-")
r = Val(f) + 1
If r < 10 Then r = "0" & r
Me.Приказы1.Form.Recordset.AddNew
Me.Приказы1![№п-п] = r & "-л"
End Sub
Это полностью работает.