Zaaknummer in Acces

[pyrgos]

Ik wil een zaaknummer met M-jaar-nummer en dat het nummer automatisch ophoogt met 1 bij een nieuwe zaak
Jaar en nummer lukt, maar die M ervoor krijg ik niet voor elkaar

Zie hieronder, wie kan mij de oplossing geven

m.vr.gr. Marjan

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim Hoogste As Variant

Jaar = Year(Date)

Hoogste = Nz(DMax("Zaaknummer", "Mediation", "Left(Zaaknummer,4)='" & Jaar & "'"), 0)

If Hoogste = 0 Then
    Me.Zaaknummer = Jaar & "0001"
Else
    If Hoogste = Jaar & "9999" Then
        MsgBox "Er zijn geen vrije nummers meer", vbCritical, "Nummers op"
        Cancel = True
    Else
        Me.Zaaknummer = Hoogste + 1
    End If
End If

Me.Refresh

End Sub

 

[snb]

@Pyrgos

Na 5 jaar op dit forum zou je moeten kunnen weten dat van je verwacht wordt VBA code tussen codetags te plaatsen.
Kun je dat svp nog even doen ?

Zie ook: https://www.helpmij.nl/forum/announcement.php?f=348

 

[pyrgos]

Sorry,

Ik wist dat niet.
Marjan

 

[snb]

Dankjewel :thumb:

 

[snb]

Private Sub Form_BeforeInsert(Cancel As Integer)
  y = Nz(DMax("Zaaknummer","mid(Zaaknummer,3,4)='" & Year(Date) & "'"), 0)

  Select case val(right(y,4))
  Case 0
    Me.Zaaknummer = "M " & Year(Date) & "0001"
  Case 9999
    MsgBox "Er zijn geen vrije nummers meer", vbCritical, "Nummers op"
    Cancel = True
  Case Else
    Me.Zaaknummer = "M " & y + 1
  End Select

  Me.Refresh
End Sub

 

[pyrgos]

Ik krijg een foutmelding

Ik doe de database erbij

 

[pyrgos]

Ik heb het antwoord, te weten

   Dim Jaar As String
    Dim Hoogste As Variant
 
    Jaar = Year(Date)
    Hoogste = Nz(DMax("Zaaknummer", "Mediation", "Mid(Zaaknummer,3,4)='" & Jaar & "'"), 0)
 
    If Hoogste = 0 Then
        Me.Zaaknummer = "M-" & Jaar & "0001"
    ElseIf Right(Hoogste, 4) = "9999" Then
        MsgBox "Er zijn geen vrije nummers meer", vbCritical, "Nummers op"
        Cancel = True
    Else
        Me.Zaaknummer = "M-" & Right(Hoogste, 8) + 1
    End If
 
    Me.Refresh

 

[OctaFish]

Volgende keer je vraag gewoon in het Access forum stellen, daar komt dit onderwerp regelmatig aan bod, met allerlei soorten (in beginsel overigens dezelfde) oplossingen. Met een functie op de eigenschap Standaardwaarde. Jouw oplossing is in ieder geval verre van ideaal. Al was het maar omdat je bij 10000 zaken de winkel dicht moet gooien .

 

[pyrgos]

Ik wachtte op een reactie van jullie, maar als jullie een betere oplossing hebben dan hoor ik dat graag.

 

[OctaFish]

Je gaf zelf aan dat je een oplossing had. Dan ga ik verder niet meer (gelijk) kijken, want dan is de noodzaak behoorlijk weg. Ik kwam je vraag gisteren toevallig tegen, en heb ‘m dus toen ook pas gelezen. Met bovenstaande opmerking als gevolg.