|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.10.2007 11:20:50 |
FB1907 |
|
|
|
23.10.2007 16:34:14 |
vbDau |
|
|
|
24.10.2007 07:28:04 |
FB1907 |
|
|
 Aw:Aw:Aw:Inhalt von Textbox prüfen |
24.10.2007 08:51:50 |
vbDau |
|
|
|
24.10.2007 08:56:28 |
vbDau |
|
|
|
24.10.2007 10:10:50 |
FB1907 |
|
|
|
24.10.2007 10:28:31 |
FB1907 |
|
|
Von:
vbDau |
Datum:
24.10.2007 08:51:50 |
Views:
1220 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Inhalt von Textbox prüfen |
Hi,
Du könntest alles in eine If-Abfrage packen:
If Len(TBIdentnr) <> 6 Or Len(TBModellnr) 0
geprüft wird.
Hab` s nicht getestet, ist mir aber so aufgefallen.
Gruß
vbDau
FB1907 schrieb am 23.10.2007 11:20:50:
Hallo VBA-Profis,
ich bräuchte dringend Eure Hilfe.
Ich habe auf einer UserForm 10 Textboxen generiert, wobei 6 davon als Pflichtfelder auszufüllen sind.
Eine Textbox von den 6 muss eine sechsstellige Zahl enthalten (TBIdentnr). Die anderen 5 können variabel sein (Text oder Zahl). Nur wenn diese Bedingungen erfüllt sind kann abgespeichert werden.
1. Problem: auch bei einer siebenstelligen oder größeren Zahl wird gespeichert (TBIdentnr).
2. Problem: zum Teil wird gespeichert obwohl ein Feld offen ist.
Vielen Dank schonmal für die Bemühungen
Mein Code sieht folgendermaßen aus:
Dim blnCheck As Boolean
blnCheck = Len(TBIdentnr) = 6
blnCheck = Len(TBModellnr) <> 0
blnCheck = Len(TBBezeichnung) <> 0
blnCheck = Len(TBCharge) <> 0
blnCheck = Len(TBAnlass) <> 0
If blnCheck Then
Identnr = UserForm1.TBIdentnr.Value
Modellnr = UserForm1.TBModellnr.Value
Bezeichnung = UserForm1.TBBezeichnung.Value
Abmessung = UserForm1.TBAbmessung.Value
Charge = UserForm1.TBCharge.Value
Anlass = UserForm1.TBAnlass.Value
Läufe = UserForm1.TBLäufe.Value
Anzahl = UserForm1.TBAnzahl.Value
Werkzeug = UserForm1.TBWerkzeug.Value
Turm = UserForm1.TBTurm.Value
Range("b1").Value = Now
Range("b3").Value = Identnr
Range("b4").Value = Modellnr
Range("b5").Value = Bezeichnung
Range("b6").Value = Abmessung
Range("b7").Value = Charge
Range("c9").Value = Anlass
Range("h6").Value = Läufe
Range("h7").Value = Anzahl
Range("h3").Value = Werkzeug
Range("h4").Value = Turm
UserForm1.TBIdentnr.Value = ""
UserForm1.TBModellnr.Value = ""
UserForm1.TBBezeichnung.Value = ""
UserForm1.TBAbmessung.Value = ""
UserForm1.TBCharge.Value = ""
UserForm1.TBAnlass.Value = ""
UserForm1.TBLäufe.Value = ""
UserForm1.TBAnzahl.Value = ""
UserForm1.TBWerkzeug.Value = ""
UserForm1.TBTurm.Value = ""
UserForm1.Hide
Else
UserForm2.Show
End If
End Sub |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.10.2007 11:20:50 |
FB1907 |
|
|
|
23.10.2007 16:34:14 |
vbDau |
|
|
|
24.10.2007 07:28:04 |
FB1907 |
|
|
Aw:Aw:Aw:Inhalt von Textbox prüfen |
24.10.2007 08:51:50 |
vbDau |
|
|
|
24.10.2007 08:56:28 |
vbDau |
|
|
|
24.10.2007 10:10:50 |
FB1907 |
|
|
|
24.10.2007 10:28:31 |
FB1907 |
|
|