Factuurnummer loopt niet door in factuurregels

Status
Niet open voor verdere reacties.
H

Hansspark

Gebruiker
Lid geworden
22 sep 2012
Berichten
103
Beste Forumleden,

Ik bezig met een db-klanten + facturering.
Door tips hier van het forum kom ik steeds een stapje verder " dank hiervoor "
Mijn kennis van acces is van een beginner dus maak het me niet te moeilijk.

Uitgevoerd
1) In het -frmPersoon druk ik op de *btn Factuuropen* kom ik op het -frmFactuur_invoer.
2) Door de *btn Nieuwe order* kan ik het laatst gebruikte ordernummer gebruiken ( van dit forum, VBA-code gebruikt)

Vraag:
Waarom loopt nieuwe ordernummer niet door in mijn factuurregels ?

Groet, Hans
 

Bijlagen

Laatst bewerkt:
Je huidige code mist een vitaal onderdeeltje: code om het jaar aan te passen. Nu moet je elk jaar je code aanpassen, en als je dat te laat doet, heb je een verkeerd nummer. Ik zou dus deze procedure gebruiken:

Code: 
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim Jaar As Integer
Dim Hoogste As String, tmp As Variant
Jaar = Year(Date)
Hoogste = Nz(DMax("FactuurnummerId", "tblFactuur", "Left(FactuurnummerId,4)=" & Jaar), 0)
tmp = Split(Hoogste, "-")

If CInt(tmp(UBound(tmp))) = 0 Then
  Me.FactuurnummerId = Jaar & "-0001"
Else
  If CInt(tmp(LBound(tmp))) = Jaar 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.FactuurnummerId = Jaar & "-" & Right("0000" & Hoogste, 4)
  End If
End If

Me.Refresh
End Sub
Die werkt overigens ;)
 
Beste Michel,

Ben jij de enige die hier de vragen van Acces beantwoordt :D
Ik heb de VBA-code gewijzigd echter ik krijg nu helemaal geen ordernummer.
Zie bijlage zoals uitgevoerd.


Wat doe ik fout?

Groet, Hans
 

Bijlagen

Daar lijkt het soms wel eens op, kan ik niet ontkennen :) Maar waarom zou ik wachten, als ik het antwoord weet?
Ik heb jouw versie getest, en hij doet het prima !?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan