PDA

Vollständige Version anzeigen : Optionsgruppen!


Beginner
10.06.2001, 22:43
Hi,

Kann mir vielleicht jemand ein beispiel nennen, wie ich über zwei Optionsgruppen (mit je 5 Auswahlmöglichkeiten) mir Felder aus einer Abfrage oder eimenm Formular auswählen kann um mit den daten der Spalten eine Berechnung durchzuführen?

Ein komplettes Beispiel in VBA währe gut, da ich denn Aufbau solcher Prozeduren noch nicht ganz verstanden habe.

Danke

Kurt aus Kienitz
11.06.2001, 07:37
Hallo,

Angenommen es gibt folgende Tabelle:
Betraege
- Betrag1 / Zahl / Double
- Betrag2 / Zahl / Double
- Betrag3 / Zahl / Double
- Betrag4 / Zahl / Double
- Betrag5 / Zahl / Double

Dazu ein Formular (ungebunden) mit den Optionsgruppen
GrpFelder
- welche 5 Radiobuttons mit den Werten 1-5
- und 5 Textfelder (dfFeld1 - dfFeld5)
enthält
GrpTabelle
- welche 5 Radiobuttons mit den Werten 1-5
enhält.

Dann sollte ein Button zur Berechnung folgenden Code haben:

Private Sub PbBerechnung_Click()

Dim ValFrm As Double
Dim ValTbl As Double
Dim vVar As Variant

Select Case Me.GrpFelder
Case 1
ValFrm = Me.dfFeld1
Case 2
ValFrm = Me.dfFeld2
Case 3
ValFrm = Me.dfFeld3
Case 4
ValFrm = Me.dfFeld4
Case 5
ValFrm = Me.dfFeld5
End Select

Select Case Me.GrpTabelle
Case 1
vVar = DLookup("[Betrag1]", "Betraege", "")
Case 2
vVar = DLookup("[Betrag2]", "Betraege", "")
Case 3
vVar = DLookup("[Betrag3]", "Betraege", "")
Case 4
vVar = DLookup("[Betrag4]", "Betraege", "")
Case 5
vVar = DLookup("[Betrag5]", "Betraege", "")
End Select

If IsNull(vVar) Then
ValTbl = 0
Else
ValTbl = vVar
End If

Me.dfErg = ValFrm * ValTbl

End Sub

Me.dfErg ist ein Textfeld auf dem Formular um das Ergebnis der Berechnung anzuzeigen.

Ich hoffe daß hilft Dir weiter.
Grüße Kurt

P.S.
Wenn Du möchtest schicke ich Dir die entsprechende Bsp. DB zu.

Beginner
11.06.2001, 16:33
Hallo Kurt,

Erstmal danke für die schnelle Hilfe.

Ich habe dir eine E-mail mit der Tabelle etc. geschickt.

CU