Вопрос : Кодий VBA

Я ищу Кодий VBA для того чтобы сделать следующий… txtA

If = «отчет о осмотра» после этого смотрю в tblA нахожу, что последний вход начинает с IRP
например IRP0001_R01_170710
then сделать txtB = IRP0002_R01_todaysdate в такой же форме как above

Thanks class=

Ответ : Кодий VBA

Вы можете использовать эту функцию - вас потребность доработать командование DMAx для использования ваших собственных названия поля и таблицы.

Функция NextVal ()
'принимает форма всегда как IRP0001_R01_170710
Тусклое lastval
Затемните сперва как шнур
Затемните во-вторых как шнур
Затемните треть как шнур
lastval = Nz (DMax («IDFieldname», «tblA», «о (IDfieldname, 3) = «IRP» "), "") 'дорабатывает эту линию
Если lastval = "" после этого
MsgBox «никакое ранее значение»
NextVal = ""
Выходите функция
Закончитесь если
во первых = «IRP» & форма (Val (среднее (lastval, 4)) + 1, «0000») &» - «
во-вторых = средний (lastval, 9, 4)
третье = форма (дата, «DDMMYY»)
NextVal = сперва & второе & третье
Функция конца