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

Moderator: ModerationP

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

Beitragvon Tobias.Vetter » 20. Nov 2020, 13:48

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!
Zuletzt geändert von Tobias.Vetter am 20. Nov 2020, 14:38, insgesamt 1-mal geändert.
Tobias.Vetter
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 48
Registriert: 09. Okt 2020, 09:11

Re: Sperren von bestimmten Textfelder und Dropdown-Felder

Beitragvon derArb » 20. Nov 2020, 14:08

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
Zuletzt geändert von derArb am 20. Nov 2020, 14:21, insgesamt 2-mal geändert.
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
derArb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14608
Registriert: 19. Apr 2006, 18:39
Wohnort: Berlin

Re: Sperren von bestimmten Textfelder und Dropdown-Felder

Beitragvon Tobias.Vetter » 20. Nov 2020, 14:18

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?
Tobias.Vetter
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 48
Registriert: 09. Okt 2020, 09:11

Re: Sperren von bestimmten Textfelder und Dropdown-Felder

Beitragvon derArb » 20. Nov 2020, 14:23

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

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
derArb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14608
Registriert: 19. Apr 2006, 18:39
Wohnort: Berlin

Re: Sperren von bestimmten Textfelder und Dropdown-Felder

Beitragvon derArb » 20. Nov 2020, 14:30

Hallo,
hier ein kleines Beispiel
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
derArb
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 14608
Registriert: 19. Apr 2006, 18:39
Wohnort: Berlin

Re: Sperren von bestimmten Textfelder und Dropdown-Felder

Beitragvon Tobias.Vetter » 20. Nov 2020, 14:37

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!
Tobias.Vetter
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 48
Registriert: 09. Okt 2020, 09:11


Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste