TKSoft-Online

Erstellung von benutzerdefinierten Zählern PDF Drucken E-Mail
( 11 Votes )
MS-Access Bsp. DB's - Bsp. Downloads Formulare
Geschrieben von: TommyK   
Sonntag, den 06. Januar 2008 um 01:00 Uhr
Tags:

 

Problemstellung:

Wie kann man benutzerdefinierte Counter auf verschiedenen Datumsebenen erstellen,
mittels einer Funktion.

Voraussetzungen:

Das Bsp ist unter A97,A00, AXP, A03 und A07

Funktionsweise:

Funktionskopf: genaues Listing s. Bsp-DB

Public Function UniCounter_New(intNoLen As Integer, strTabName As String, _
                            strFeldName As String, intType As Integer, _
                            boolStart As Boolean, boolAlign As Boolean, _
                            Optional strArg As String = "-", _
                            Optional strArg2 As String = "", _
                            Optional sPrefix As String = "", _
                            Optional dtStart As Date) As String

 

Syntax der Funktion:
UniCounter_New("Anzahl der Zählerstellen";"Herkunftstabelle";"Herkunftsfeld";"Datumsformat";
"Beginn des Zählers";"Ausrichtung des Zählers";
"Optional Trennzeichen zwischen Zähler/Datum (Standardwert "-");
"Optional Datumstrennzeichen (Standardwert "");
Optional Präfix (Standardwert ""));Optional Startdatum

Argumente und Möglichkeiten:

1. Anzahl der Stellen die der Zähler besitzen soll.
2. Name der Herkunftstabelle des Zählers
3. Name des Feldes aus der Herkunftstabelle des Zählers
4. DatumsTyp, 1=Tage (yymmdd), 2=Tage (ddmmyyyy),3=Tage (ddmmyyyy formatiert),
4=Woche (wwyyyy formatiert), 5=Monat (mmyyyy formatiert),
6=Jahr (yyyy), 7=Woche (yyww formatiert), 8=Woche (yyyyww formatiert)
formatiert bedeutet das ein Trennzeichen gesetzt werden kann.
5. Beginn des Zählers (Wahr bei 1, Falsch bei 0)
6. Ausrichtung des Zählers (Wahr= Zähler Rechts, Falsch= Zähler Links)
7. Trennzeichen zwischen Datum und Zähler Standardwert "-"
8. Datumstrennzeichen Standardwert "", hat nur Auswirkungen auf die Datumstypen 3,4,5
9. Präfix links vom Counter
10. Startdatum beliebig

Der Aufruf erfolgt im Standardwert des Zählfeldes s.Bild:

Normaler Zähler:

Diese Bsp erstellt einen Tageszähler im Format "tt.mm.jjjj" mit 3 Stellen, beginnend bei 001 und Zähler ist rechts
Aufruf: UniCounter(3;"tbl_Test";"Zaehler_ID_Tag";3;Wahr;Wahr;"-";".")

weitere Beispiele:

Wochenzähler im Format "ww.jjjj" mit 4 Stellen, beginnend bei 0001 und Zähler ist links:
Aufruf: UniCounter(4;"tbl_Test";"Zaehler_ID_Woche";4;Wahr;Falsch;"/";"/")


Monatszähler im Format "mm.jjjj" mit 5 Stellen, beginnend bei 00000 und Zähler ist rechts
Aufruf: UniCounter(5;"tbl_Test";"Zaehler_ID_Monat";5;Falsch;Wahr;"_";".")


Jahreszähler im Format "jjjj" mit 6Stellen, beginnend bei 000001 und Zähler ist rechts
Aufruf: UniCounter(6;"tbl_Test";"Zaehler_ID_Jahr";6;Wahr;Wahr;"/")

Zähler mit Präfix:

Es sollten keine Leerzeichen im Präfix vorkommen


Diese Bsp erstellt einen Tageszähler im Format "tt.mm.jjjj" mit 3 Stellen, beginnend bei 001 und Zähler ist rechts und dem Präfix „TK_“
Aufruf: UniCounter_New(3;"tbl_Test";"Zaehler_ID_Tag";3;Wahr;Wahr;"-";".":“TK_“)


Wochenzähler im Format "ww.jjjj" mit 4 Stellen, beginnend bei 0001 und Zähler ist links:
Aufruf: UniCounter_New(4;"tbl_Test";"Zaehler_ID_Woche";4;Wahr;Falsch;"/";"/";“GTS“)


Monatszähler im Format "mm.jjjj" mit 5 Stellen, beginnend bei 00000 und Zähler ist rechts
Aufruf: UniCounter_New(5;"tbl_Test";"Zaehler_ID_Monat";5;Falsch;Wahr;"_";".";“HH_“)


Jahreszähler im Format "jjjj" mit 6Stellen, beginnend bei 000001 und Zähler ist rechts
Aufruf: UniCounter_New(6;"tbl_Test";"Zaehler_ID_Jahr";6;Wahr;Wahr;"/";““;“JFK“)

Zähler mit variablen Startdatum:

Es kann ja mal erforderlich sein rückwirkend ein DS der DB hinzu zufügen, da aber das Datum schon verstrichen ist würde der Zähler
nicht den gewünschten Wert enthalten.
Hier käme dann der optionale Parameter „Optional dtStart As Date“ zum Einsatz.
Wird der Parameter nicht übergeben wird das aktuelle Datum übergeben.
Es kann der Standardwert und die optionale Übergabe kombiniert werden.
In der Bsp-DB wird mit dem Klick auf den Button rechts ein Kalender aufgerufen wo ein beliebiges Datum gewählt werden kann.
Dieses Datum wird dann der Funktion übergeben und der dazu gehörige Zähler gesetzt.

z.B:

DatumHolen Me.txt_DatumMonat
    If Not IsNull(Me.txt_DatumMonat) Then
        Me.txt_Zaehler_ID_Monat_S = UniCounter_New(5, "tbl_Test", "Zaehler_ID_Monat_S", _
                                    5, False, True, "_", ".", , Me.txt_DatumMonat)
    Else
        Me.txt_Zaehler_ID_Monat_S = UniCounter_New(5, "tbl_Test", "Zaehler_ID_Monat_S", _
                                    5, False, True, "_", ".")
    End If

 

oder es wurde auf „Abbrechen“ geklickt dann wird das aktuelle Datum verwendet.

Das Datum kann natürlich auch der Funktion direkt übergeben werden.

Weiterhin ist es möglich die Parameter „Präfix“ und „Startdatum“ zu kombinieren.

 

 

Download nur für registrierte User

 

Erstellung von benutzerdefinierten Zählern

Erstellung von benutzerdefinierten Zählern
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
Diese Kategorie erfordert eine Registrierung um Daten downloaden zu können.
Sollten Sie bereits registriert sein, so melden Sie sich bitte an.




 Erstellt am
Dateigröße
Downloads		 04.01.2008
137.58 KB
3893


Downloads in dieser Kategorie

MS-Access Formulare

MS-Access Formulare

Seite: 1

Seite: 2


 

DatumKlicks
Total10406
Di. 221
Mo. 216
So. 203
Sa. 192
Fr. 184
Do. 173
Mi. 166
< Zurück
Aktualisiert ( Mittwoch, den 19. Oktober 2011 um 12:48 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173413 Downloads