MS-Office-Forum

Zurück   MS-Office-Forum > Archive > Microsoft Access - Archiv > Microsoft Access - Archiv (2001)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.06.2001, 21:35   #1
Blubberer
Neuer Benutzer
Neuer Benutzer
Standard Probleme bei if mit leeren Feldern

Hallo,
ich versuche aus einer Tabelle Emailaddressen in eine emailnachricht zu packen.
Klappt auch, solange keines der Felder leer ist. Sobald ein Feld leer ist bekomme ich von dort an keine addresses mehr.
Die Addressen davor bleiben erhalten und erscheinen in Outlook. Waere fuer einen Tip dankbar, benutze folgenden Code:
Code:

For iCount = 1 To numberofentries
        If Not IsNull(rs![E- mail]) Then
        sAn = sAn + rs![E- mail] + ";"
        rs.MoveNext
    End If
    Next
Blubberer
Blubberer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.06.2001, 21:53   #2
MarioR
MOF Meister
MOF Meister
Wink

Hallo,

nimm mal rs.MoveNext hinter EndIf.
Du tritts nämlich auf der Stelle, sobald einmal das Feld Null war.

__________________

Mario

Fluchen ist die einzige Sprache, die alle Programmierer perfekt beherrschen.
MarioR ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 10:00   #3
Stema
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,
andere Möglichkeit.

(evtl.: rs.MoveFirst)
Do While Not rs.EOF
If Not IsNull(rs![E- mail]) Then sAn = sAn + rs![E- mail] + ";"
loop

Gruß Stema

__________________

Gruß Stema
Stema ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 10:07   #4
A.S.
Standard

rs.movenext

ohne das movenext eiert er weiterhin auf der stelle!

Gruß

Arno
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 13:13   #5
gloria
MOF Profi
MOF Profi
Standard

hi,
reicht nicht nur auch nach leeren Strings zu selektieren:

If IsNull(rs![E- mail]) or (rs![E- mail])=" " or (rs![E- mail])="" Then
MsgBox "Kein Inhalt"
else
sAn = sAn + rs![E- mail] + ";"
rs.MoveNext
End If
Next

ciao glori
gloria ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 14:42   #6
MarioR
MOF Meister
MOF Meister
Standard

Hallo Glori,

auch bei Deinem Vorschlag ist wieder das Problem, daß immer der gleiche DS beackert wird sobald das Programm einmal im Wahr-Teil gelandet ist.

Glaub mir, das MoveNext muß hinter EndIf.

__________________

Mario

Fluchen ist die einzige Sprache, die alle Programmierer perfekt beherrschen.
MarioR ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 14:47   #7
Stema
MOF Koryphäe
MOF Koryphäe
Standard

Da kann ich nicht widersprechen! ;-)

__________________

Gruß Stema
Stema ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.06.2001, 18:25   #8
toja
MOF User
MOF User
Standard

hallo blubberer,
vielleicht solltest du es gar nicht zulassen, dass leere Felder in deiner Tabelle drinstehen (Stichwort: konsistente Datenbasis, Normalisierung),
wahrschl. am schnellsten (und zugegebenermaßen aus der ferne beurteilt am unsaubersten) zu erreichen durch die vergabe des primärschlüssels auf diese spalte

viele grüsse toja
toja ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:59 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.