Questione : Codice di VBA

Sto cercando il codice di VBA per fare il seguente… txtA del

If = “rapporto d'ispezione„ allora osservo nel tblA scopro che l'ultima entrata comincia con IRP
per esempio IRP0001_R01_170710
then fare il txtB = IRP0002_R01_todaysdate nella stessa disposizione del above

Thanks class= del

Risposta : Codice di VBA

Potete usare questa funzione - voi necessità di modificare l'ordine di DMAx usare il vostri propri nome e tabella di campo.

Funzione NextVal ()
'presuppone che la disposizione è sempre come IRP0001_R01_170710
Lastval fioco
Oscurar in primo luogo come stringa
Oscurar in secondo luogo come stringa
Oscurare il terzo come stringa
lastval = Nz (DMax (“IDFieldname„, “tblA„, “andato (IDfieldname, 3) = “IRP„ "), "") 'modifica questa linea
Se lastval = "" allora
MsgBox “nessun valore precedente„
NextVal = ""
Uscire la funzione
Concluder se
in primo luogo = “IRP„ & disposizione (Val (metà di (lastval, 4)) + 1, “0000„) &„ - “
in secondo luogo = metà di (lastval, 9, 4)
terzo = disposizione (data, “GGMMAA„)
NextVal = in primo luogo & secondo & terzo
Funzione di conclusione