Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA --> Aktuellen Datensatz eines Unterformulars bestimmen

2,904 views
Skip to first unread message

Dirk Matzke

unread,
Dec 30, 2004, 8:32:09 AM12/30/04
to
Hallo Zusammen,

ich schaffe es nicht in einem Unterformular den aktuellen Datensatz zu
bestimmen.

Ich habe ein Formular in dem ich ein Unterformular angelegt habe. Das
Unterformular
stellt mir Datensätze in der Datenblattansicht einer Abfrage zur Verfügung.
Alles soweit prima! Jetzt möchte ich gerne den gerade ausgewählten Datensatz
bestimmen.
Welches Ereignis könnte ich dafür nutzen? Wenn ich den Datensatzzeiger
verschiebe,
dann wird kein Ereignis ausgelöst und damit bin ich auch nicht in der Lage
einen
Feldwert mittels Me.Unterformular.Feldname.Value zu bestimmen.

Ist es möglich mit DoCmd den gerade gewählten Datensatz zu bestimmen?

Dank an Euch

...Dirk


Karl Donaubauer

unread,
Dec 30, 2004, 8:41:05 AM12/30/04
to

Das wichtigste hast du verschwiegen:
Wo soll der o.a. Code eingesetzt werden?
Was ist das Ziel der Aktion?

Die Syntax sieht nach Hauptformular aus. Dort wird kein Ereignis
beim DS-Wechsel im UFo ausgelöst. Ausgelöst wird hingegen
das Ereignis "Beim Anzeigen" (OnCurrent) im UFo.
zur Syntax s.a. Access-FAQ 4.2

Ob und wie das für dich nutzbar ist, hängt vom eigentlichen Zweck
und Ziel der Sache ab. Das solltest du verraten.

--
HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com


Dirk Matzke

unread,
Dec 30, 2004, 9:39:56 AM12/30/04
to
Hallo Karl,

Also dann erzähl ich mal :-)!

Wie gesagt, ich habe ein Formular in dem ich zwei Unterformulare darstelle.
Beide Unterformulare (UFLinks und UFRechts) lasse ich als Liste
(Datenblattansicht) darstellen.
Die Daten aus UFLinks stellen mir alle Datensätze einer Tabelle dar. In
UFRechts
sind alle Datensätze gelistet, die ich von UFLinks nach UFRechts überführt
habe bzw. überführen will.
Ich möchte zwei Buttons dem Anwender anbieten:

a) Überführe alle Daten von UFLinks nach UFRechts
b) Überführe den gerade mit dem Datensatzzeiger bestimmten Datensatz von
UFLinks nach UFRechts

zu a)
Diese Functionalität stellt kein Problem dar, da ich einfach pauschal alle
Datensätze
überführen kann.

zu b)
Ich muss eben genau jetzt herausfinden auf welchem Datensatz, der
Datensatzzeiger steht,
wenn ich einen Button (Commandbutton) anklicke.

Wie muss ich das Unterformular ansprechen, damit ich diese Info bekomme?

So sollte es doch gehen, oder?
aktuelleID=<Hauptformular>.UFLinks.<??Datensatz??>.<Feldname>.value

Danke für Deine Hilfe

...Dirk

"Karl Donaubauer" <NoS...@donkarl.com> schrieb im Newsbeitrag
news:33ier6F...@individual.net...

Jens Schilling

unread,
Dec 30, 2004, 10:00:58 AM12/30/04
to
Hallo, Dirk Matzke
<snip>

> So sollte es doch gehen, oder?
> aktuelleID=<Hauptformular>.UFLinks.<??Datensatz??>.<Feldname>.value

Schau 'mal in die FAQ 4.2. ( http://www.donkarl.com ), dort wird der Zugriff
auf Unterformulare beschrieben; interessant ist in dem Zusammenhang auch
http://www.mvps.org/access/forms/frm0031.htm .
HTH
Gruß
Jens


Karl Donaubauer

unread,
Dec 30, 2004, 10:03:09 AM12/30/04
to
Dirk Matzke wrote:
> ...

> Also dann erzähl ich mal :-)!
>
> Wie gesagt, ich habe ein Formular in dem ich zwei Unterformulare
> darstelle. Beide Unterformulare (UFLinks und UFRechts) lasse ich als
> Liste (Datenblattansicht) darstellen.
> Die Daten aus UFLinks stellen mir alle Datensätze einer Tabelle dar.
> In UFRechts
> sind alle Datensätze gelistet, die ich von UFLinks nach UFRechts
> überführt habe bzw. überführen will.
> Ich möchte zwei Buttons dem Anwender anbieten:
>
> a) Überführe alle Daten von UFLinks nach UFRechts
> b) Überführe den gerade mit dem Datensatzzeiger bestimmten Datensatz
> von UFLinks nach UFRechts
>
> zu a)
> Diese Functionalität stellt kein Problem dar, da ich einfach pauschal
> alle Datensätze
> überführen kann.
>
> zu b)
> Ich muss eben genau jetzt herausfinden auf welchem Datensatz, der
> Datensatzzeiger steht,
> wenn ich einen Button (Commandbutton) anklicke.
>
> Wie muss ich das Unterformular ansprechen, damit ich diese Info
> bekomme?
>
> So sollte es doch gehen, oder?
> aktuelleID=<Hauptformular>.UFLinks.<??Datensatz??>.<Feldname>.value

Wenn der Code sich im Hauptformular befindet, reicht:
aktuelleID = Me!UFLinks!Feldname.Value
Das sollte immer den Wert aus dem aktuellen DS im UFo zurückgeben.

Wenn das bei dir nicht funktioniert, dann solltest du verraten, was
stattdessen kommt oder passiert. Am besten auch noch den
tatsächlichen Code posten, damit man die Feldnamen usw. sieht.

Ekkehard Böhme

unread,
Dec 30, 2004, 10:39:46 AM12/30/04
to
Hallo Dirk,

"Dirk Matzke" <d.ma...@ontiv.com> schrieb im Newsbeitrag
news:%23cLww1n...@TK2MSFTNGP14.phx.gbl...

Warum benutzt Du statt UFos nicht Listfelder?
Da hast Du dann zusätzlich noch die Möglichkeit beliebig viele Datensätze
von links nach rechts zu übertragen.
Stichworte: Multiselect, ItemsSelected
mfg
ekkehard böhme


Dirk Matzke

unread,
Dec 30, 2004, 12:40:37 PM12/30/04
to
Hallo Ekkehard,

ich möchte keine Listenfelder verwenden,
weil ich gerne die Zusatzfunktionen, wie z.B.
das Sortieren (auf/ab) oder auch die Filterfunktionalität,
die ich ja per Rechtsklick (Kontektmenü) auf ein Formular
(Datenblattansicht)
erhalte, verwenden möchte. Denn diese Funktionen müsste ich
ansonsten noch zusätzlich programmieren. Und warum noch schaffen,
wenn's denn sowas schon gibt. Ich will ja das Rad nicht neu erfinden ;-)!

Danke dir für Deinen Hinweis!

Grüße

...Dirk

"Ekkehard Böhme" <e...@udopea.de> schrieb im Newsbeitrag
news:41d42...@news.arcor-ip.de...

Dirk Matzke

unread,
Dec 30, 2004, 12:42:22 PM12/30/04
to
Hallo Jens,

ich werde mir die Links mal ansehen und Dir noch sagen,
ob ich damit mein Problem beheben konnte.

Danke schon mal für den Hinweis!

Grüße

...Dirk


"Jens Schilling" <jensschilling...@fissership.de> schrieb im
Newsbeitrag news:#S2Fb$n7EHA...@TK2MSFTNGP10.phx.gbl...

Dirk Matzke

unread,
Dec 30, 2004, 12:44:22 PM12/30/04
to
Hallo Karl,

ich werde mal schauen, ob ich nach Deinem Muster
das UFo ansteuern kann. Ansonsten melde ich mich mit
einer Konkreten Anwendung (Source), damit wir das mal
deutlicher durchforsten können.

Ich danke Dir für Deine Unterstützung!

Viele Grüße

...Dirk

"Karl Donaubauer" <NoS...@donkarl.com> schrieb im Newsbeitrag

news:33ijl0F...@individual.net...

0 new messages