PDA

Vollständige Version anzeigen : Ereignisse verschiedener Steuerelemente gleichzeitig auslösen


oxygizer94
24.10.2003, 10:20
Moin!
Ich möchte möchte mit dem Auslösen eines Ereignisses ein anderes (folgend) auslösen. Wenn ich nachstehende Optionsgruppe aktualisiere
Private Sub optSortUpD_AfterUpdate()
'jetzt soll optSort_AfterUpdate() ausgelöst werden
End Sub
dann soll folgendes Ereignis auch ausgelöst werden
Private Sub optSort_AfterUpdate()

If Me.optSort.Value = 1 And Me.optSortUpD.Value = 1 Then
Me![abfrUFO].Form.OrderBy = "Nachname"
Me![abfrUFO].Form.OrderByOn = True
ElseIf Me.optSort.Value = 1 And Me.optSortUpD.Value = 2 Then
Me![abfrUFO].Form.OrderBy = "Nachname desc"
Me![abfrUFO].Form.OrderByOn = True
ElseIf Me.optSort.Value = 2 And Me.optSortUpD.Value = 1 Then
Me![abfrUFO].Form.OrderBy = "Vorname"
Me![abfrUFO].Form.OrderByOn = True
ElseIf Me.optSort.Value = 2 And Me.optSortUpD.Value = 2 Then
Me![abfrUFO].Form.OrderBy = "Vorname desc"
Me![abfrUFO].Form.OrderByOn = True
...
...
End If
End Sub

Bärbel Ritzi
24.10.2003, 11:48
Hallo,

Du kannst den Event über seinen Prozedur- oder Funktionsnamen aufrufen:


Private Sub optSortUpD_AfterUpdate()
'jetzt soll optSort_AfterUpdate() ausgelöst werden
optSort_AfterUpdate
End Sub


Gruß
Bärbel

oxygizer94
24.10.2003, 12:18
Manchmal sind´s die einfachen Dinge!
Lieben Dank, hat mir sehr geholfen...