ramones1985
08-05-2009, 07:48
Salve...ho un problema che non capisco....posto il codice..
rs.Open "SELECT email, CD_Clien FROM ElencoEmail", CurrentProject.Connection, adOpenKeyset
'controllo che il recordset non sia vuoto
If (rs.EOF = True) And (rs.BOF = True) Then
rs.Close: Set rs = Nothing
Else
rs.MoveFirst
Do Until rs.EOF
Report_Sollecito_email.Filter = "[Cd_Clien]='" & rs!Cd_Clien & "'"
Report_Sollecito_email.FilterOn = "True"
DoCmd.OutputTo acOutputReport, "Sollecito_email", acFormatRTF, "C:\Report\prova" & c & ".rtf"
Report_Sollecito_email.Filter = "[Cd_Clien]='" & rs!Cd_Clien & "'"
c = c + 1
rs.MoveNext
Loop
End If
In poche parole, prendo un codice cliente da una tabella, lo passo al reporto come filtro che mi genera il report con altri campi..
Al primo giro TUTTO OK, mi prende il Cd_Clien con rs!Cd_Clien, e il mio filtro vale rs!Cd_Clien,
Al secondo giro....NON MI AGGIORNA IL VALORE.
Il dato preso dal database lo prendo, ma il valore del filtro è = " "
VUOTO.
Report_Sollecito_email.Filter = " "
....anche se in debug vedo che rs!Cd_Clien vale in valore del mio secondo campo.
COME è POSSIBILE CHE NON MI AGGIORNI IL FILTRO???
Grazie!
rs.Open "SELECT email, CD_Clien FROM ElencoEmail", CurrentProject.Connection, adOpenKeyset
'controllo che il recordset non sia vuoto
If (rs.EOF = True) And (rs.BOF = True) Then
rs.Close: Set rs = Nothing
Else
rs.MoveFirst
Do Until rs.EOF
Report_Sollecito_email.Filter = "[Cd_Clien]='" & rs!Cd_Clien & "'"
Report_Sollecito_email.FilterOn = "True"
DoCmd.OutputTo acOutputReport, "Sollecito_email", acFormatRTF, "C:\Report\prova" & c & ".rtf"
Report_Sollecito_email.Filter = "[Cd_Clien]='" & rs!Cd_Clien & "'"
c = c + 1
rs.MoveNext
Loop
End If
In poche parole, prendo un codice cliente da una tabella, lo passo al reporto come filtro che mi genera il report con altri campi..
Al primo giro TUTTO OK, mi prende il Cd_Clien con rs!Cd_Clien, e il mio filtro vale rs!Cd_Clien,
Al secondo giro....NON MI AGGIORNA IL VALORE.
Il dato preso dal database lo prendo, ma il valore del filtro è = " "
VUOTO.
Report_Sollecito_email.Filter = " "
....anche se in debug vedo che rs!Cd_Clien vale in valore del mio secondo campo.
COME è POSSIBILE CHE NON MI AGGIORNI IL FILTRO???
Grazie!