Rechnungs-Nr. am Beginn und Ende ergänzen
Sunshine
ich habe folgendes Problem. Ich möchte Rechnungsnummern (Listennummern) am Textanfang und am
Textende ergänzen. Dazu benutze ich folgendes Makro:
Private Sub Befehl38_Click()
Dim nm As Variant
nm = DMax("[BeraterNrB]", "Betreuer")
If IsNull(nm) Then
nm = 1
Else
nm = nm + 1
End If
DoCmd.GoToRecord , , acNewRec
Me.BeraterNrB = nm
End Sub
Für diese fortlaufende Nummerierung möchte ich, dass eine 30, 300 oder 3000 vorweggestellt wird. Dazu habe ich über den Makrorekorder folgende Aufzeichung gemacht:
Sub Makro2()
ActiveCell.FormulaR1C1 = "=IF(LEN(R[-4]C)=3,CONCATENATE(30,R[-4]C))"
ActiveCell.FormulaR1C1 = _
"=IF(LEN(R[-4]C)=3,CONCATENATE(30,R[-4]C),CONCATENATE(300,R[-4]C))"
End Sub
Es soll also die Länge von nm betrachtet werden und dann der entsprechende Wert vor die Ziffer gestellt werden.
Das gleiche Problem habe ich mit der Jahreszahl die hinter fortlaufenden Nummern erscheinen soll. Also 1002011.
Kann mir jemand helfen?
Danke