Loop Function

[rfreeman]

I am fairly new to coding. I have the following snippet of code adapted from another module. I need to edit each hyperlink field in the underlying query with a new path. Here's what I have so far, I just don't know how to make it loop through the entire recordset.

Dim dbCurrent As Database
Dim lngReturn As Long
Dim strCurFileName As String, strBaseFileLocation As String
Dim qdfContactInfo As QueryDef, rsContactInfo As Recordset

Set qdfContactInfo = dbCurrent.QueryDefs("qRenamePDFLinks")
Set rsContactInfo = qdfContactInfpenRecordset()

For Each ???????? In rsContactInfo

strBaseFileLocation = "\\SERVER\Data\LIMS PDF Reports\"
strCurFileName = strBaseFileLocation & rsContactInfo!CompanyName & " Order " & rsContactInfo!OrderID & ".pdf"

rsContactInfo.Edit
rsContactInfo("ReportPDF") = "View Report" & "#" & strCurFileName & "#"
rsContactInfo.Update

Next



Thanks for any help.

 

[WayneRyan]

r,

This edits ALL records though ...

While Not rsContactInfo.EOF and Not rsContactInfo.BOF
   rsContactInfo.Edit
   rsContactInfo("ReportPDF") = "View Report" & "#" & strCurFileName & "#"
   rsContactInfo.Update
   rsContactInfo.MoveNext
   Wend

Wayne

 

[rfreeman]

Thanks for the reply. I'll give it a try.