vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Textmarke löschen, wenn Inhalt des Formularfeldes leer? 
Autor: NieKohle
Datum: 01.10.03 09:54
Ola!
habe nun eine etwas andere Lösung:
Das Ganze mit nur einer Textmarke, die als Variable zum Schluss ausgegeben wird:
Siehe da, es klappt (und ist auch viel kürzer )


Code: 
If Not IsNull(Me.Name1) Then
        inhalt = inhalt & Me.Name1
    End If
 
    If Not IsNull(Me.Name2) Then
        inhalt = inhalt & vbCrLf & Me.Name2
    End If
 
    If Not IsNull(Me.Name3) Then
        inhalt = inhalt & vbCrLf & Me.Name3
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Anrede)) Then
        inhalt = inhalt & vbCrLf & (Nz(Form!GastroKontaktpersonen!Anrede))
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Vorname)) Then
        inhalt = inhalt & " " & (Nz(Form!GastroKontaktpersonen!Vorname))
    End If
 
    If Not IsNull(Nz(Form!GastroKontaktpersonen!Nachname)) Then
        inhalt = inhalt & " " & (Nz(Form!GastroKontaktpersonen!Nachname))
    End If
 
 
    If Not IsNull(Me.Strasse) Then
        inhalt = inhalt & vbCrLf & Me.Strasse
    End If
 
    If Not IsNull(Me.PLZ) Then
        inhalt = inhalt & vbCrLf & Me.PLZ
    End If
 
    If Not IsNull(Me.Ort) Then
        inhalt = inhalt & " " & Me.Ort
    End If
 
    If Len(Trim(inhalt)) > 0 Then
        wwobj.Selection.GoTo what:=wdGoToBookmark, Name:="DeineEinzigeTextmarke"
        wwobj.Selection.TypeText Text:=inhalt
    End If
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textmarke löschen, wenn Inhalt des Formularfeldes l...2.016NieKohle29.09.03 13:15
Re: Textmarke löschen, wenn Inhalt des Formularfeld...1.434ModeratorDieter29.09.03 23:49
Re: Textmarke löschen, wenn Inhalt des Formularfeld...1.361NieKohle01.10.03 09:33
Re: Textmarke löschen, wenn Inhalt des Formularfeld...1.445NieKohle01.10.03 09:54

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel