Bestimmten Datensatz anspringen beim Öffnen eines Formulars
Jaro
Gesendet: 02.08.11 14:02
Betreff: Bestimmten Datensatz anspringen beim Öffnen eines Formulars


Hallo und guten Tag,

folgende kleine Herausforderung:

Ich habe ein Hauptformular, die Tabelle dahinter beinhaltet ca. 1000 Datensätze.
Ein Steuerelement im Hauptformular ist die Mitarbeiternummer.
Weiterhin ist ein Button integriert der bei Klick ein 2. Formular öffnet und das Hauptformular schließt.

Code:
Private Sub btn_weitereDaten_Click()
DoCmd.OpenForm "2. Formular", acNormal, , "[mitarbeiternummer]= [Forms]![Hauptformular]![mitarbeiternummer]", acFormEdit, acWindowNormal
DoCmd.Close acForm, "hauptformular" acSavePrompt
End Sub

In das 2. Formular kann man weitere Daten erfassen die in einer separaten Tabelle gespeichert werden.
Wenn in dieses Formular etwas erfasst wird, wird auch die Mitarbeiternummer in die dahinterstehende Tabelle übertragen.
In diesem 2. Formular ist ebenfalls ein Button integirert der bei Klick eine Abfrage ausführt, das Hauptformular wieder öffnet und das 2. Formular schließt.

Code:
Private Sub btn_PelSchließen_Click()
Dim str_sql_befr As String
On Error GoTo Fehler

str_sql_befr = ...

DoCmd.RunSQL str_sql_befr
DoCmd.OpenForm "Hauptformular", , acNormal, , acFormEdit, acWindowNormal
DoCmd.Close acForm, "2. Formular", acSavePrompt
End Sub

Das funktioniert problemlos.

Beim Öffnen des Hauptformular soll aber der Datensatz mit der Mitarbeiternummer aufgerufen werden, welcher im 2. Formular - bevor es geschlossen wird - gerade aktiv ist.

Wenn ich dafür anstelle
DoCmd.OpenForm "Hauptformular", , acNormal, , acFormEdit, acWindowNormal

das Ereignis hinterlege:
DoCmd.OpenForm "Hauptformular", acNormal, , "[mitarbeiternummer]= [Forms]![2. Formular]![mitarbeiternummer]", acFormEdit, acWindowNormal

dann funktioniert dass auch problemlos, aber es es erscheint nur dieser eine Datensatz im Hauptformular.
Ich möchte aber alle ca. 1000 Datensätze in das Hauptformular laden und trotzdem diesen einen Datensatz anspringen.

Bin gespannt auf Eure Vorschläge. Ich habe alles an Infos umgepflügt die ich gefunden habe - habe aber noch keine Lösung gefunden.

Vielen Dank vorab!
Grüße Jaro
Top of the page Bottom of the page