Option Compare Database
Option Explicit
Private Sub Befehl0_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Text1_AfterUpdate()
'***** Variablen deklarieren
Dim Datumsstring As String
Dim Suchdat As String
Dim Jahreszeit As String
Dim Ergebnis_Jahreszeit As String
Dim Saison As String
Dim Ergebnis_Saison As String
Datumsstring = Format(CStr(Day(Me.Datum)) _
+ "." + CStr(Month(Me.Datum)) _
+ "." + CStr(Year(Me.Datum)), _
"dd.mm.yyyy") _
'Übergabe an Variable und Format tt.mm.yyyy
Debug.Print Datumsstring
Let Suchdat = Datumsstring
'***** Function Jahreszeit aufrufen
Let Ergebnis_Jahreszeit = Jahreszeit2(Suchdat)
Debug.Print Ergebnis_Jahreszeit
Me.Jahreszeit = Ergebnis_Jahreszeit
'***** Function Saison aufrufen
Let Ergebnis_Saison = Saison2(Suchdat)
Debug.Print Ergebnis_Saison
Me.Saison = Ergebnis_Saison
MsgBox ("Datensatz neu angelegt")
End Sub
'***** Function zur Umrechnung des Datums in einen Jahreszeit
Public Function Jahreszeit2(Suchdat As String) As String 'Eingabe gültiges Datum als String "tt.mm.jjjj"
Dim mmtt As Integer
Dim jjjj As Integer
mmtt = Val(Mid(Suchdat, 4, 2)) * 100 + Val(Mid(Suchdat, 1, 2))
jjjj = Val(Mid(Suchdat, 7, 4))
'Debug.Print "Monat: " & Val(Mid(Suchdat, 4, 2))
'Debug.Print "Tag: " & Val(Mid(Suchdat, 1, 2))
'Debug.Print "Jahr: " & Val(Mid(Suchdat, 7, 4))
'Debug.Print "mmtt: " & mmtt
'Debug.Print "jjjj: " & jjjj
Select Case mmtt
Case 301 To 531
Jahreszeit = "Frü " & Right(Str(jjjj), 2)
Case 601 To 831
Jahreszeit = "Som " & Right(Str(jjjj), 2)
Case 901 To 1130
Jahreszeit = "Her " & Right(Str(jjjj), 2)
Case 1201 To 1231
Jahreszeit = "Win " & Right(Str(jjjj), 2) & "/" & Right(Str(jjjj + 1), 2)
Case 101 To 229
Jahreszeit = "Win " & Right(Str(jjjj - 1), 2) & "/" & Right(Str(jjjj), 2)
Case Else
Jahreszeit = "Fehler in der Jahreszeitermittlung"
End Select
Debug.Print Jahreszeit
End Function
'***** Function zur Umrechnung des Datums in eine Saison
Public Function Saison2(Suchdat As String) 'Eingabe gültiges Datum als String "tt.mm.jjjj"
Dim mmtt As Integer
Dim jjjj As Integer
mmtt = Val(Mid(Suchdat, 4, 2)) * 100 + Val(Mid(Suchdat, 1, 2))
jjjj = Val(Mid(Suchdat, 7, 4))
Select Case mmtt
Case 701 To 1231
Saison = "S " & Right(Str(jjjj), 4) & "/" & Right(Str(jjjj + 1), 2)
Case 101 To 630
Saison = "S " & Right(Str(jjjj - 1), 4) & "/" & Right(Str(jjjj), 2)
Case Else
Saison = "Fehler in der Saisonermittling"
End Select
Debug.Print Saison
End Function