Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Variable für irgendeinen Text?
zurück: Eingabe in InputBox > Ausgabe best. Datensätze im Formula weiter: Filtern in Unterform über Kombifelder Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
saint
Gast


Verfasst am:
04. Apr 2007, 09:40
Rufname:

Variable für irgendeinen Text? - Variable für irgendeinen Text?

Nach oben
       Version: Office 2003

Hallo!
Habe nach einigem gesuche nichts wirklich entsprechendes gefunden, also post ich hier mal, auch wenn ich mich eventuell Lächerlich mache Wink

Folgendes :

Ich habe ein bestehendes Formular, möchte nun aber Fehlermeldungen einbringen, wenn bestimmte textfelder nicht gefüllt sind ( ca 10. St. )

Dies habe ich mit
Code:
    If Nz(Me!textfeld) = "" Then
        MsgBox "Irgendein Text"
        Cancel% = True
    End If
auch schon ziemlich erreicht, nur stören mich die 10 Fehlermeldungen jetzt etwas,
ich möchte das immer nur eine Angezeigt wird, und zwar der Rangfolge nach von oben nach unten.

Habe es mal so versucht
Code:
    If Nz(Me!textfeld1) = "" Then
        MsgBox "textfeld1 fehlt"
        Cancel% = True
    End If
    If Nz(Me!textfeld2) = "" And (Me!textfeld1) = Text Then
        MsgBox "Textfeld2 fehlt"
        Cancel% = True
    End If
Jedoch funktioniert das alles nicht so wie gewollt Smile

Denke mal ich bräuchte eine Variable für den Text ( da er sich immer unterscheidet)

oder einen komplett anderen Lösungsansatz!

Vielen Dank schon mal im Vorraus!
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
04. Apr 2007, 10:17
Rufname:

AW: Variable für irgendeinen Text? - AW: Variable für irgendeinen Text?

Nach oben
       Version: Office 2003

Hallo,

ich habe dir zwei Ansätze geschrieben. Einen statischen und einen dynamischen über Schleife.
Du hast die Wahl Wink
Code:
' Version 1: Statisch
Private Sub Befehl7_Click()
    Dim LeerFelder As String
   
    If Nz(Me!Text0) = "" Then
        LeerFelder = LeerFelder & ", Text0"
    End If
    If Nz(Me!Text1) = "" Then
        LeerFelder = LeerFelder & ", Text1"
    End If
    If Nz(Me!Text2) = "" Then
        LeerFelder = LeerFelder & ", Text2"
    End If
    If LeerFelder <> "" Then
        LeerFelder = Mid(LeerFelder, 2)
        MsgBox "Folgende Felder sind leer: " & LeerFelder
    End If
End Sub

' Version 2: Dynamisch
Private Sub Befehl8_Click()
    Dim LeerFelder As String
    Dim Ctrl As Control

    For Each Ctrl In Me!Controls
        If Ctrl.ControlType = acTextBox Then
            If Nz(Ctrl) = "" Then
                LeerFelder = LeerFelder & ", " & Ctrl.Name
            End If
        End If
    Next Ctrl
    If LeerFelder <> "" Then
        LeerFelder = Mid(LeerFelder, 2)
        MsgBox "Folgende Felder sind leer: " & LeerFelder
    End If
End Sub

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
saint
Gast


Verfasst am:
04. Apr 2007, 10:28
Rufname:


AW: Variable für irgendeinen Text? - AW: Variable für irgendeinen Text?

Nach oben
       Version: Office 2003

Supi, dankö für deine Mühe,

funktioniert 1A
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
-> kann geclosed werden
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Text in einer Spalte teilen 2 toak 1528 12. Apr 2007, 16:13
derArb Text in einer Spalte teilen
Keine neuen Beiträge Access Tabellen & Abfragen: Feldtyp Text > Datum/Uhrzeit und Alter Errechnen 1 harto69 909 03. Apr 2007, 18:00
Nouba Feldtyp Text > Datum/Uhrzeit und Alter Errechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Text in Spalte splitten 6 Mar307 1618 21. Feb 2007, 18:51
Mar307 Text in Spalte splitten
Keine neuen Beiträge Access Tabellen & Abfragen: Text oder Zahl in Datum konvertrieren? 2 maibaum0_1 719 17. Jan 2007, 22:36
maibaum0_1 Text oder Zahl in Datum konvertrieren?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage der ersten 10 Stellen inkl. Nullen bzw Text([];???) 1 Tobi1967 918 17. Dez 2006, 18:15
rita2008 Abfrage der ersten 10 Stellen inkl.  Nullen bzw Text([];???)
Keine neuen Beiträge Access Tabellen & Abfragen: Literaturdatenbank/Übergabe Variable aus Textfeld an SQL Bef 2 Stefan_V 2133 30. Nov 2006, 17:00
Stefan_V Literaturdatenbank/Übergabe Variable aus Textfeld an SQL Bef
Keine neuen Beiträge Access Tabellen & Abfragen: Übergabe eine Variable verursacht Fehler 2 blicki 714 16. Feb 2006, 10:42
blicki Übergabe eine Variable verursacht Fehler
Keine neuen Beiträge Access Tabellen & Abfragen: Text in Zahl in der Abfrage umwandeln? 6 Gast 32086 07. Feb 2006, 14:46
Gast Text in Zahl in der Abfrage umwandeln?
Keine neuen Beiträge Access Tabellen & Abfragen: Text eingegeben - Aber Zahl steht da?!? 1 LordMorpheus 622 23. Jan 2006, 12:41
Lamer² Text eingegeben - Aber Zahl steht da?!?
Keine neuen Beiträge Access Tabellen & Abfragen: Zuweisung von Datensätzen in Tabelle anhand Variable 3 Nuuby 822 09. Dez 2005, 15:58
Willi Wipp Zuweisung von Datensätzen in Tabelle anhand Variable
Keine neuen Beiträge Access Tabellen & Abfragen: Umwandlung Zahlenwert in Text 10 Ernst Eberhardt 3970 18. Nov 2005, 17:50
rita2008 Umwandlung Zahlenwert in Text
Keine neuen Beiträge Access Tabellen & Abfragen: Variable Tabellenabfrage 3 tino 718 23. Aug 2005, 20:39
Gast Variable Tabellenabfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web