Public Function fktbestDatensatz()
Dim Meldung, Antwort As String
Meldung = „Geben Sie eine Artikelnummer ein oder wählen Abbrechen“
Antwort = InputBox(Meldung, „Alle Sätze mit einer bestimmten Artikelnummer“, „“)
If Antwort „“ Then
DoCmd.OpenForm „Tabelle1“, , , „[Artikelnummer]=’“ & Antwort & "’ "
Else
DoCmd.OpenForm „Tabelle1“
DoCmd.Maximize
End If
End Function
lade ich mir das Forular mit den entsprechenden Daten. Klappt ja alles, aber in der Tabelle gibt es ein Feld Eingangsdatum und nach diesem sortiert sollen die Arttikelnummern angezeigt werden.
erstell eine Abfrage (im Abfragenetwurf) auf Basis der Tabelle und sortiere dort nach dem Eingangsdatum. Diese Abfrage(namen) schreibst Du in die Form-Eigenschaft „Datenherkunft“, bzw, wählst ihn dort aus.
Du kannst die Abfrage (SQL-String) aber auch gleich durch Klick auf die 3 Pünktchen rechts neben dieser Form-Eigenschaft erzeugen. Es wird dabei auch der Abfrageentwurf geöffnet, jedoch wird der SQL-String der Abfrage in der Datenherkunft gespeichert.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Nach dem Oeffnen des Formulars mittels
Formular.OrderBy = Eingangsdatum und Formular.OrderOn = True
Die Bedinngung beim Oeffnen wegflassen, in der Entwurfansicht die des Formulars die Datenherkunft auf „“ setzen
und dann nach dem Oeffnen mittels
Formular.RecordSource = „Select * From myTable ORDER BY Eingangsdatum“
das komplette SQL-Statement setzen.
Tschau
Peter
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]