• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Registratie nummers opvolgen

Status
Niet open voor verdere reacties.
K

karimba

Gebruiker
Lid geworden
8 okt 2006
Berichten
86
Hallo,

Ik zit even vast. graag zou ik zodra ik een nieuw klacht invoer. dat ik dan automatische op volgorde te nummeren krijg te zien afhankelijk van jaar datum. wie kan mij hierbij helpen?

Alvast bedankt.
 

Bijlagen

Code: 
T_00.Value = Format(Date, "yy") & "-" & Application.Max([knrs].Replace(Format(Date, "yy") & "-", "")) + 1
 
hai

ik heb de code ingevoerd maar helaas wil het niet werken. wat doe ik fout?

de registratie nummer is een combinatiedatum (jaardatum+opvolgend )
voorbeeld:

20-1
20-2
20-3
21-1
21-2
 
Als ik de code toepas en het formulier open dan krijg ik netjes 20-2. Dus roepen dat iets niet werkt zonder dat je aangeeft wat je gedaan hebt heeft niet zo veel nut.
 
Code: 
Private Sub UserForm_Initialize()
Dim sv, a
sv = Split(Replace(Join(Application.Transpose([knrs])), "-", ""))
For i = 0 To UBound(sv)
If Left(sv(i), 2) = Format(Date, "yy") Then If a < sv(i) Then a = sv(i)
 Next i
T_00.Value = Format(Date, "yy-") & IIf(Len(a) > 0, Mid(a, 3), 0) + 1
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan