Bestimmte Datensaetze aus Tabelle anzeigen lassen

[Maike_B]

Hallo,

ich versuche aus einer Tabelle alle Datensaetze rauszusuchen, die das Ueberschreitungsdatum (Expire date) ueberschreiten. Mein vermeintliches Expire date beziehe ich aus der Textbox13. Nun moechte ich aber das nur die Datensaetze ausgegeben werden, die auch tatsaechlich das Expire date ueberschritten haben. Wie kann ich das einstellen? Momentan werden mir alle Datensaetze im Immediate Window ausgegeben.

Viele Gruesse

Maike

--

Private Sub Command17_Click()
Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim dateZ As String

dateZ = CDate(Text13)

Set Conn = CurrentProject.Connection
Set rst = New ADODB.Recordset

With rst
.Open "Employees", Conn, adOpenKeyset, adLockOptimistic

Do Until rst.EOF

Select Case dateZ

Case Is <= "Expire_DGA"
Debug.Print .Fields("Lastname").Value
Debug.Print .Fields("Branch").Value
Debug.Print .Fields("Expire_DGA").Value

Case Is <= "Expire_ADR"
Debug.Print .Fields("Lastname").Value
Debug.Print .Fields("Branch").Value
Debug.Print .Fields("Expire_ADR").Value

Case Is <= "Expire_IATA"
Debug.Print .Fields("Lastname").Value
Debug.Print .Fields("Branch").Value
Debug.Print .Fields("Expire_IATA").Value

Case Else
Debug.Print ""

End Select

rst.MoveNext

Loop


End With

Set rst = Nothing
Set Conn = Nothing

End Sub

 

[dignsag]

Hallo,

schau dir doch mal das Unterformular-Control an.

Du füllst ja normalerweise ein Recordset durch eine SQL Abfrage. Diese Abfrage kannst du auch auf dieses Control anwenden. Und durch die Filter-Eigenschaft des Controls kannst du deine Datensätze einschränken. Der Filter ist hierbei sozusagen die WHERE-Klauses der Abfrage. Das heißt du kannst auch mit der Textbox wo dein Datum herkommt arbeiten indem du den Abfragenstring durch "&" zusammenbaust!

Schaus dir mal an.

Gruß Dignsag