Fråga : VBA kodifierar

Förmiddag som I söker efter VBA, kodifierar för att göra efter… txtAen för

If = ”kontrollprotokollet” ser därefter i tblAfynd den sist tillträdesstarten med IRP
eg. IRP0001_R01_170710
then gör txtB = IRP0002_R01_todaysdate i samma att formatera som above

Thanks " klar "

Svar : VBA kodifierar

Du kan använda denna fungerar - du behov att ändra DMAxen befaller för att använda ditt eget sätter in känt och bordlägger.

Fungera NextVal ()
'antar formaterar är alltid lik IRP0001_R01_170710
Dunkelt lastval
Dunkelt första som stränger
Dunkelt understödja som stränger
Dunkelt tredje som stränger
lastval = Nz (DMax (”IDFieldname”, ”tblA”, ”lämnat (IDfieldname, 3) = ”IRP””), "") 'ändrar denna fodrar
Om lastval = "" därefter
MsgBox, ”som inga föregående värderar”,
NextVal = "",
Gå ut fungerar
Avsluta om
först = ”IRP” & formaterar (mitt-, Val ((lastval, 4)) + 1, ”0000”) &” - ”,
understödja = mitt- (lastval, 9, 4)
tredje = formaterar (datera, ”DDMMYY”),
NextVal = först & understöder & thirden
Avsluta fungerar