Gelöst-Sperren von bestimmten Textfelder und Dropdown-Felder

[Tobias.Vetter]

Hallo liebe Nutzer,
gibt es die Möglichkeit, Text- oder Dropdownfelder in eine "Gruppe" zu packen?

Folgendes Szenario:
- Beim öffnen eines Formulars sollen alle Felder gesperrt sein.
- Nach einer Auswahl A, in einem Dropdownfeld, sollen die Felder der Gruppe A entsperrt werden.
- Nach einer Auswahl B, im Dropdownfeld, sollen jedoch die Felder der Gruppe B entsperrt werden usw.

Grundlegend möglich wenn ich jedes Feld direkt anspreche mit

Code: Alles auswählen

Me.FeldA. AllowEdits = true


Jedoch wäre das bei div. Möglichkeiten eine ewig lange Schreibarbeit.


Danke für eure Hilfe!

[derArb]

Hallo,
Du kannst das über Eigenschaften...Andere...Marke gruppieren.
Marke ist Tag im Vba-Code.
Ungefähr so:

Code: Alles auswählen

Option Compare Database
Option Explicit

Private Sub Sperren()
Dim ctl As Control
  For Each ctl In Me.Controls
    On Error Resume Next
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
       Select Case Me.cboStatus
         Case "Sperre 1"
          If ctl.Tag = "A" Then
             ctl.Locked = True
             ctl.BackColor = vbRed
            Else
             ctl.Locked = False
             ctl.BackColor = vbWhite
          End If
         Case "Sperre 2"
          If ctl.Tag = "A" Or ctl.Tag = "B" Then
             ctl.Locked = True
             ctl.BackColor = vbRed
            Else
             ctl.Locked = False
             ctl.BackColor = vbWhite
           End If
         Case "Sperre 3"
          If ctl.Tag = "A" Or ctl.Tag = "B" Or ctl.Tag = "C" Then
             ctl.Locked = True
             ctl.BackColor = vbRed
            Else
             ctl.Locked = False
             ctl.BackColor = vbWhite
           End If
          Case Else
           ctl.Locked = False
           ctl.BackColor = vbWhite
        End Select
    End If
  Next ctl
End Sub

Private Sub cboStatus_AfterUpdate()
  If Me.Dirty Then Me.Dirty = False
  Call Sperren
End Sub

Private Sub Form_Current()
  Call Sperren
End Sub

[Tobias.Vetter]

Danke dir schon einmal für deine Antwort.
Wenn ich den Code jetzt richtig gelesen habe müsste ich nur anstatt ctl.visible ctl.allowedits nehmen oder?
Denn die Felder immer alle sichtbar sein.
Ebenso kann Feld 1 nicht in Tag 1 und 2 auftauchen oder?

[derArb]

Hallo,
Sorry, ich hatte den Vorschlag gerade geändert.
Wir haben uns überschnitten.

[derArb]

Hallo,
hier ein kleines Beispiel

[Tobias.Vetter]

derArb du bist GENIAL!

Genau sowas hab ich gesucht. Danke für die Erklärung und auch das Demofile!
Super vielen vielen Dank und schönes Wochenende!