Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datumsproblem
zurück: Schaltfläche weiter: access fragen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
gast0601
Gast


Verfasst am:
06. Jan 2005, 17:19
Rufname:

Datumsproblem - Datumsproblem

Nach oben
       

hi,
ich habe folgendes problem A00:
ich habe ein normales Textfeld dort steht ein Datum drin, dass Textfeld ist aber unsichtbar. So.
es soll nun aber so sein das ich ein textfeld habe wo der tag von 1-31 steht, dann eine Combobox wo die Monate drinne stehen und eine Combox wo die Jahre drinne stehen.
Nun zu meinen Problem, wie kann ich jetzt aus den 3 Feldern wieder ein normales Datum zusammen setzen, so dass er es gleich in das normale unsichtbare Datums-Textfeld einfügt, damit es in der DB gespeichert werden kann?
Bevor das Datum abgespeichert wird, soll natürlich gleich auch überprüft werden ob es ein gültiges Datum ist, zwecks Schaltjahre.
Hier mein bisheriger Code:
Code:
Option Compare Database
Option Explicit

Private iTag As Integer
Private iMonat As Integer
Private iJahr As Integer

Private Sub Form_BeforeInsert(Cancel As Integer)
    iTag = Day(txtDatum.Value)
    iMonat = MonthName(txtDatum.Value)
    iJahr = Year(txtDatum.Value)
End Sub

Private Sub Form_Current()
    Dim strDatum As String
   
    If Me.Form.NewRecord = -1 Then
        strDatum = iTag & "." & iMonat & "." & iJahr
        If IsDate(strDatum) Then
            txtDatum.Value = CDate(strDatum)
            txtTag = iTag
            cmbMonat = iMonat
            cmbJahr = iJahr
        End If
      Else
        txtTag = Day(txtDatum.Value)
        cmbMonat = Month(txtDatum.Value)
        cmbJahr = Year(txtDatum.Value)
    End If
End Sub

Private Sub Form_Load()
    Dim strJahr As String
    Dim iStartJahr As Integer
    Dim i As Integer
    Dim iMonat As Integer
    Dim strMonat As String
   
    For iMonat = 1 To 12
        strMonat = strMonat & MonthName(iMonat) & ";"
    Next
    iStartJahr = Year(Now) - 4
    For i = iStartJahr To iStartJahr + 9
        strJahr = strJahr & i & ";"
    Next
    With Me.cmbJahr
        .RowSourceType = "Value List"
        .RowSource = strJahr
        .BoundColumn = 1
        '.ControlSource = Datum
    End With
    With Me.cmbMonat
        .RowSourceType = "Value List"
        .RowSource = strMonat
        .BoundColumn = 1
        '.ControlSource = Datum
    End With
End Sub

Wäre total der hammer, wenn mir da jemand weiterhelfen könnte.
Danke schon mal im Voraus.
MirkoK
-


Verfasst am:
07. Jan 2005, 00:43
Rufname:
Wohnort: Ruhrgebiet


AW: Datumsproblem - AW: Datumsproblem

Nach oben
       

hi
Code:
    Dim Eingabe As Variant
   
    Eingabe = Me!Tag & "." & Me!Monat & "." & Me!Jahr
    If IsDate(Eingabe) Then Me!Datum = Eingabe
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: Datumsproblem 12 Romy74 274 17. Mai 2012, 09:58
Romy74 Datumsproblem
Keine neuen Beiträge Access Formulare: Datumsproblem (Datumsformat) 1 bornnaked 332 12. Okt 2010, 16:40
Nouba Datumsproblem (Datumsformat)
Keine neuen Beiträge Access Programmierung / VBA: Datumsproblem VBA / SQL 3 MrJSmith 312 21. Mai 2010, 16:24
MrJSmith Datumsproblem VBA / SQL
Keine neuen Beiträge Access Tabellen & Abfragen: Mal wieder ein Datumsproblem, Jahreswechsel 6 Markos 711 20. Jan 2010, 09:39
Markos Mal wieder ein Datumsproblem, Jahreswechsel
Keine neuen Beiträge Access Programmierung / VBA: kleines datumsproblem 2 SenS 297 27. Feb 2009, 12:01
SenS kleines datumsproblem
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsproblem in SQLabfrage 10 Noctar 665 23. Jun 2008, 07:12
Gast Datumsproblem in SQLabfrage
Keine neuen Beiträge Access Formulare: Datumsproblem mit 2008? 4 Daisy77 350 26. Jan 2008, 23:36
Daisy77 Datumsproblem mit 2008?
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsproblem 21 noboc 1564 11. Feb 2007, 21:36
jens05 Datumsproblem
Keine neuen Beiträge Access Programmierung / VBA: Datumsproblem zwischen Tabelle und Code ... 4 Lars 595 11. Sep 2006, 13:20
Lars Datumsproblem zwischen Tabelle und Code ...
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsproblem in Abfrage 2 Domainhunter 699 19. Jun 2006, 15:51
Domainhunter Datumsproblem in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsproblem: Jareszahlen zählen 2 Gast 666 21. Jun 2005, 20:05
jens05 Datumsproblem: Jareszahlen zählen
Keine neuen Beiträge Access Tabellen & Abfragen: Datumsproblem unter access XP 1 Gecko304 484 18. Mai 2005, 16:23
jens05 Datumsproblem unter access XP
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum