Serienmail

[pahiti78]

Hallo Zusammen,

ich möchte eine Sammelmail verschicken und greife dehalb auf eine Abfrage zu. Ich lasse durch diese Abfrage eine Loop Schleife laufen und innerhalb der Schleife wird dann die sendObjekt-Funktion aufgerufen.
Die Abfrage ist zu diesem Zeitpunkt durch ein Formular gefiltert. Wenn ich allerdings diese Abfrage als Recordset aufrufe ist diese wieder ungefiltert. Ich könnte jetzt zwar mit "where-Klauseln" rangehen....ich hoffe es geht besser.

Anbei mein Code zum verschicken der Mails.

Code [Auswählen] Erweitern

Private Sub btnSenden_Click()
On Error Resume Next
Dim rcsSammel As Recordset
Set rcsSammel = CurrentDb.OpenRecordset("qry_frm_Stammdaten_Email_UF", dbOpenDynaset)
Do Until rcsSammel.EOF
DoCmd.SendObject , , , rcsSammel("emailadresse"), , , txtBetreff, txtNotiz
rcsSammel.MoveNext
Loop


und der Code welcher das Formular und somit die Abfrage filtert.

Code [Auswählen] Erweitern

Private Sub AuswahlEmaillisteSQL()
krit = "": strSQL = ""
If Not IsNull(Me!txtKdNr) Then krit = krit & " And Kundennummer = " & Me!txtKdNr
If Not IsNull(Me!txtUnternehmen) Then krit = krit & " And Kundenname like '*" & Me!txtUnternehmen & "*'"
If Not IsNull(Me!txtName) Then krit = krit & " And Name like '*" & Me!txtName & "*'"
If Not IsNull(Me!cboFunktion) Then krit = krit & " And FunktionF_ID = " & Me!cboFunktion


strSQL = "SELECT * FROM qry_frm_Stammdaten_Email_UF "
If krit <> "" Then strSQL = strSQL & "WHERE" & Mid(krit, 5)
End Sub

Hat irgendwer ne Idee?

[DF6GL]

Hallo,

"Ich könnte jetzt zwar mit "where-Klauseln" rangehen....ich hoffe es geht besser."

das IST besser....

[pahiti78]

Hallo,
ich habe nun versucht den recordset mittels where Klausel zu filtern.
Es haut leider so nicht hin. Ich möchte gern mit Hilfe eines Formulars filtern und habe deshalb variablen deklariert, welche die Werte aus dem Formular entgegen nehmen.
Leider haut es so nicht hin. ich bau wahrscheinlich irgendeinen Syntaxfehler ein. Access stürzt ab, sobald ich den button drücke.

Bitte um Hilfe 

Anbei der Code:

Code [Auswählen] Erweitern

Private Sub btnPDF_Click()
On Error Resume Next
Dim rcsSammel As Recordset
Dim intKdNr As Integer
Dim strKdName As String
Dim strMAName As String
Dim intFkt As Integer
Dim intBranche As Integer
Dim intBez As Integer

intKdNr = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.txtKdNr
strKdName = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.txtUnternehmen
strMAName = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.txtName
intFkt = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.cboFunktion
intBranche = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.cboBranche
intBez = Forms!frm_stammdaten_kunden!frm_Stammdaten_Email_UF.Form.cboBeziehung

Set rcsSammel = CurrentDb.OpenRecordset("SELECT * FROM [qry_frm_Stammdaten_Email_UF] &" _
& "WHERE [Kundennummer].[Value]=" & intKdNr, dbOpenDynaset)
Do Until rcsSammel.EOF
MsgBox rcsSammel("emailadresse")
rcsSammel.MoveNext
Loop

End Sub


[bahasu]

Hi,

probiert mal:

Code (vb) [Auswählen] Erweitern

Set rcsSammel = CurrentDb.OpenRecordset("SELECT * FROM [qry_frm_Stammdaten_Email_UF]  WHERE [Kundennummer].[Value]=" & intKdNr, dbOpenDynaset)

Statt
Dim intKdNr As Integer
besser
Dim intKdNr As long

[ebs17]

Code [Auswählen] Erweitern

On Error Resume Next
Soll das eine Fehlerbehandlung sein?
Auf so etwas sollte man nur in ganz speziellen Fällen zurückgreifen, zum Finden von Fehlern ist das aber gar nicht geeignet, weil es bedeutet ja: Ignoriere Fehler und mache weiter, so lange Du kannst.

Bitte um Hilfe

Ohne Anspruch auf Vollständigkeit:

- In der SQL-Anweisung fehlt ein Leerzeichen vor dem WHERE.
- Dafür ist das & in der Anweisung fehl am Platze.
-

Code [Auswählen] Erweitern

WHERE [Kundennummer].[Value]= ...Die Tabelle Kundennummer kommt vom Himmel gefallen? Der Feldname ist zumindest bedenklich.

Hinweise:
Wozu dient die Variableninflation? Verwendet wird nur eine.
Bei "SELECT *" sollte besser eine Auflistung der real verwendeten Felder (wäre hier auch nur eines) verwendet werden, weil anwendungssicherer und schneller.
dbOpenDynaset dient zum Lesen und Schreiben im Recordset. Für das Schreiben sind eine Reihe von zusätzlichen Verwaltungsschritten innerhalb des Recordsets notwendig (=> höherer Aufwand). Für ein einfaches Durchlaufen in einfacher Richtung wäre dbOpenForwardOnly passend (Grundlagen lesen).
Es gibt dann auch Fälle, wo sich das Nichtschließen des Recordsets rächen wird.