Alle Textfelder innerhalb eines Frames ansprechen
01.06.2017 12:26:59
Hadi
ich habe folgendes Problem:
Ich habe eine Benutzeroberfläche erstellst, die 34 Frames beinhaltet. Alle Frames beinhalten wiederum mehrere Textflder. Mansche Textfelder werden nach einer bestimmten Aktion, mit Daten aus einer Tabelle gefüllt (Die Daten sind Zahlen). Eines der Textfelder ist wird nicht automatisch gefüllt sondern muss vom Benutzer gefüllt werden. Default ist der Text dieses Textfeldes auf "Messwert eintragen!" gesetzt. Nach einer bestimmten Aktion jedoch werden nicht alle Textfelder in den jeweiligen Frames gefüllt. Weil für diese Textfelder beispielsweise keine Daten innerhalb der Tabelle hinterlegt sind. Damit der Benutzer keine Fehler macht, möchte die Frames, die leere Textfelder UND (log. Operator) den Textfeld mit "Messwert eintragen!" beinhalten ausblenden.
Ich habe auch paar andere, nicht optimale, Lösungen gefunden, die mich nicht wirklich überzeugt haben.
der Code, die ich hierfür verwenden habe ist (Beispiel für Frame-Nr.: 33):
Der Code wird aufgeführt, wenn der Wert eines Kombinationsfeldes sich ändert:
Private Sub spec_nummer_Change()
Dim Textfeld As Control
For Each Textfeld In Me.Frame33.Controls
If TypeName(Textfeld) = "TextBox" Then
If Trim(Textfeld.Value) = "" And Trim(Textfeld.Value) = "Messwert eintragen!" Then
Frame33.Visible = False
ElseIf Not Trim(Textfeld.Value) = "" And Trim(Textfeld.Value) = "Messwert eintragen!" _
_
Then
Frame33.Visible = True
End If
End If
Next
End Sub
Leider tut sich bei nichts. Ich selbst vermute irgendwas stimmt mit UND (log. Operator) nicht
Kann mir evtl. jemand dabei helfen, das Problem zu lösen?
Ich bedanke mich !
Hadi R.