Pergunta : Código de VBA

Eu estou procurando o código de VBA para fazer o seguinte… txtA do

If = de “relatório inspeção” olho então no tblA encontro a última entrada começar com IRP
por exemplo IRP0001_R01_170710
then para fazer o txtB = o IRP0002_R01_todaysdate no mesmo formato que o above

Thanks class= do

Resposta : Código de VBA

Você pode usar esta função - você necessidade de modificar o comando de DMAx usar seus próprios nome e tabela de campo.

Função NextVal ()
'supor que o formato é sempre como IRP0001_R01_170710
Lastval não ofuscante
Escurecer primeiramente como a corda
Escurecer em segundo como a corda
Escurecer o terço como a corda
lastval = Nz (DMax (“IDFieldname”, “tblA”, “saido (IDfieldname, 3) = “IRP” "), "") 'modifica esta linha
Se lastval = "" então
MsgBox “nenhum valor precedente”
NextVal = ""
Retirar a função
Terminar se
primeiramente = “IRP” & formato (Val (meados de (lastval, 4)) + 1, “0000”) &” - “
em segundo = meados de (lastval, 9, 4)
terceiro = formato (data, “ddmmaa”)
NextVal = primeiramente & segundo & terceiro
Função do fim