Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
spezielle Formatierung eines Textes - kleine Spielerei
zurück: Kleine Beispiel DB zu Listboxen weiter: Kleine 'Standard'-Funktionen fuer ACCESS (z.B. RUNDEN) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Dalmatinchen
look into my eyes ...


Verfasst am:
30. Jun 2005, 09:20
Rufname:
Wohnort: Steiermark/Österreich

spezielle Formatierung eines Textes - kleine Spielerei - spezielle Formatierung eines Textes - kleine Spielerei

Nach oben
       

Hallo!

Ich hab mal eine kleine Textformatierungsspielerei in einen VBA-Code umgesetzt ... Für all diejenigen, die diese Art von "Formatierung" mögen, und sich beim Umsetzen etwas schwer tun Wink

Access löst das Problem jetzt in Sekunden ... gemeint ist die "neuartige" Schreibweise ... "DaLmAtInChEn"

Einfach beim Ereignis nach Aktualisierung des Textfeldes (oder wo man möchte) folgendes eingeben:
Code:
    Dim i         As Long
    Dim Zeichen   As Long
    Dim Buchstabe As String
    Dim Korrektur As String

    Zeichen = 1
    'Prozedur wird so oft durchgefuehrt wie Zeichen im Wort vorhanden sind
    For i = 1 To Len(Me!Wort_Spielerei)
        'einzelner Buchstabe wird herausgeschnitten
        Buchstabe = Mid(Me!Wort_Spielerei, Zeichen, 1)
        'wenn Position des Zeichens gerade ist, wird klein geschrieben,
        'wenn ungerade gross
        If Zeichen Mod 2 = 1 Then
            Buchstabe = UCase(Buchstabe)
          Else
            Buchstabe = LCase(Buchstabe)
        End If
        'Wort wird wieder zusammengesetzt
        Korrektur = Korrektur & Buchstabe
        'Zeichenposition wird um eins erhoeht
        Zeichen = Zeichen + 1
    Next i
    'korrigiertes Wort wird ins Textfeld geschrieben
    Me!Wort_Spielerei = Korrektur

Die Idee kam bei der Gestaltung eines längeren Textes ... da es mir zu umständlich war, selbst zu formatieren. Einfach Text normal ins Textfeld schreiben, dann die Prozedur laufen lassen und schon hat man das gewünschte Ergebnis Wink

LG Dalmatinchen

_________________
FEEDBACK nützt jedem!
+++ Auf meiner Homepage findet Ihr zahlreiche Access-Beispiele als Download mit Erklärung! +++
Willi Wipp
Moderator


Verfasst am:
30. Jun 2005, 10:12
Rufname:
Wohnort: Raum Wiesbaden


Re: spezielle Formatierung eines Textes - kleine Spielerei - Re: spezielle Formatierung eines Textes - kleine Spielerei

Nach oben
       

Hi Dalmatinchen,

schoene Spielerei Wink
Habe mir erlaubt das noch etwas zu erweiteren
Code:
Option Compare Database
Option Explicit

Public Function FnsGrossKlein(Optional vText As Variant) As String
    Dim Zeichen     As Long
    Dim Buchstabe   As String
    Dim Korrektur   As String
    Dim sText       As String

    If IsMissing(vText) Then
        On Error Resume Next
        sText$ = CStr(Nz(Screen.ActiveControl, ""))
        If Err Then                                  'Fehlerabfangen ergaenzt!
            FnsGrossKlein$ = ""
            Exit Function
        End If
        On Error GoTo 0
      Else
        sText$ = CStr(Nz(vText, ""))
    End If
    Zeichen = 1
    'Prozedur wird so oft durchgefuehrt wie Zeichen im Wort vorhanden sind
    For Zeichen& = 1 To Len(sText$)
        'einzelner Buchstabe wird herausgeschnitten
        Buchstabe$ = Mid(sText$, Zeichen&, 1)
        'wenn Position des Zeichens gerade ist, wird klein geschrieben,
        'wenn ungerade gross
        If Zeichen& Mod 2 = 1 Then
            Buchstabe$ = UCase(Buchstabe$)
          Else
            Buchstabe$ = LCase(Buchstabe$)
        End If
        'Wort wird wieder zusammengesetzt
        Korrektur$ = Korrektur$ & Buchstabe$
        'Zeichenposition wird um eins erhoeht
    Next Zeichen&
    'korrigiertes Wort wird ins Textfeld geschrieben
    If IsMissing(vText) Then
        Screen.ActiveControl = Korrektur$
      Else
        FnsGrossKlein$ = Korrektur$
    End If
End Function
'Zum testen im Direktfenster (Strg+G; Testfenster)
'?FnsGrossKlein("fhdksfhsdkfhsk")
'=> 'FhDkSfHsDkFhSk'

So kann man den Code auf (mindestens) zwei Arten einsetzen, entweder im VBA-Code
Code:
    Me!DeineTextfeld = FnsGrossKlein(Me!DeineTextfeld)
Oder direkt beim Ereignis Nach Aktualisierung (AfterUpdate)
in der Entwurfansicht eingeben
Code:
=FnsGrossKlein()

Nachfragen zum Thema bitte hier spezielle Formatierung eines Textes {Nachgefragt} stellen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 11. Jul 2005, 17:12, insgesamt einmal bearbeitet
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: Formatierung von Zahlen in Union Abfrage 5 Xumen 941 27. Sep 2011, 17:47
Nouba Formatierung von Zahlen in Union Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingte Formatierung 1 Nils13 208 18. Mai 2011, 11:44
KlausMz Bedingte Formatierung
Keine neuen Beiträge Access Tabellen & Abfragen: Spezielle Abfrage 4 Gast 197 01. Feb 2011, 08:27
Willi Wipp Spezielle Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Bedingte Formatierung in Pivot-Tabelle 13 4pandora4 3238 27. Dez 2010, 09:10
Thomas Ramel Bedingte Formatierung in Pivot-Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: SQL - Formatierung von Spalten 8 Gast 808 12. Aug 2010, 16:20
Gast SQL - Formatierung von Spalten
Keine neuen Beiträge Access Tabellen & Abfragen: m:n Beziehung spezielle Abfragen 9 winter.eisbaer 711 21. Aug 2009, 08:37
winter.eisbaer m:n Beziehung spezielle Abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Formatierung des SQL-Code 4 cheeZy 1025 03. Jul 2009, 10:39
Z.Mart Automatische Formatierung des SQL-Code
Keine neuen Beiträge Access Tabellen & Abfragen: Formatierung berechnetes Feld in einer Abfrage Access 2007 1 SHI 2638 13. Jun 2009, 11:51
Gast Formatierung berechnetes Feld in einer Abfrage Access 2007
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nur mit erster 5 stelle des Textes bzw. Nummer 1 alex951357 384 05. März 2008, 16:33
JörgG Abfrage nur mit erster 5 stelle des Textes bzw. Nummer
Keine neuen Beiträge Access Tabellen & Abfragen: Spezielle Abfrage oder nur Beziehungsfehler 1 Saxton 382 26. Feb 2008, 19:08
rita2008 Spezielle Abfrage oder nur Beziehungsfehler
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfrageformel Formatierung??? 0 Krissie 509 08. Feb 2008, 11:38
Krissie Access Abfrageformel Formatierung???
Keine neuen Beiträge Access Tabellen & Abfragen: Betrag berechnen & Bedingte Formatierung innerhalb einer 1 conti 6197 06. Feb 2008, 11:45
Da Oansa Betrag berechnen & Bedingte Formatierung innerhalb einer
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen