Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Verschiedenes
Autoren-Login

 

newsletter
Kontakt
English

 

 

 
  Willkommen Gast. Bitte Einloggen oder Registrieren
   
  ÜbersichtHilfeSuchenEinloggenRegistrieren  
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken
Tabelle automatisch mit Datum fürs ganze Jahr füllen (Gelesen: 1025 mal)
Jörg
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 5
Geschlecht: male
Tabelle automatisch mit Datum fürs ganze Jahr füllen
28.12.2017 um 20:18:12
 
Hallo Leute,

heute habe ich mal wieder ein Problem wo ich nicht weiter komme.

Ich habe eine Tabelle "tblKalendertage" mit einer Spalte "datDatum" und diese möchte ich jetzt über ein Makro automatisch für die nächsten 365 Tage befüllen lassen.

Also der Start soll an den letzten Eintrag der Tabelle anknüpfen. Zum Beispiel der 31.12.2017 ist der letzte Eintrag der Tabelle und jetzt soll automatisch vom 01.01.2018 bis zum 31.12.2018 die Tabelle gefüllt werden.

Wie könnte man dies umsetzen.

Ich danke euch jetzt schon für eure Hilfe.
LG Jörg

Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4148
Geschlecht: male
Re: Tabelle automatisch mit Datum fürs ganze Jahr füllen
Antwort #1 - 29.12.2017 um 12:26:04
 
Hallo,

vergiß Makros und benutze VBA....


Code:
Public Function KalenderFüllen()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim  datVon as Date, datBis as Date, AktuellesDatum As Date

    Set db = CurrentDb

datVon =db.Openrecordset("Select Max([datDatum]) From tblKalendertage",dbOpenSnapShot)(0) +1
datBis =Dateadd ("yyyy",1,datVon )

    Set rst = db.OpenRecordset("tblKalendertage", dbOpenDynaset)

    For AktuellesDatum = datVon To datBis
        rst.AddNew
           rst!datDatum = AktuellesDatum
        rst.Update
    Next

rst.Close:Set rst = Nothing
Set db = Nothing

End Function 

Zum Seitenanfang
« Zuletzt geändert: 29.12.2017 um 14:40:01 von df6gl »  

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Jörg
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 5
Geschlecht: male
Re: Tabelle automatisch mit Datum fürs ganze Jahr füllen
Antwort #2 - 30.12.2017 um 12:23:55
 
Hallo df6gl,

vielen Dank für deinen vba Code. Leider habe ich da nicht so viel Ahnung Griesgrämig

Was müsste ich jetzt bei der "Ereignisprozedur" Beim Klicken eines Button schreiben?

Private Sub KalenderDatumFuellen_Click()

    ???
    ???
    ???
 
End Sub


Vielen Dank
Jörg

Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4148
Geschlecht: male
Re: Tabelle automatisch mit Datum fürs ganze Jahr füllen
Antwort #3 - 30.12.2017 um 13:08:08
 
Hallo,

da würde ich empfehlen, sich ein bisschen in die Materie einzuarbeiten.


Kopier den ganzen Code in ein Standard-Modul (Navibereich "Module"). Falls es noch keines gibt, dann erstell ein Modul.

schreibe in den Modulkopf (ganz oben am Anfang Zwinkernd )
Code:
Option Compare Database
Option Explicit 



hin.


Unter "Eigenschaftenblatt\Ereignis" des Buttons schreib:

Code:
=KalenderFüllen() 




Danach wird die Funktion bei jedem Klick des Buttons ausgeführt (und demzufolge laufend weitere Jahre hinzugefügt).
Zum Seitenanfang
 

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
Jörg
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 5
Geschlecht: male
Re: Tabelle automatisch mit Datum fürs ganze Jahr füllen
Antwort #4 - 31.12.2017 um 14:42:55
 
Genial Smiley

Vielen Dank
einfach Klasse

LG Jörg

Guten Rutsch ins neue Jahr 2018
Zum Seitenanfang
 
 
IP gespeichert
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken