Hallo
Ich habe eine Liste mit Daten.
Die Daten können einzeln selektiert werden.
Jetzt soll nach einer Bearbeitung wieder der Urzustand der Liste hergestellt werden.
Gibt es da eine Funktion oder einen Trick?
Inzwischen glaub ich nicht mehr daran, aber vielleicht weiß jemand Rat??
Danke,
Jan
Kein Grund zum verzweifeln…
Hi Jan,
wenn Du dem Steuerelement den Wert zuweist, werden alle Selektion aufgehoben:
me.liste1 = null
Grusz, Dennis
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Dennis,
Schön wär’s, aber ist doch zum verzweifeln.
Ich habe folgendes
With Me
.lstMA = null 'auf null setzen
.lstMA.Enabled = False 'nicht aktiv
.lstMA.Locked = True 'gesperrt
.lstMA.BackColor = 12632256 'hintergrund farbe setzen
End With
Weder mit me.lstMA=null noch me.lstMA=0 krieg ich das hin.
verzweifelte grüße,
jan
Hi Jan,
wenn Du dem Steuerelement den Wert zuweist,
werden alle Selektion aufgehoben:me.liste1 = null
Grusz, Dennis
Hallo
Ich habe eine Liste mit Daten.
Die Daten können einzeln selektiert werden.
Jetzt soll nach einer Bearbeitung wieder der Urzustand der
Liste hergestellt werden.
Gibt es da eine Funktion oder einen Trick?
Inzwischen glaub ich nicht mehr daran, aber vielleicht weiß
jemand Rat??Danke,
Jan
Hallo.
Prüf mal, ob IstMA nur die Feldbezeichnung aus Tabelle oder Abfrage ist und das Steuerelement im Formular eventuell anders heißt. Normalerweise muß der Tip von Dennis nämlich funktionieren.
Wenn dem nicht so ist, bliebe noch die Empfehlung, mit Me.Repaint das Formular neu anzeigen zu lassen …
Gruß kw
Verzweifeln…
Hallo,
lstMA ist der Name des Steuerelements, er taucht auch sonst nirgends auf, ist richtig geschrieben, etc.
Mit dem besagten me.lstMA=Null klappts nicht (aber die anderen Befehle die sich auf die Liste beziehen, die tun ja auch ihren Dienst…)
Auch repaint bringt nichts…
Jan
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Endlich hingekriegt
Es war eine schwierige Geburt, aber endlich ist es doch geschafft:
Dim intI As Integer
For intI = 0 To Me.lstMeineListe.ListCount
Me.lstMeineListe.Selected(intI) = False
Next
Damit klappts!
Jan