fout facktuurmr

[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]

Is dit een vraag die je 2 keer hebt gesteld? Kan deze denk ik weg...

 

[ahkleine]

Michel,
Deze vraag heb ik nog niet gesteld. Dit probleem deed zich pas dit weekend voor toen e aan het testen waren. Misschien een dome vraag, maar wat bedoel jij met de code knop

 

[ahkleine]

Michel,

Ik zie nu bij mijn account dat op e.o.a. manier mijn vraag 2 maal vlak achter elkaar door mij geplaatst is. Hiervoor mijn excuses

 

[OctaFish]

No probs! Nu nog de code in je eerste bericht aanpassen