fout facktuurnr

[ahkleine]

In mijn applicatie voor een gemeenschapshuis wordt een factuur gemaakt met een bijbehorend factuurnr. Bij het starten van het report kijkt het systeem of er een vorig factuurnr bekend is zoniet vraagt hij de gebruiker om een nieuw factuurnr. Als je dan ingeeft 10 of 100 genereert hiet systeem een foutief factuurnr, waarbij een voorvoeg 0 teveel wordt gemaakt. Hieronder de code. Wie kan mij helpen. Het kan helaas niet anders omdat er op 3 verschillende wijze gefactureerd wordt met elk z'n unieke nummering. De code:

Private Sub Report_Load()
    tekst = "Hierbij de Faktuur voor het gebruik D'n Oesterham" & vbCrLf & vbCrLf & vbCrLf & "Met vriendelijke groet" & vbCrLf & vbCrLf & vbCrLf & "Anny Kleine" & vbCrLf & vbCrLf & "Voor vragen over deze faktuur kunt u mij bellen "
    'MsgBox (tekst)
    Me.verzenden.Visible = False
    'MsgBox ("bv_vernr is:" & bv_vernr)
    'MsgBox ("bv_Newver is:" & bv_newvernr)
    If bv_vernr = 0 Then
        bv_vernr = inputbox(bv_vernr, "geef nieuw factuurnummer")
        bv_newvernr = "AK14a00" & bv_vernr
        'MsgBox ("Deze factuur krijgt het factuurnr: " & bv_newvernr)
        bv_vernr = bv_vernr + 1
        'MsgBox ("Het volgende vernr is:" & bv_vernr)
    Else
            If bv_vernr < 10 Then
                bv_newvernr = "AK14a00" & bv_vernr
                'MsgBox ("Deze factuur krijgt het factuurnr: " & bv_newvernr)
                bv_vernr = bv_vernr + 1
                'MsgBox ("Het volgende vernr is:" & vernr)
            Else
                If bv_vernr < 99 Then
                    bv_newvernr = "AK14a0" & bv_vernr
                    bv_vernr = bv_vernr + 1
                    'MsgBox ("Het volgende vernr is:" & bv_vernr)
                Else
                    bv_newvernr = "AK14a" & bv_vernr
                    bv_vernr = bv_vernr + 1
                    'MsgBox ("Het volgende vernr is:" & vernr)
                    bv_newvernr = "AK14a" & bv_vernr
                    'MsgBox ("Deze factuur krijgt het factuurnr: " & bv_newvernr)
                End If
            End If
        
    End If

 

[OctaFish]

Kun je beginnen met je code op te maken met de CODE knop? Dan is die weer leesbaar.

 

[ahkleine]

Ik weet absoluut niet waar ik de door jou genoemde code-knop kan vinden

 

[maomanna]

of zet voor je code [ code] en aan het eind [ /code]

zonder de spaties

 

[OctaFish]

De CODE knop krijg je als je op <Gas geavanceerd> klikt. Maar de tip van maomanna gebruik ik zelf ook, is een stuk sneller.

 

[ahkleine]

Michel,

Ik denk dat ik het nu goed gedaan heb. Ik ben de hele middag aaan het experimenteren geweest. Maar telkens hetzelfde probleem. Als er op een bepaald moment een nieuw factuurnummer toegekend moet worden en dat is toevallig 10 of 100 dan gaat het fout dan wordt bij het getal 10 het factuurnr ak14a0010 i.pv ak14a010 de volgende factuur is dan wel weer goed ah14a011. Bij het getal 100dezelfde fout alleen is dan het volgende automatisch gegenereerde faktuurnummer niet ak 14a101 maar ak14a102

 

[OctaFish]

Volgens mij kan je code heel veel korter:

FactuurNummer:
        bv_vernr = InputBox(bv_vernr, "geef nieuw factuurnummer")
        If Not CInt(bv_vernr) Then GoTo FactuurNummer
        bv_newvernr = "AK14a" & Right("000" & bv_vernr, 3)

Overigens is het natuurlijk veel makkelijker om het factuurnummer automatisch te genereren. Dat wordt uitgebreid in de Access cursus behandeld (Handleidingen sectie).

 

[ahkleine]

Michel,

Het werkt, prachtig, bedankt. Ik was veel te ingewikkeld aan het denken

Nogmaals bedankt