Optionsgruppen Abfrage in VBA
Lara Kettler
ich habe eine Optionsgruppe "opt_Gruppe1" angelegt, mit 2 Optionsfeldern
(Option1 und option2) und möchte die jetzt in VBA abfragen.
Mit
Wert = Me.opt_Gruppe1
oder
Wert= Me.option1
funktioniert das nicht, wie kann ich denn abfragen, welche Option gerade
gewählt wurde?
Danke
Lara
Jürgen Volke
du mußt den Wert des Rahmens abfragen!
HTH Jürgen
Jens Schilling
Jede der Optionen innerhalb einer Optionsgruppe hat einen Wert
( siehe in den Eigenschaften unter Daten), bei zwei Optionen sind dies
standardmässig 1 und 2 .
Also sollte funktionen :
if Me.opt_Gruppe1 = 1 then
Tu was.........
und so weiter.......
end if
HTH
Gruß aus Hamburg
Jens
Sven Arkasmussen
> ich habe eine Optionsgruppe "opt_Gruppe1" angelegt, mit 2
> Optionsfeldern (Option1 und option2) und möchte die jetzt
> in VBA abfragen.
> Mit
> Wert = Me.opt_Gruppe1
> oder
> Wert= Me.option1
>
> funktioniert das nicht
Wert = Me.opt_Gruppe1
funktioniert bei mir derart zuverlässig, dass ich versucht bin
zu glauben, dass irgendwas von dem was du schilderst nicht den
tatsächlichen Gegebenheiten entspricht.
Was ich mir noch vorstellen könnte ist, dass keines der beiden
Optionsfelder ausgewählt und daher der Wert von opt_Gruppe1
noch Null ist und daher der Variablen <Wert> nicht zugewiesen
werden kann, ohne dass das einen Laufzeitfehler 13 "Typen
unverträglich" auslösen würde.
Insofern wäre wirklich sehr sehr sehr sehr sehr förderlich,
wenn endlich mal jemand damit rausrücken würde, /wie/ sich
der Fehler äußert, statt des ewigen dämlichen idiotischen
nichtssagenden reim-es-dir-doch-selber-zusammen-"funktioniert
nicht".
Salü,
Sven
--
Im Übrigen bin ich der Meinung, dass die Groß-/Kleinschreibung
abzuschaffen ist.
Norbert Laas
hier ein Beispiel in der Nordwind
In dem Form Bestelleungen füge bitte nachstehenden Code ein
Danach wird der Wert immer ausgelesen, und mit einer Msg ausgegeben
Private Sub VersandÜber_BeforeUpdate(Cancel As Integer)
Dim strWert As String
Select Case Me.VersandÜber
Case Is = 1
strWert = "gewählt wurde Speedy"
Case Is = 2
strWert = "gewählt wurde United"
Case Is = 3
strWert = "gewählt wurde Federal"
End Select
MsgBox strWert
End Sub
Viel Glück Norbert
"Lara Kettler" <webm...@lara-shadow.de> schrieb im Newsbeitrag
news:2k1eioF...@uni-berlin.de...
Lara Kettler
den Rahmen...hmmm... an den hätte ich nie gedacht... hab sogar die
Bezeichnungsfelder als Abfragewert versucht, aber den Rahmen hielt ich für
soooo unwahrscheinlich, das ich es nicht mal getestet hab.
Danke..
Lara
"Jürgen Volke" <juerge...@hotmail.com> schrieb im Newsbeitrag
news:2k1pq5F...@uni-berlin.de...