Hallo,
ich suche eine Möglichkeit, ein Formular (FormA) über die
Datensatzquelle mit unterschiedlichen Abfragen (Abfr1 oder
Abfr2 oder Abfr 3…)zu starten. Die Auswahl der Abfrage sollte
über eine Optionsgruppe erfolgen.
Wer kann mir mal auf die Sprünge helfen?
Das kann ich machen…(Wobei das mit verschiedenen Abfragen eher weniger optimal ist, wenn sich nur die Kriterien, aber nicht die Felder oder die zugrundeliegende Tabelle ändern.)
Mit Übergabe von Kriterien
Sub OptGruppe1_Click()
Select Me!optgruppe!
Case 1
Docmd.Openform „FormA“,„ZahlTabellenfeld=>“
Case 2
Docmd.Openform „FormA“,„TextTabellenfeld=‚IrgeneinText‘“
Case 3
Docmd.Openform „FormA“,"TextTabellenfeld=‚IrgeneinText‘
Case else
Ebd Select
End Sub
Wenn es unbedingt mit Abfragen passieren soll, dann muss der Optgr-Wert als Openarg-Parameter übergeben und im Form_Load Ereignis ausgewertet werden:
Sub OptGruppe1_Click()
Docmd.Openform „FormA“,Me!OptGruppe1
End Sub
Sub FormA_Load()
If not isNull(Me.Openargs) Then
Select Case Me.Openargs
Case 1 : Me.Recordsource =„Abfr1“
Case 2 : Me.Recordsource =„Abfr2“
Case 3 : Me.Recordsource =„Abfr3“
Case else : Me.Recordsource =„Tabelle1“
End Select
End If
End Sub
Gruß
Franz, DF6GL