|
| Hallo,
ich suche einen Weg Aufträge und Rechnungen mit dem Jahr zu versehen. Dazu schrieb ich folgendes Makro (das nicht funktioniert). Die Grundlage des Makros bildet der Beitrag von oPAP in Office-loesungen zu fortlaufende Rechnungsnummern. Ich möchte, dass die Erstellung einer Auftragsnummer an das Klicken eines Buttons bebunden ist, die Auftragsnummer soll in dem Feld erscheinen.
Es gibt drei Felder, wie in der Ursprungsdatei. ANrAUF, AufNrAUF, AufDatum. Mit war bei der Bearbeitung auch nicht klar, wie ich die Standardwerte einsetze.
Kann mir jemand helfen?
Danke
Susanne
Private Sub Befehl24_Click()
Dim Anz As Double
Dim DefaultANrAUF As Double
Dim AufNrAUFStr As String
Anz = DCount("ANrAUF", "TAuftraege", "Year(AUfDatum) = Year(Date())")
If Anz = 0 Then
DefaultANrAUF = 1
AufNrAUFStr = Format(DefaultANrAUF, "00000") & "/" & Year(Date)
Else
DefaultANrAUF = DMax("ANrAUF", "TAuftraege", "year(Aufdatum)=year(Date())") + 1
AufNrAUFStr = Format(DefaultNr, "00000") & "/" & Year(Date)
End If
Me.Recordset
Me.Tabelle.Field("ANrAUF").Value = AufNrAUF
' DoCmd.GoToRecord , , acNewRec
' Me.DefaultANrAUF = DefaultANrAUF
' Call ANrAUF
End Sub
Private Sub ANrAUF()
Dim Anz As Long
Dim ANrAUF As Double
Anz = DCount("ANrAUF", "TAuftraege", "Year(AUFDatum) = Year(Date())")
If Anz = 0 Then
AufNrAUF = 1
Else
Anz = DCount("ANrAUF", "TAuftraege", "Year(AufDatum) = Year(Date())")
ANrAUF = DMax("ANrAUF", "TAuftraege", "Year(Aufdatum)=Year(Date())") + 1
End If
End Sub
| |
|
fortlaufende Rechnungsnummern