Office: (Office 2013) Ersten Datensatz aus Listbox anzeigen

Hallo Forum,

ich habe ein Pflege-Formular für eine Tabelle, sagen wir MITARBEITER. Links steht eine sortierte Listbox mit allen Mitarbeitern, rechts ein Detail-Datensatz. Über die gebundene Spalte in der Listbox wird der zugehörige Datensatz gefunden. Das funktioniert über ein Makro "SuchenNachDatensatz" mit der Bedingung "="[ID_MA] = " & Str(Nz([Screen].[ActiveControl];0)).

Mein Problem ist, dass beim Laden des Formulars im Detail-Bereich der erste Datensatz der Tabelle angezeigt wird. Ich möchte aber entweder im Detail-Bereich nichts anzeigen oder aber den ersten Datensatz aus der Listbox.

Ich kann mit folgendem Code beim Laden des Formulars den ersten Eintrag in der Listbox markieren:
If Me!lst_auswahl.ListCount > 0 Then
Me!lst_auswahl.Selected(1) = True
End If

Das führt aber zum Fehler im Makro.

Wie stelle ich es richtig an, dass beim Öffnen des Formulars der erste Datensatz in der Listbox markiert und rechts angezeigt wird?

Vielen Dank im Voraus für alle Anregungen und beste Grüße,
Michael

:)

 

Hallo,

Verwende ein ungebundenes Formular, oder Datenquelle in Abhängigkeit von einem Auswahlfeld bringen, so dass erst was angezeigt wird wenn was ausgewählt wird.

Gruß Andreas

 

Code:

 

Ich habe den Code in das Form-Load-Ereignis eingebunden. Aber es passiert nichts...

 

Schreibs mal in "Beim Öffnen..."
(VBA - kein Makro)

 

Dank an alle, die geholfen haben!

Folgender Code hat zum Ziel geführt:

Private Sub Form_Load()
Me.lst_auswahl.SetFocus
Me.lst_auswahl.ListIndex = 0
End Sub

Mein Fehler war, das ich beim ersten Versuch ListIndex ohne vorheriges SetFocus benutzt habe - und das führt zum Fehler! Gemeine Sache...

 

Zu früh gefreut *upps

Zwar ist jetzt der erste Eintrag in der Listbox wie gewünscht markiert, ich bekomme beim Laden der Form aber wieder:
Fehler 2950
Aktionsname: "SuchenNachDatensatz"
Argumente: -1; ; Erster; ="[ID_KURS] = " & Str(Nz([Screen].[ActiveControl],0))

Mir ist nicht klar, was diese 2 Code-Zeilen da anrichten. Meine Erwartung war, dass sie genau das tun, was der Benutzer mit seinem Klick auch auslöst...

 

Schick doch mal die DB - als mdb(!) - hier rauf. Reicht ja das Formular und die entsprechende Tabelle/n.

 

Hallo Jan,

konvertieren in MD ist nicht möglich wegen Datenmakros. Und genau da hakt es ja...

Zudem bekomme ich die Datei gepackt nicht kleiner als 311 KB, und das ist immer noch zu groß. DB enthält nur noch eine Mini-Tabelle und ein Mini-Formular, komprimiert ist sie auch.

Was könnte ich da noch tun?

Michael

 

Was hast Du denn da für Makros?
Versuche, alles per VBA (Code) zu machen!
Löse Dich von den Makros (ausgenommen z.B. AutoExec)!

Z.B. http://www.computerwoche.de/v/access...ren-2-2,592897

 

Die Listbox (lst_auswahl) hat im Ereignis "Nach Aktualisierung" das Makro "SuchenNachDatensatz" mit der Bedingung "="[ID_MITARBEITER] = " & Str(Nz([Screen].[ActiveControl];0))".

Das habe ich nun in VBA wie folgt umgewandelt:
DoCmd.SearchForRecord , "", acFirst, "[ID_MITARBEITER] = " & Str(Nz(Screen.ActiveControl, 0))

Der Makro-Fehler ist damit beseitigt - aber ein neuer Fehler aufgetaucht!

Im Debug-Modus (Einzelschritt) funktioniert alles wie gewünscht.
Im Form-Load-Ereignis habe ich den Code zum Markieren des ersten Eintrages der Listbox:
Me.lst_auswahl.SetFocus
Me.lst_auswahl.ListIndex = 0

Lade ich das Formular aber normal, bekomme ich den Laufzeitfehler 2474 bei DoCmd.SearchForRecord...:
"Für den von Ihnen eingegebenen Ausdruck ist es erforderlich, dass sich das Steuerelement im aktiven Fenster befindet."

Das macht mich etwas ratlos...

Gruß
Michael

 

Ok,
kannst Du es jetzt als .mdb umwandeln?
(Deine Form_Load-Geschichten bitte nach Form_Open verschieben).

... habe ich noch nie gehört!?

Also, schick mal die mdb rauf... will dann noch "Federer vs. Kohlschreiber" schauen :-)

 

Jan, vielen Dank für Deine Hartnäckigkeit.

Ich habe ein bisschen den Wald vor lauter Bäumen nicht gesehen. Das Problem lag wohl im Screen.ActiveControl. Ich habe jetzt einfach den Namen der Listbox eingetragen und siehe: es funktioniert!

MDB geht immer noch nicht - was auch immer das verhindern mag...

Du kannst jetzt also beruhigt Tennis gucken gehen!!!

Beste Grüße
Michael

 

OK, super :-)

Nach Tennis dann heute spät noch Boxen (Brähmer vs. Konrad).
:-)

PS: Meine erste Version für's Listenfeld müsste aber auch funktionieren (#3).

 

Hallo Michael!

Zur Information:
Die aktuelle Zeile ist eigentlich 0-basiert.
Aber: die aktuelle Zeile bei eingeschalteten Spaltenüberschriften ist 1-basiert.
Diesfalls ergibt:
? DeinListenfeld.Listcount die Anzahl der Datenzeilen+1.
? DeinListenfeld.Itemdata(0) den Feldnamen der gebundenen Spalte.
? DeinListenfeld.Itemdata(1) den Inhalt der gebundenen Spalte.

Unter A03 funktioniert bei mir mit eingeschalteten Spaltenüberschriften
in Form_Open problemlos:

If Me!DeinListenfeld.ListCount > 1 Then Me!DeinListenfeld.Selected(1) = True

Bei Dir nicht?

Wolfgang