Access-o-Mania

Hallo Zusammen

Mir hat der Code für die Selektion aktueller Daten in einem Kombinationsfeld

Zitat von: LustigSven am September 04, 2006, 17:38:48

Code [Auswählen] Erweitern


Private Sub Form_Load()

   Dim iCounter As Integer
   
   Me.Kombinationsfeld0.RowSource = Format(Date, "dd.mm.yyyy")
   For iCounter = 1 To 14
       Me.Kombinationsfeld0.RowSource = Me.Kombinationsfeld0.RowSource & ";" & Format(Date - iCounter, "dd.mm.yyyy")
   Next iCounter
   
End Sub


sehr geholfen. Ich möchte jedoch die nächsten 5 Tage anzeigen. (Heute + 5 Tage).  Kann mir jemand einen Tipp geben?

Danke

Roli

Hallo,
aus 14 mach 5 und aus - mach +  ;D
Private Sub Form_Load()

    Dim iCounter As Integer
   
    Me.Kombinationsfeld0.RowSource = Format(Date, "dd.mm.yyyy")
    For iCounter = 1 To 5
        Me.Kombinationsfeld0.RowSource = Me.Kombinationsfeld0.RowSource & ";" & Format(Date + iCounter, "dd.mm.yyyy")
    Next iCounter
   
End Sub

Danke Das habe ich glatt übersehen!