N
Nikki
Hi,
I have been using the Super Easy Word Merge found
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html
It worked last week but now it comes up with the following error:
Run-time error '6':
Overflow
Does anyone know what this means?
When I click on Debug it takes me to the following highlighted line:
intFoundPos = InStr(vText, strSearchFor)
This section of code is:
Function strDReplace(vText As String, strSearchFor As String, strReplaceTo
As String) As String
Dim intFoundPos As Integer
Dim intSearchLen As Integer
Dim intReplaceLen As Integer
intSearchLen = Len(strSearchFor)
intReplaceLen = Len(strReplaceTo)
intFoundPos = InStr(vText, strSearchFor)
Do While intFoundPos > 0
vText = Left$(vText, intFoundPos - 1) & strReplaceTo & Mid(vText,
intFoundPos + intSearchLen)
intFoundPos = InStr(vText, strSearchFor)
Loop
strDReplace = vText
End Function
I have been using the Super Easy Word Merge found
http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html
It worked last week but now it comes up with the following error:
Run-time error '6':
Overflow
Does anyone know what this means?
When I click on Debug it takes me to the following highlighted line:
intFoundPos = InStr(vText, strSearchFor)
This section of code is:
Function strDReplace(vText As String, strSearchFor As String, strReplaceTo
As String) As String
Dim intFoundPos As Integer
Dim intSearchLen As Integer
Dim intReplaceLen As Integer
intSearchLen = Len(strSearchFor)
intReplaceLen = Len(strReplaceTo)
intFoundPos = InStr(vText, strSearchFor)
Do While intFoundPos > 0
vText = Left$(vText, intFoundPos - 1) & strReplaceTo & Mid(vText,
intFoundPos + intSearchLen)
intFoundPos = InStr(vText, strSearchFor)
Loop
strDReplace = vText
End Function