Frage : VBA Code

Ich suche nach VBA Code, um das folgende…

If txtA zu tun = „Kontrollen-Report“ schaue dann im tblA finde die letzte Eintragung, mit IRP
z.B. IRP0001_R01_170710
then, txtB = IRP0002_R01_todaysdate im gleichen Format wie above

Thanks zu bilden

Antwort : VBA Code

Sie können diese Funktion verwenden - Sie Notwendigkeit, den DMAx Befehl zu ändern, Ihren eigenen Feldnamen und Tabelle zu benutzen.

Funktion NextVal ()
'annimmt ', dass Format immer wie IRP0001_R01_170710 ist
Schwaches lastval
Als Schnur zuerst verdunkeln
Als Schnur an zweiter Stelle verdunkeln
Drittel als Schnur verdunkeln
lastval = ändern Nz (DMax („IDFieldname“, „tblA“, „verlassen (IDfieldname, 3) = „IRP“ "), "") 'diese Linie
Wenn lastval = "" dann
MsgBox „kein vorhergehender Wert“
NextVal = ""
Funktion herausnehmen
Beenden wenn
zuerst = „IRP“ u. Format (Val (mittleres (lastval, 4)) + 1, „0000“) u.“ - „
an zweiter Stelle = mittler (lastval, 9, 4)
drittes = Format (Datum, „DDMMYY“)
NextVal = zuerst u. zweites u. drittes
Enden-Funktion