Thema Datum  Von Nutzer Rating
Antwort
Rot DateAdd()-Function
 02.04.2016 15:40:41 Bonekit
Solved

Ansicht des Beitrags:
Von:
Bonekit		 Datum:
02.04.2016 15:40:41		 Views:
1282		 Rating:
     
Antwort:
 Nein
Thema:
DateAdd()-Function

Hallo Leute, folgendes Problem. Im folgenden Listing für ein Haushaltsbuch soll beim klicken von Datensatz hinzufügen geprüft werden ob der aktuelle Monat schon vorhanden ist und falls ja soll er den nächsten Monat erstellen. Ist dieser auch vorhanden soll er den darauffolgenden nehmen usw.

Mit meinem Listing bin ich ein Schritt weiter, aber nicht weit genug.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub cmdDatensatzHinzufuegen_Click()
    'Deklaration
        Dim strDatum As String
        Dim strDatumDateAdd As String
        Dim rs As Recordset
        Dim db As Database
        Dim strSQL As String
    'Füge der Variable strDatum ein formattiertes Systemdatum hinzu, zur Erstellung des Primärkeys
        strDatum = Format(Date, "mmyyyy")
    'Verweise
        Set db = CurrentDb()
        strSQL = " SELECT Datum_ID FROM tblHaushaltsbuch WHERE Datum_ID = '" & strDatum & "'"
        Set rs = db.OpenRecordset(strSQL)
    'Fehlerprüfung
        If rs.RecordCount = 0 Then
            'Erstelle neuen Datensatz
                DoCmd.GoToRecord , , acNewRec
            'Füge dem Steuerelement "Datum" das Systemdatum formattiert hinzu
                [Datum] = Format(Date, "mmmm yyyy")
            'Autogeneriere Primärschlüssel
                [Datum_ID] = strDatum
        Else
            'Erstelle neuen Datensatz
                DoCmd.GoToRecord , , acNewRec
            'Autogeneriere Primärschlüssel
                strDatumDateAdd = DateAdd("m", 1, Date)
                [Datum_ID] = Format(strDatumDateAdd, "mmyyyy")
            'Füge dem Steuerelement "Datum das Systemdatum formattiert hinzu
                [Datum] = Format(strDatumDateAdd, "mmmm yyyy")
        End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot DateAdd()-Function
 02.04.2016 15:40:41 Bonekit
Solved