PDA

Vollständige Version anzeigen : Optionsfelder


Hurst Juergen
05.05.2004, 20:38
hi profis,

ich habe in meiner DB ein startformular aus dem formular möchte ich andere formulare aufrufen per optionsfeld.

z.B. möchte ich optionsfeld 1 anklicken (testformular aufrufen) und dan über eine ok - butten das testformular statten.

habe 6 verschiedene formulare !


wer kann mir da weiterhelfen


im voraus schon einmal danke

Arne Dieckmann
05.05.2004, 20:44
Dazu musst Du den Wert der Optionsgruppe auslesen und entsprechend reagieren - Beispiel für den Button-Code:

Dim stDocName as String

Select Case Me!Optionsgruppe 'hier den Namen der Opt.gr. einsetzen
Case is =1
stDocName="Testformular"
Case is =2
stDocName="AnderesFormular"
'...
Case is=6
stDocName="DasLetzteFormularInDerReihe"
Case else
stDocName="StandardFormular"
End Select

DoCmd.OpenForm stDocName

Hurst Juergen
05.05.2004, 21:26
Original geschrieben von Arne Dieckmann
Dazu musst Du den Wert der Optionsgruppe auslesen und entsprechend reagieren - Beispiel für den Button-Code:

Dim stDocName as String

Select Case Me!Optionsgruppe 'hier den Namen der Opt.gr. einsetzen
Case is =1
stDocName="Testformular"
Case is =2
stDocName="AnderesFormular"
'...
Case is=6
stDocName="DasLetzteFormularInDerReihe"
Case else
stDocName="StandardFormular"
End Select

DoCmd.OpenForm stDocName


Danke ! Arne es funktioniert
habe aber noch eine Frage !
was muss ich dem 7 optionsfeld zuweisen das die db beendet wird.

Arne Dieckmann
05.05.2004, 21:37
Probiere es einmal mit DoCmd.Quit

BTW: Meinen vorigen Beitrag komplett zu zitieren ist wenig sinnvoll und trägt nicht unbedingt zur Übersichtlichkeit bei (ich weiss noch, was ich kurz vorher geschrieben habe ;))

Hurst Juergen
05.05.2004, 22:05
ich habe der optionsgruppe 7 DoCmd.Quit zugewiesen funktioniert nicht !

Fehlermeldung Formular ist falsch geschrieben oder existiert nicht !

Andre_P
05.05.2004, 22:20
Probiere es mal mit


...
Case is=7
DoCmd.Quit
Exit Sub
...


Gruß
André
(@Arne sorry wenn ich mich hier einmische :) )

Hurst Juergen
05.05.2004, 22:38
Original geschrieben von Andre_P
Probiere es mal mit


...
Case is=7
DoCmd.Quit
Exit Sub
...


Gruß
André
(@Arne sorry wenn ich mich hier einmische :) )


Vielen Dank für deine Hilfe es funktionier, nochmal Danke !!!!!!