Cuestión : Código de VBA

Estoy buscando código de VBA para hacer… el txtA siguiente del

If = “informe de inspección” entonces miro en tblA encuentro la entrada pasada el comenzar con IRP
eg. IRP0001_R01_170710
then hacen el txtB = IRP0002_R01_todaysdate en el mismo formato que el above

Thanks class= del

Respuesta : Código de VBA

Usted puede utilizar esta función - usted necesidad de modificar el comando de DMAx de utilizar su propio nombre y tabla de campo.

Función NextVal ()
'asume que el formato es siempre como IRP0001_R01_170710
Lastval dévil
Amortiguar primero como secuencia
Amortiguar en segundo lugar como secuencia
Amortiguar el tercero como secuencia
lastval = Nz (DMax (“IDFieldname”, “tblA”, “ido (IDfieldname, 3) = “IRP” "), "") 'modifica esta línea
Si es lastval = "" entonces
MsgBox “ningún valor anterior”
NextVal = ""
Salir la función
Terminar si
primero = “IRP” y formato (Val (mediados de (lastval, 4)) + 1, “0000”) y” - “
en segundo lugar = mediados de (lastval, 9, 4)
tercer = formato (fecha, “DDMMYY”)
NextVal = primero y segundo y tercer
Función del final