Question : Code de VBA

Je recherche le code de VBA pour faire… le txtA suivant du

If = « rapport d'inspection » regarde alors dans le tblA trouve la dernière entrée commencer par IRP
par exemple IRP0001_R01_170710
then faire le txtB = l'IRP0002_R01_todaysdate dans le même format que l'above

Thanks class= de

Réponse : Code de VBA

Vous pouvez employer cette fonction - vous le besoin de modifier la commande de DMAx d'employer votre propres nom et table de champ.

Fonction NextVal ()
'suppose que le format est toujours comme IRP0001_R01_170710
Faible lastval
Obscurcir d'abord comme corde
Obscurcir en second lieu comme corde
Obscurcir le tiers comme corde
lastval = Nz (DMax (« IDFieldname », « tblA », « parti (IDfieldname, 3) = « IRP » "), "") 'modifient cette ligne
Si lastval = "" alors
MsgBox « aucune valeur précédente »
NextVal = ""
Sortir la fonction
Finir si
d'abord = « IRP » et format (Val (mi (lastval, 4)) + 1, « 0000 ») et » - « 
en second lieu = mi (lastval, 9, 4)
troisième = format (date, « DDMMYY »)
NextVal = d'abord et deuxième et troisième
Fonction de fin