PDA

Vollständige Version anzeigen : ungebundene Kombifelder im Formular leer anzeigen


Simon
07.11.2001, 08:43
Hallo,

Ich habe 7 Kombifelder und 14 Textfelder in meinem Formular.

Ich möchte jetzt wenn ich ein Kombifeld anklicke dass alle andernen Felder den Inhalt auf leer wechseln!
Kann mir jemanden sagen wie ich den Code aufbauen muss?

Gruss Simon

A.S.
08.11.2001, 06:29
Hallo Simon,

im "Nach Aktualisierung"-Ereignis aller Kombinationsfelder mußt Du eine entsprechende Prozedur aufrufen, welche die Controls zurücksetzt.

Ungefähr so:

Private Sub Kombinationsfeld0_AfterUpdate()
ClearCombos
End Sub

Private Sub Kombinationsfeld2_AfterUpdate()
ClearCombos
End Sub

Private Sub ClearCombos()
Dim ctlCombo As Control
For Each ctlCombo In Screen.ActiveForm.Controls
If ctlCombo.ControlType = acComboBox _
And ctlCombo.Name <> Screen.ActiveControl.Name Then
ctlCombo.Value = Null
End If
Next ctlCombo
End Sub

Die dargestellte Prozedur hat den Vorteil, das sie sich (als Public Sub deklariert) Formularunabhängig nutzen läßt, da sie keine direkten Formularbezüge nutzt.

Sollen alle Felder geleert werden, lasse die Bedingung "ctlCombo.ControlType = acComboBox" entsprechend weg.

Gruß

Arno