Listenfeld: ersten Eintrag nach Requery wieder markieren
Stefan Paesch
ich verschiebe DSe aus einem Listenfeld in ein anderes Listenfeld per
Button. Die Listenfelder sind an Tabellen gebunden.
Die DS werden per SQL-Anweisung in den Tabellen angefügt bzw.
gelöscht.
Mein Problem:
In Listbox A sind 2 Datensätze. Einen "verschiebe" ich in Listbox B.
Dann möchte ich in Listbox A den ersten DS wieder per VBA markieren.
Gelingt nur nicht. Der erste DS ist sozusagen nicht "schwarz" sonder
nur "invers" markiert und hat offensichtlich nicht den Focus.
Das eigentliche Daten verschieben habe ich in eine Funktion gepackt.
Private Sub cmdEinzelnZufügen_Click()
Call fEinzelnEinfügen
Forms!frm_Listbox!ListeA.SetFocus
Forms!frm_Listbox!ListeA = Forms!frm_Listbox!ListeDaten.ItemData(0)
End Sub
Hat jemand einen Tipp für mich, was falsch läuft.
Vielen Dank und viele Grüße Stefan.
Vista 64 Bit Ultimate
Acc 2007 SP 2
Josef Poetzl
Stefan Paesch schrieb:
> Mein Problem:
> In Listbox A sind 2 Datensätze. Einen "verschiebe" ich in Listbox B.
> Dann möchte ich in Listbox A den ersten DS wieder per VBA markieren.
> Gelingt nur nicht. Der erste DS ist sozusagen nicht "schwarz" sonder
> nur "invers" markiert und hat offensichtlich nicht den Focus.
>
> Das eigentliche Daten verschieben habe ich in eine Funktion gepackt.
>
> Private Sub cmdEinzelnZufügen_Click()
>
> Call fEinzelnEinfügen
> Forms!frm_Listbox!ListeA.SetFocus
> Forms!frm_Listbox!ListeA = Forms!frm_Listbox!ListeDaten.ItemData(0)
>
> End Sub
Eventuell liefert Forms!frm_Listbox!ListeDaten.ItemData(0) nicht den
gewünschten Wert?
Falls du den ersten Eintrag im Listenfeld auswählen willst, würde so
etwas ausreichen:
| formRef.ListeA.value = formRef.ListeA.Column(0, 0)
... wobei in diesem Fall die erste Spalte die gebundene Spalte sein
müsste.
mfg
Josef
--
Code-Bibliothek für Access-Entwickler: http://access-codelib.net/
Access-FAQ von Karl Donaubauer: http://www.donkarl.com/
Michael Franke
wie sieht's bei folgendem Code aus:
Private Sub cmdEinzelnZufügen_Click()
Call fEinzelnEinfügen
Forms!frm_Listbox!ListeA.SetFocus
Forms!frm_Listbox!ListeA.ListIndex = 0
End Sub
Gruß, Michael
Stefan Paesch
der Code von Michael hat es gebracht.
>Forms!frm_Listbox!ListeA.SetFocus
>Forms!frm_Listbox!ListeA.ListIndex = 0
Vielen Dank für die Hilfe. Stefan.
Stefan Paesch
Sorry .... Josef.