Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Zeilenumbruch nach zeichen

Begonnen von maniaspets, November 22, 2010, 09:29:19

⏪ vorheriges - nächstes ⏩
Drucken
Nach unten Seiten1
Benutzer-Aktionen

maniaspets

November 22, 2010, 09:29:19
habe schon etwas gebastelt funktioniert auch aber will dies auch noch bei NameFirma haben.

Und wenn es bei beiden zutrifft sollte es auch bei beiden so sein.

Hier der Code ich weiß es würde auch anders gehen:

Code [Auswählen]
Private Sub Drucken_Click()
If Len(Me!Strasse) <= 23 Then

    If Absender = True Then
      Call EPL_File_export("Adressen_op", "Absender:", "Krankenhaus der Barmherzigen", "Schwestern Ried", "Schlossberg 1", "4910 Ried", "Zentral OP", "", "", "", "", "1")
    sTestSleep
    End If
   
        If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & vbCrLf & _
                    Me!Strasse & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                     
                   
                   Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), Nz(Me!Strasse), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "", "", "1")
                   
       
                End If
        Else
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & vbCrLf & _
                    "z.Hd. " & Me!zHdAnrede & vbCrLf & _
                    Me!zHdName & vbCrLf & _
                    Me!Strasse & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!zHdAnrede) Or Not IsNull(Me!zHdName) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                    Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), "z.Hd. " & Nz(Me!zHdAnrede), Nz(Me!zHdName), Nz(Me!Strasse), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "1")
               End If
        End If
   Else

    If Absender = True Then
      Call EPL_File_export("Adressen_op", "Absender:", "Krankenhaus der Barmherzigen", "Schwestern Ried", "Schlossberg 1", "4910 Ried", "Zentral OP", "", "", "", "", "1")
    sTestSleep
    End If
   
        If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & " " & vbCrLf & _
                    Left(Me!Strasse, 24) & " " & vbCrLf & _
                    Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                     
                   
                   Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), Nz(Left(Me!Strasse, 23)), Nz(Mid(Me!Strasse, 24, Len(Me!Strasse) - 23)), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "", "1")
                   
             
                End If
        Else
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & " " & vbCrLf & _
                    "z.Hd. " & Me!zHdAnrede & vbCrLf & _
                    Me!zHdName & vbCrLf & _
                    Left(Me!Strasse, 23) & " " & vbCrLf & _
                    Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!zHdAnrede) Or Not IsNull(Me!zHdName) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                    Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), "z.Hd. " & Nz(Me!zHdAnrede), Nz(Me!zHdName), Nz(Left(Me!Strasse, 23)), Nz(Mid(Me!Strasse, 24, Len(Me!Strasse) - 23)), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "1")
                             
                End If
                   
                   
        End If
End If
End Sub

MzKlMu

#1
November 22, 2010, 09:36:00
Hallo,
und was ist jetzt Deine Frage/Problem?


Gruß Klaus

maniaspets

#2
November 22, 2010, 09:45:55
Bei "Me!NameFirma"will ich genauso wie nach Me!Strassee einen Zeilenumbruch nache 23 Zeichen machen.
und in der Nächsten zeile soll der rest dann rein geschrieben werden.
Bei der Strasse funktioniert das auch schon sehr gut.

habe mich jetzt schon eine Weile damit gespielt und komme nicht drauf wie das funktioniert.

Natürlich soll es dann auch funktionieren wenn beide einträg länger als 23 zeichen lang sind.

database

#3
November 22, 2010, 10:06:59
Hallo,

warum ersetzt du dann nicht einfach die Feldnamen?

Code [Auswählen]

    Left(Me!NameFirma, 23) & " " & vbCrLf & _
    Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23) & vbCrLf & _


Grüße

maniaspets

#4
November 22, 2010, 10:28:47
hallo

das habe ich bereits auch schon versucht will aber nicht funktionieren.

MzKlMu

#5
November 22, 2010, 10:47:06
Hallo,
Zitatwill aber nicht funktionieren.
sehr erschöpfende Antwort.
Bedenke bei Deinen Antworten, dass Du Hilfe haben willst.
Gruß Klaus

maniaspets

#6
November 22, 2010, 12:01:08
ja ich meine ich habs auch schon geändert aber es ändert nichts in der ausführung.

Also es ändert sich nur bei der Strasse etwas wie schon zuvor.

Ich werde wahrscheinlich noch eine If schleife benötigen damit es sich bei NameFirma ebesnso ändert als auch bei der Strasse?

database

#7
November 22, 2010, 12:39:58 Letzte Bearbeitung: November 22, 2010, 12:43:14 von database
Naja, ...

und was genau geht nicht?

Versuche mal ...   Left(Me!NameFirma, 23)  ... alleine

Und If ist keine Schleife sondern eine Bedingung!

Was kommt dabei raus?
Setze einen Haltepunkt auf die Routine und springe per F8 durch den Code...

p.s. außerdem hast du in deinem Code ein paar Leerzeichen zu viel - bzw. an Stellen, an denen du sie nicht brauchst!

Gruß

maniaspets

#8
November 22, 2010, 12:44:50
hab ich gemacht dann kommt immer der Fehler:

"Ungültiger Prozedurdurchlauf oder ungültiges Argument"
an der stelle wo das mit dem NameFirma und Straße geändert habe

ZitatUnd If ist keine Schleife sondern eine Bedingung!
das meinte ich auch^^ :D

database

#9
November 22, 2010, 12:50:06
Hi,

K O P I E R E den Code, der den Fehler J E T Z T verursacht hat hier rein...

maniaspets

#10
November 22, 2010, 12:55:08
Hier
Code [Auswählen]
If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Left(Me!NameFirma, 23) & "  " & vbCrLf & _
                    Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23) & " " & vbCrLf & _
                    Left(Me!Strasse, 24) & " " & vbCrLf & _
                    Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                     
                   
                   Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Left(Me!NameFirma, 23)), Nz(Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23)), Nz(Left(Me!Strasse, 23)), Nz(Mid(Me!Strasse, 24, Len(Me!Strasse) - 23)), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "1")

maniaspets

#11
November 22, 2010, 13:03:10
Hier der gesamte code:

Code [Auswählen]
Private Sub Drucken_Click()
If Len(Me!Strasse) <= 23 Then
   
        If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & vbCrLf & _
                    Me!Strasse & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                     
                   
                   Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), Nz(Me!Strasse), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "", "", "1")
                   
       
                End If
        Else
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Me!NameFirma & vbCrLf & _
                    "z.Hd. " & Me!zHdAnrede & vbCrLf & _
                    Me!zHdName & vbCrLf & _
                    Me!Strasse & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!zHdAnrede) Or Not IsNull(Me!zHdName) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                    Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Me!NameFirma), "z.Hd. " & Nz(Me!zHdAnrede), Nz(Me!zHdName), Nz(Me!Strasse), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "1")
               End If
        End If
   Else

    If Absender = True Then
      Call EPL_File_export("Adressen_op", "Absender:", "Krankenhaus der Barmherzigen", "Schwestern Ried", "Schlossberg 1", "4910 Ried", "Zentral OP", "", "", "", "", "1")
    sTestSleep
    End If
   
        If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Left(Me!NameFirma, 23) & "  " & vbCrLf & _
                    Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23) & " " & vbCrLf & _
                    Left(Me!Strasse, 24) & " " & vbCrLf & _
                    Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                     
                   
                   Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Left(Me!NameFirma, 23)), Nz(Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23)), Nz(Left(Me!Strasse, 23)), Nz(Mid(Me!Strasse, 24, Len(Me!Strasse) - 23)), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "", "", "1")
                   
             
                End If
        Else
            Me!Vorschaufeld = Me!Anrede & vbCrLf & _
                    Left(Me!NameFirma, 23) & "  " & vbCrLf & _
                    Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23) & " " & vbCrLf & _
                    "z.Hd. " & Me!zHdAnrede & vbCrLf & _
                    Me!zHdName & vbCrLf & _
                    Left(Me!Strasse, 23) & " " & vbCrLf & _
                    Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & " " & vbCrLf & _
                    Me!PLZ & " " & Me!Ort & vbCrLf & _
                    Me!Land & vbCrLf & _
                    Me!FreiTextfeld
                If Not IsNull(Me!Anrede) Or Not IsNull(Me!NameFirma) Or Not IsNull(Me!zHdAnrede) Or Not IsNull(Me!zHdName) Or Not IsNull(Me!Strasse) Or Not IsNull(Me!PLZ) Or Not IsNull(Ort) Or Not IsNull(Me!Land) Or Not IsNull(Me!FreiTextfeld) Then
                    Call EPL_File_export("Adressen", Nz(Me!Anrede), Nz(Left(Me!NameFirma, 23)), Nz(Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23)), "z.Hd. " & Nz(Me!zHdAnrede), Nz(Me!zHdName), Nz(Left(Me!Strasse, 23)), Nz(Mid(Me!Strasse, 24, Len(Me!Strasse) - 23)), Nz(Me!PLZ) & " " & Nz(Me!Ort), Nz(Me!Land), Nz(Me!FreiTextfeld), "1")
                             
                End If
                   
                   
        End If
End If
End Sub

database

#12
November 22, 2010, 13:14:38 Letzte Bearbeitung: November 22, 2010, 13:16:56 von database
Versuch mal folgenden Code in deinen zu implementieren bzw. auszutauschen ...
Der Teil nach Else wird ja nur ausgeführt, wenn der Strassennahme > 23 ist.
Daher muss die Bedingung für dien Firmennamen speziell implementiert werden..

Code [Auswählen]


Else
   If Absender = True Then
       Call EPL_File_export("Adressen_op", "Absender:", "Krankenhaus der Barmherzigen", "Schwestern Ried", "Schlossberg 1", "4910 Ried", "Zentral    OP", "", "", "", "", "1")    sTestSleep
   End If

If IsNull(Me!zHdAnrede) And IsNull(Me!zHdName) Then
   Me!Vorschaufeld = Me!Anrede

   'Die Bedingung wenn der Firmenname länger als 23 Zeichen ist...
   If Len(Me!NameFirma)> 23 Then
      Me!Vorschaufeld = Me!Vorschaufeld & vbCrLf & _
      Left(Me!NameFirma, 24) & vbCrLf & _
      Mid(Me!NameFirma, 24, Len(Me!NameFirma) - 23)
   Else
      Me!Vorschaufeld = Me!Vorschaufeld & vbCrLf & _
      Me!NameFirma
   End If

   Me!Vorschaufeld = Me!Vorschaufeld & vbCrLf & _
   Left(Me!Strasse, 24) & vbCrLf & _
   Mid(Me!Strasse, 24, Len(Me!Strasse) - 23) & vbCrLf & _
   Me!PLZ & " " & Me!Ort & vbCrLf & _
   Me!Land & vbCrLf & _
   Me!FreiTextfeld

...
..
.


Für den 2. Teil (wenn z.Hd. auch eingetragen wurde musst du noch nach diesem Muster implementieren.

Das sollte laufen!

Peter

maniaspets

#13
November 22, 2010, 13:26:37
Ja genau das wars! ;D

Danke für die Hilfe.
Drucken
Nach oben Seiten1
Benutzer-Aktionen