On 30 Jan 2002 at 11:17, A-Schubert wrote:

> Hallo liebe Gemeinde,
>
> ich habe folgendes Problem.
> Ich habe eine Datenbanktabelle welche verschiedene Kundenauftr�ge erfasst.
> Der Schl�ssel f�r jeden Datensatz wird wie folgt erfasst: 201001

Wenn das wirklich der Schl�ssel ist, setzt du erstmal
ein paar fl�che �ber den Datenmodell Designer ab!

> - die erste 2 ist das aktuelle Jahr ohne 0 davor
> - 01 ist der aktuelle Monat
> - 001 ist die laufende Nummer
>
> Jetzt soll wenn ein neuer auftrag kommt diese Zahl um eins erh�ht werden.
> Dazu muss aber erstmal �berpr�ft werden ob f�r dieses Jahr und diesen Monat
> schon ein Auftrag vorhanden ist. Wenn ja erh�he die aktulle Zahl um 1 wenn nicht 
>dann beginne mit aktullen Jahr ohne 0 + aktuellen Monat + 001.
>
> Wie kann man das Realisieren ?
> Wie kann ich den Schl�sselwert in seine Bestandteile spalten um mit den aktuellen 
>Datum zu vergleichen.(Jahr und Monat)
>
> Hoffe ihr k�nnt mir helfen !!!
> MfG

Ja,

'-------------------------------------------------------
------------------------
' Stellt je nach Bedarf "0"llen vor einen String
'-------------------------------------------------------
------------------------
Function FillWithZeros(DerString, Stellen)
    Dim AnzahlNullen, Zaehler
    If Len(DerString) < Stellen Then
        AnzahlNullen = Stellen - Len(DerString)
        For Zaehler = 1 To AnzahlNullen
            FillWithZeros = FillWithZeros & "0"
        Next
    End If
    FillWithZeros = FillWithZeros & DerString
End Function

Nr = right(ZuErhoehenderSchluessel,3)
Nr = cDbl(Nr)
Nr = Nr + 1
Nr = FillWithZeros(cStr(Nr),3)
ZuErhoehenderSchluessel((left(len(ZuErhoehenderSchluesse
l)-3) & Nr

Geht auch direkt mit einer Abfrage,
da aber die Syntax je nach Datenbank anderst ist, bitte
ich dich das anhand der vorhanden Anleitung der DB
selbst zusammenzuschustern, falls du es willst
Andreas Roth
--------------------------------------
[EMAIL PROTECTED] *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
--------------------------------------



| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an