Office: (Office 2003) Textfelder sperren, wenn anderes Textfeld gefüllt

User · 31. März 2011

Hallo zusammen,

ich habe ein Formular + Unterformular.
Zu jeder Kundennummer (im Hauptformular) kann man im Unterformular Daten in Textfeldern erfassen. Im Unterformular wird immer nur ein Datensatz eingetragen.

1. Sobald man im Unterformular ein Textfeld mit Inhalt füllt, dann sollen für diesen Datensatz fünf andere Textfelder deaktiviert werden. Ist das möglich?

2. Ich möchte im Haupftformular ein Kombinationsfeld zum suchen von Datensätzen erstellen, bei dem allerdings nur die Kundennummern zur Auswahl stehen, zu denen im Unterformular noch kein Datensatz angelegt wurde. Würde das ganze in einem Formular sein, wäre das kein Problem. Nur erfasst man im Unterformular die Daten in einer anderen Tabelle.

Danke im voraus für eure Unterstützung.
killepitsch

:)

guenther_p · 2. April 2011

zu 1) im vor Aktualisieren z.B. so einen Code

Code:

Private Sub Text0_BeforeUpdate(Cancel As Integer)
If IsNull(Text0) Then
Me!Text1.Enabled = True
Else
Me!Text1.Enabled = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Günther

achtelpetit · 2. April 2011

Probier mal folgendes:
Code:

Sub sperren(ctl As Control)
For Each ctl In Me
If ctl.ControlType = acTextBox And Not (ctl.Name = Me.ActiveControl.Name) Then
ctl.Enabled = False
End If
Next ctl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für jedes in Frage kommende Textfeld wird die Sub dann so aufgerufen:
Code:

Private Sub txt1_AfterUpdate()
Call sperren(Me.ActiveControl)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings sind die leeren Textfelder beim erneuten Aufrufen des Formulars nicht mehr gesperrt. Dafür müßtest Du "Beim Anzeigen" eine Routine ausführen. Außerdem ist zu überlegen, wie bei nachträglichen Änderungen verfahren werden soll.

Und noch ein Tipp: wenn Du 2 verschiedene, von einander unabhängige Fragen hast, solltest Du 2 Threads eröffnen.

Edit:
Diese Konstruktion, nur eines von mehreren Feldern darf beschrieben werden, könnte ein Indiz für einen Fehler im Datenmodell sein.

guenther_p · 2. April 2011

zu 2)

verwende als Datenherkunft für dein Kombinationsfeld eine Abfrage nach folgendem Muster

Code:

SELECT Kundennummer
FROM vater
WHERE not exists (select vater_id from kind where kind.vater_id = vater.id);
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dabei ist Vater die Tabelle mit den Kundennummern und Kind die Tabelle, die Du über das Unterformular pflegst

Gruß
Günther

guenther_p · 2. April 2011

kleiner Nachtrag zur Frage 2

im Ereignis "Bei Focuserhalt"

Code:

Private Sub Kombinationsfeld4_GotFocus()
Me.Kombinationsfeld4.Requery
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stellt sicher, dass das Kombinationsfeld immer am aktuellsten Stand ist

Gruß
Günther

User · 7. Januar 2021

von guenther_p

zu 1) im vor Aktualisieren z.B. so einen Code

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub Text0_BeforeUpdate(Cancel As Integer)
If IsNull(Text0) Then
Me!Text1.Enabled = True
Else
Me!Text1.Enabled = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Günther

Es funktioniert. Nur leider gibt es 2 "Probleme". Beim Aufruf des Formulars sind die Felder nicht gesperrt -> Erst bei der Eingabe in Text0.
Wenn man die Eingabe getätigt hat und zum nächsten Datensatz geht, dann bleiben die Felder gesperrt.

User · 7. Januar 2021

von achtelpetit

Probier mal folgendes:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sub sperren(ctl As Control)
For Each ctl In Me
If ctl.ControlType = acTextBox And Not (ctl.Name = Me.ActiveControl.Name) Then
ctl.Enabled = False
End If
Next ctl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für jedes in Frage kommende Textfeld wird die Sub dann so aufgerufen:
Code:

Private Sub txt1_AfterUpdate()
Call sperren(Me.ActiveControl)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings sind die leeren Textfelder beim erneuten Aufrufen des Formulars nicht mehr gesperrt. Dafür müßtest Du "Beim Anzeigen" eine Routine ausführen. Außerdem ist zu überlegen, wie bei nachträglichen Änderungen verfahren werden soll.

Es liegt in der Tat ein Fehler im Datenmodell vor, allerdings kann ich das nicht lösen, da ich auf eine täglich bereitgestellte Datenquelle zugreifen muss.

Wo genau muss ich denn die Codeblöcke einfügen und was muss ich bei dem ersten Code abändern?
Kennst du auch eine Lösung für nachträgliche Änderungen?

Von den Lösungen bin ich immer wieder beeindruckt. Werde mich nun mal mit der Lösung zu 2. auseinandersetzen.

guenther_p · 2. April 2011

zu Beim Aufruf des Formulars sind die Felder nicht gesperrt

da hilft Dir sicher das Ereignis "Beim Anzeigen" des Formulars (Form_Current())weiter

Gruß
Günther

User · 3. April 2011

Zu 2) Funktioniert problemlos! Danke!!

Zu 1) Hab mit Hilfe von eurem Code bei Google was interessantes gefunden:

Funktioniert problemlos:
Code:

Private Sub chk_JN_AfterUpdate()
Feldsperre Me, Me!chk_JN
If Me!chk_JN = True Then
Me!chk_JN.Locked = False
End If
End Sub

Public Sub Feldsperre(frm As Form, Optional bln As Boolean = False)
Dim ctl As Control
Dim lngColor As Long

If bln Then lngColor = 13948116 Else lngColor = 16777215
For Each ctl In frm
If ctl.ControlType = acTextBox Then
ctl.Locked = bln
ctl.BackColor = lngColor
End If
Next ctl

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Unterstrichenes klappt nicht. Code:

Public Sub Form_Current()

If Me!chk_JN = True Then
Me.AllowEdits = False
ElseIf Me!chk_JN = False Then
Me.AllowEdits = True
End If
Me!chk_JN.Enabled = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Brauche ich das? Wenn ja, wozu? Unterstrichenes klappt nicht.
Code:

Private Sub chk_JN_Click()
Sperren Me!chk_JN
If Me!chk_JN = True Then
Me.AllowEdits = True
End If
End Sub

Private Sub Sperren(blnGesperrt As Boolean)
Me.AllowEdits = Not blnGesperrt 'Bearbeitungen zulassen
Me.AllowDeletions = Not blnGesperrt 'Loeschen zulassen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte statt dem extra Kontrollkästchen ein Textfeld abfragen, wenn gefüllt, dann Felder sperren. Geht das? Wisst ihr eine Lösung?
killepitsch

achtelpetit · 3. April 2011

Brauche ich das? Wenn ja, wozu?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was möchtest Du denn erreichen?

User · 3. April 2011

Bei der Aktivierung des Kontrollkästchens (besser wenn Textfeld gefüllt) sollen alle Textfelder gesperrt werden (für diesen Datensatz) außer das Kontrollkästchen/Textfeld selbst. Beim Vor-/Zurückspringen zwischen den Datensätzen sollen nicht die Felder aller Datensätze gesperrt sein. Beim Aufruf des Formulars das gleiche.

User · 4. April 2011

Nachdem ich mit meiner Lösung nicht weiterkomme habe ich mir mal eine andere überlegt. Zudem habe ich das Kontrollkästchen durch ein Textfeld ersetzt.
Leider sind meine Textfelder immer gesperrt. Was läuft hier falsch?

Bei diesen Ereignissen habe ich den u. g. Code eingetragen:
Code:

Private Sub txt_AbfrageTextfeld_AfterUpdate()
Private Sub txt_AbfrageTextfeld_Click()
Private Sub Form_Current()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

If (Me!txt_AbfrageTextfeld "" Or IsNull(Me!txt_AbfrageTextfeld)) Then
Me!txt_Textfeld1.Locked = True
Me!txt_Textfeld2.Locked = True
ElseIf (Me!txt_AbfrageTextfeld = "" Or Not IsNull(Me!txt_AbfrageTextfeld)) Then
Me!txt_txt_Textfeld1.Locked = False
Me!txt_txt_Textfeld2.Locked = False
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe ihr versteht was ich damit bezwecken will.

edit: Das Problem muss hier liegen:
If (Me!txt_AbfrageTextfeld "" Or IsNull(Me!txt_AbfrageTextfeld)) Then

guenther_p · 4. April 2011

Die Hinweise auf die Lösung hast du in den vorherigen Tipps alle bekommen

1.) Beitrag 8: Ereignis "Beim Anzeigen" des Formulars

wird bei jedem Satzwechsel aufgerufen damit hast Du die Möglichkeit die Aktivierung/Deaktivierung der einzelnen Felder vorzunehmen

2.) Beitrag 3 zeigt Dir wie du durch alle Controls des Formular läufst
3.) Beitrag 2 zeigt die Behandlung eines einzelnen Controls mit If isnull

2. und 3. in eine Prozedure ausgelagert und sowohl aus "Beim Anzeigen" als auch "Nach Aktualisieren" aufgerufen entspricht aus meinem Verständnis Deiner Anforderung

Gruß
Günther

achtelpetit · 4. April 2011

edit: Das Problem muss hier liegen:
If (Me!txt_AbfrageTextfeld "" Or IsNull(Me!txt_AbfrageTextfeld)) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf deutsch: wenn das Feld UNGLEICH Leerstring (also, wenn was drinsteht) oder wenn das Feld NULL ist, dann...

Irgendwelchem Code kopieren bringt Dir gar nix.
Ich warte mal ab, bis Du Dein Problem selber verstanden und vollständig beschrieben hast.

User · 14. April 2011

Ich habe es nun so gelöst:
Code:

Private Sub txt_PrimaryKundennummer_AfterUpdate()
If IsNull(Me!txt_PrimaryKundennummer) Then
Me!txt_WeitereKundennummer1.Enabled = True
Else
Me!txt_WeitereKundennummer1.Enabled = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das gleiche bei dem Ereignis: Private Sub Form_Current()

Bei ca. 20 Textfelder wird der Code zwar ziehmlich lang, aber es klappt problemlos!

Office: (Office 2003) Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt

Textfelder sperren, wenn anderes Textfeld gefüllt - Similar Threads - Textfelder sperren Textfeld

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Zwischen Textfeldern mit Tabulator Taste wechseln

Textfeld Powerpoint Ränder

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Textfelder verschieben

Schriftart im Formular

Word 2013 Textfelder sperren / Briefvorlage erstellen