klant nummer genereren

[jo geuens]

hallo,

Ik heb hier op het forum een code gevonden om een specifiek nummer te genereren , nu wil ik deze aanpassen naar mijn noden maar krijg telkens foutmelding

normaal krijg je een nummer dat er als volgt uitziet 2015-0001 het jaartal gevolgd door een oplopend nummer
nu wil ik de letters KL gevolgd door een oplopend nummer

Private Sub Form_Current()
Dim KL As String 'Integer
Dim Hoogste As String, tmp As Variant
If Me.NewRecord Then
    KL = "KL" 'Year(Date)
    Hoogste = Nz(DMax("Klantnr", "tblKlanten", "Left(Klantnr,4)=" & KL), 0)
    tmp = Split(Hoogste, "-")
    If CInt(tmp(UBound(tmp))) = 0 Then
      Me.Klantnr = "KL" & "-0001"
    Else
      If CInt(tmp(LBound(tmp))) = KL And CInt(tmp(UBound(tmp))) = 9999 Then
         MsgBox "Er zijn geen vrije nummers meer", vbCritical, "Nummers op"
         cancel = True
      Else
        Hoogste = CInt(tmp(UBound(tmp))) + 1
         Me.Klantnr = KL & "-" & Right("0000" & Hoogste, 4)
      End If
    End If
    Me.Refresh

End If

End Sub

 

[OctaFish]

En heb je alle bestaande records omgebouwd naar de nieuwe nummering?

 

[jo geuens]

hoi

ik heb een lege tabel genomen en krijg volgende fout melding .

 

[OctaFish]

De regel KL = "KL" 'Year(Date) is natuurlijk ook een hele vreemde als je hem naast Left(Klantnr,4) zet. Je gaat een string van 4 tekens vergelijken met een string die 2 tekens lang is.

 

[jo geuens]

zelfs als ik dit aanpas blijft dezelfte fout melding komen .

 KL = "KL" 
    Hoogste = Nz(DMax("Klantnr", "tblKlanten", "Left(Klantnr,2)=" & KL), 0)

 

[OctaFish]

Probeer dit eens:

    Hoogste = Nz(DMax("Klantnr", "tblKlanten", "Left(Klantnr,2)=""KL"""), 0)

 

[jo geuens]

hoi

Thx

werkt perfect