Missing Customer - For Next loop

pkelly — Wed, 15 Jun 2011 13:24:04 GMT

Hi all...

I recently received some assistance in creating a report which ran through a field list, filtered on same, and e-mailed a report.

In have found that I am missing one record....

For example I have four customers with the customer codes being stored in the field "cus_Code"...

The code I am using is as follows...

'===========================================================================

sub SubmitReportAll

Dim Msg, Style, Title, Response

Msg = "This routine sends an individual e-mail for each Customer to the recipient?"

Style = vbYesNo + vbExclamation + vbDefaultButton2

Title = "Are You Sure?"

Response = msgbox(Msg, Style, Title)

If Response = vbNo Then

Exit Sub

Else

End If

ActiveDocument.ClearAll true

Set val=ActiveDocument.Fields("cus_Code").GetPossibleValues(20000)

For i = 1 to Val.count - 1

ActiveDocument.Fields("cus_Code").Select val.item(i).Text

' set emailTo Variable

set ve = ActiveDocument.Variables("emailTo")

set vt = ActiveDocument.Fields("usr_EmailTo").GetPossibleValues

emailTo = vt.Item(0).text

ve.SetContent emailTo, true

' append Customer Code to end of emailSubject variable

set v = ActiveDocument.Variables("emailSubject")

set vname = ActiveDocument.Fields("cus_Code").GetPossibleValues

emailSubject = "QlikView ME06 Report - " + vname.Item(0).text

v.SetContent emailSubject, true

' Print Report

vo = ActiveDocument.Variables("emailOutput").GetContent.String

va = ActiveDocument.Variables("emailAttachment").GetContent.String

printReportPDF "RP01", vo, va

' Email Report

SendMail

ActiveDocument.ClearAll true

end sub

'===========================================================================

On the face of it, this works okay but I am consitently only getting three e-mails - I should get 4.

Any help greatly appreciated...

Thanks

Paul

Missing Customer - For Next loop

pat_agen — Wed, 15 Jun 2011 13:34:03 GMT

hi Paul,

debug it using a msgbox on i and see how your counter is moving

Mechanically it can only be the for statement causing this to happen, unless you have some bizarre behaviour due to data.

should the loop start at zero? why do you only go to Val.count -1. Have you tried moving one or the other?

For i = 1 to Val.count - 1

???

Missing Customer - For Next loop

pkelly — Wed, 15 Jun 2011 13:41:44 GMT

Thanks Pat

I had already tried removing the -1 aspect but kept getting errors after the 3rd e-mail had been sent.

Changed the loop start to a zero and this has done the trick (I always thought that this had to be a 1)...

Thanks for your help

Regards

Paul

topic Missing Customer - For Next loop in QlikView

Missing Customer - For Next loop

Missing Customer - For Next loop

Missing Customer - For Next loop