PDA

Vollständige Version anzeigen : viele onclicks


Wile E G
11.07.2001, 13:27
hi
folgendes: ich habe ca 70 ungebundene optionsfelder und möchte, wenn diese geklickt werden eine sub ablaufenlassen.
muss ich jetzt 70x folgendes machen:

Private Sub OptA1_Click()
DoCmd.GoToControl "Arbeitsplatz"
DoCmd.FindRecord "A1"
End Sub

Private Sub OptA2_Click()
DoCmd.GoToControl "Arbeitsplatz"
DoCmd.FindRecord "A2"
End Sub

...

oder weiß jemand was einfacheres?
muß ich auch jedes optionsfeld mit der hand
die eigenschaft bei_click auf ereignisprozedur setzen?
für ne idee zur arbeitserleichterung
wäre ich sehr dankbar (aber bitte nicht den vorschlag, nicht mit access zu arbeiten ;) )

gruß wile e.g.

Kurt aus Kienitz
11.07.2001, 13:45
Hallo,

Sind die Optionsfelder in einer Gruppe ?
Wenn ja, kannst Du das "Beim Klick" der Gruppe abfackeln.

Wile E G
11.07.2001, 13:48
hi kurt,
nee alles leider ohne gruppe!
aber trotzdem danke
gruß wile e.g.

Morli
11.07.2001, 13:57
Hallo Wili E.G.

wenn immer nur eines der Optionsfelder angeklcikt sein kann, dann lege die Optionsfelder doch in eine Optionsgruppe.

Wenn auch mehrer angeklickt sein können dann:

Dim ctl as Control

For Each ctl in Me.Controls
If ctl.ControlType = acOptionButton and ctl.Value = True then
DoCmd.GoToControl "Arbeitsplatz"
DoCmd.FindRecord "A" & Right(ctl.Name,1)
End If
Next

Und das ganze dann einem Button zuordnen.

Gruß

Rainer ;)

Wile E G
11.07.2001, 14:29
hi morli
das klingt interessant, werds morgen mal ausprobieren.
Danke,
Wile E.G.