Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: Pergus am März 21, 2011, 00:57:08

Titel: Ausgewähltes Optionsfeld einer Optionsgruppe über VBA auslesen
Beitrag von: Pergus am März 21, 2011, 00:57:08
Hallo Access´ler!  8)

??? Kann mir jemand hierbei helfen?  ???

http://www.access-o-mania.de/forum/index.php?topic=14029.0 (http://www.access-o-mania.de/forum/index.php?topic=14029.0)

Danke im Voraus

Pergus
Titel: Re: Ausgewähltes Optionsfeld einer Optionsgruppe über VBA auslesen
Beitrag von: database am März 21, 2011, 14:57:12
Hallo,

wenn du von einer Optionsgruppe sprichst, liest du den ausgewählten Wert über den Dateninhalt des Gruppenrahmens aus.

Wenn deine Optionsgruppe nun den Namen 'StempelGruppe' trägt würde das in der Form passieren:


Dim lngStempelgrund as Long

lngStempelgrund= Me!StempelGruppe


Somit hast du die ID, welche in der Tabelle 'tblStempelungen' als Fremdschlüssel geführt wird (StempelungsgrundID)

Mittels dieser Information kannst du nun weiter die Tabelle 'tblStempelungsgruende' abfragen um an den Text zu gelangen:


Dim lngStempelgrund as Long
Dim strGrund as String

lngStempelgrund= Me!StempelGruppe
strGrund = DLookup("Stempelungsgrund","tblStempelungsgruende","StempelungsgrundID=" & lngStempelgrund


oder verkürzt:


Dim strGrund as String

strGrund = DLookup("Stempelungsgrund","tblStempelungsgruende","StempelungsgrundID=" & Me!StempelGruppe



Stempelungsgrund bezeichnet das Tabellenfeld der tblStempelungsgruende, in dem die Texte stehen.
HTH

Titel: Re: Ausgewähltes Optionsfeld einer Optionsgruppe über VBA auslesen
Beitrag von: Pergus am März 21, 2011, 20:11:27
Hallo database,

und wieder hast Du mir geholfen!  :)

Ich kann Dir nur großen Lob aussprechen für Deine schnellen, kompetenten und professionellen Tipps, die einfach und vor Allem schnell zum Ziel führen!  ;)

Übrigens, entschuldige, vor lauter dass ich konzentriert Deine Stellungnahme gelesen habe, sehe ich erst jetzt, dass Du eigentlich Peter heißt, mein Name ist Gustav, komme aus Südtirol und sende Dir von Bozen

freundliche Grüße

Gustav