Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Tabellenfelder automatisch mit Datum des Monats füllen
zurück: Navigationsformular Haupformular aktualisieren Unterformular weiter: Hochgezählte Nummer wird doppelt vergeben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
K.A.L
ACCES-Anfänger


Verfasst am:
25. Apr 2014, 10:35
Rufname:
Wohnort: WIen

Tabellenfelder automatisch mit Datum des Monats füllen - Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Hi,

ich hab hier, als Anfänger, wahrscheinlich eine recht simple Frage aber ich finde im Forum leider nichts was mir weiter hilft.

Ich möcht eine Datenbank erstellen und möchte, wenn ich auf ein Button drücke gerne edas Datum für ein Monat (z.b. Mai 2014) eintragen. Die Datenbank enthält Felder Datum (jjjj.mmm.tt), Wochentag (bsp. Sonntag). Außerdem für jeden Mitarbeiter ein Feld (Name).

Wie bekomm ich nun neue Datensätze eingefügt vom 01.05.2014 bis zum 30.12.2014.
Hat da jemand einen Tip wie ich das am geschicktesten mache?
Habe folgenden Code für JahresZahl gefunden der Funktioniert super, wie könnte ich den vieleicht auf monat und jahr umschreiben?
Code:
Public Function DatumFuellen(JahresZahl As Integer)
    ' !!!!!!! Verweis auf Microsoft DAOx.x setzen!!!!!!!!!!!
    Dim Rs As DAO.Recordset, Tagesdatum As Date
   
    Set Rs = CurrentDb.OpenRecordset("datenquelle")
    For Tagesdatum = DateSerial(JahresZahl, 1, 1) To DateSerial(JahresZahl, 12, 31)
        Rs.AddNew
        Rs!DatumsFeld = Tagesdatum
        Rs.Update
    Next Tagesdatum
End Function

Private Sub Befehl_Click()
    Dim JahresZahl As Integer

    JahresZahl = InputBox("Jahreszahl ?")
    DatumFuellen JahresZahl
End Sub
KlausMz
Moderator Access


Verfasst am:
25. Apr 2014, 10:53
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Hallo,
hier die Angepasste Funktion:
Code:
Public Function DatumFuellen(Jahreszahl As Integer, Monatszahl As Integer)
' !!!!!!! Verweis auf Microsoft DAOx.x setzen!!!!!!!!!!!
    Dim Rs As DAO.Recordset, Tagesdatum As Date

    Set Rs = CurrentDb.OpenRecordset("datenquelle")
    For Tagesdatum = DateSerial(Jahreszahl, Monatszahl, 1) To DateSerial(Jahreszahl, Monatszahl + 1, 0)
        Rs.AddNew
        Rs!Datumsfeld = Tagesdatum
        Rs.Update
    Next Tagesdatum
End Function

Warum legst Du für jeden Mitarbeiter immer einen kompletten Monat an, benötigts Du jeden Tag?
Der Feldname "Name" ist tabu und sollte unbedingt vermieden werden. Außerdem speichert man nicht den Namen im Klartext, sondern dessen Primärschlüssel (als Fremdschlüssel). Der Wochentag in der Tabelle ist überflüssig.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
Blackpit
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 11:04
Rufname:

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Bei solchen Fragen habe ich oft auch Bedenken bezgl. des Datenmodells.
Zitat:
Die Datenbank enthält Felder Datum (jjjj.mmm.tt), Wochentag (bsp. Sonntag)
Bist Du Dir sicher, dass das richtig ist?
Wozu wird Wochentag benötigt, ist der vom Datum abhängig?

Gruß

BP
KlausMz
Moderator Access


Verfasst am:
25. Apr 2014, 11:05
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Hallo,
Zitat:
Bei solchen Fragen habe ich oft auch Bedenken bezgl. des Datenmodells.
das sehe ich auch so, daher ja meine Rückfrage nach dem Sinn und der Hinweis zum Wochentag.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
K.A.L
ACCES-Anfänger


Verfasst am:
25. Apr 2014, 11:29
Rufname:
Wohnort: WIen

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Danke für die schnelle Antwort!!!!
zur Frage - ist für eine Schichtliste.

JA ich benötige jeden Tag. Tag wird nur auf Formular angezeigt und nicht in der Tabelle. war von mir falsch dargestellt.
Wie bekomme ich den zweiten code noch hin?
Code:
Private Sub Befehl5_Click()
    Dim JahresZahl As Integer

    JahresZahl = InputBox("Jahreszahl ?")
    DatumFuellen JahresZahl
End Sub
Blackpit
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 11:32
Rufname:

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Zitat:
Warum legst Du für jeden Mitarbeiter...
Die Frage ist die wichtigere und wurde leider nicht beantwortet.
Der Zweifel am DM erhärtet sich Wink

Gruß

BP
K.A.L
ACCES-Anfänger


Verfasst am:
25. Apr 2014, 11:38
Rufname:
Wohnort: WIen

Re: AW: Tabellenfelder automatisch mit Datum des Monats füll - Re: AW: Tabellenfelder automatisch mit Datum des Monats füll

Nach oben
       Version: Office 2010

Ist für eine Schichtliste!!!!!
Von Mo - SO und allen Feiertagen
24 Std.
Willi Wipp
Moderator


Verfasst am:
28. Apr 2014, 03:48
Rufname:
Wohnort: Raum Wiesbaden

Re: Tabellenfelder automatisch mit Datum des Monats füllen - Re: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Hi K.A.L,

ohne weiter auf das DB-Modell einzugehen, vermutlich:
Code:
Private Sub Befehl5_Click()
    Dim JahresZahl As Integer
    Dim MonatsZahl As Integer

    JahresZahl = InputBox("Jahreszahl ?")
    MonatsZahl = InputBox("Monatszahl ?")
    DatumFuellen JahresZahl, MonatsZahl
End Sub

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
K.A.L
ACCES-Anfänger


Verfasst am:
28. Apr 2014, 08:45
Rufname:
Wohnort: WIen

AW: Tabellenfelder automatisch mit Datum des Monats füllen - AW: Tabellenfelder automatisch mit Datum des Monats füllen

Nach oben
       Version: Office 2010

Danke Funzt
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Datum 2 Raumer 1178 06. Dez 2004, 09:23
Gast Abfrage Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum nur als Monat/Jahr 2 Thomas M. 1487 01. Dez 2004, 15:09
Gast Datum nur als Monat/Jahr
Keine neuen Beiträge Access Tabellen & Abfragen: Datum 5 Jogler 1001 29. Nov 2004, 13:27
borstel Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Achtstelligen Zahlen-Stringwert als Datum formatieren 2 cmaier 1302 15. Nov 2004, 15:10
cmaier Achtstelligen Zahlen-Stringwert als Datum formatieren
Keine neuen Beiträge Access Tabellen & Abfragen: Access automatisch nummerieren lassen 3 NewJanJan 4931 12. Nov 2004, 15:48
lothi Access automatisch nummerieren lassen
Keine neuen Beiträge Access Tabellen & Abfragen: Abgleich über Datum 1 Darthstar 671 12. Nov 2004, 07:15
stpimi Abgleich über Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Alle Kundengeburtstage des Monats 'x' ermitteln. (Acess 2000 1 Hillbongo 679 25. Okt 2004, 12:48
STRIPPE Alle Kundengeburtstage des Monats 'x' ermitteln. (Acess 2000
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz nach Datum suchen?? 1 Hansen 1390 04. Okt 2004, 12:16
stpimi Datensatz nach Datum suchen??
Keine neuen Beiträge Access Tabellen & Abfragen: 3. ältestes Datum 3 shaaree 793 27. Sep 2004, 11:03
Skogafoss 3. ältestes Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Gesamttage eines Monats errechnen 1 rfes 809 06. Sep 2004, 18:45
Skogafoss Gesamttage eines Monats errechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nach heutigem / aktuellen Datum 1 MeWe 878 31. Aug 2004, 14:57
TommyK Abfrage nach heutigem / aktuellen Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Datum überprüfen 4 Gast 1076 30. Aug 2004, 13:11
borstel Datum überprüfen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme