Prev: Calculation from results of form fields in VBA
Next: Is possible to save a .pdf file to Office live with code?
From: Carlos on 18 Jan 2010 20:24
I have a lovely piece of programming done by one of our MVPs here a couple
years back that was working great. After many modifications to keep it
current, it is now throwing an error every other run. These are all private
sub modules in a UserForm that execute when you push a button.

HERE IS THE PIECE THAT ERRORS
For i = 1 To lstSiteFields.ListCount
ffname = lstSiteFields.List(i - 1, 0)
If .Bookmarks.Exists(ffname) Then
If Not IsNull(lstSites.List(j, i - 1)) Then
.FormFields(ffname).Result =
lstSites.List(j, i - 1)
Else
.FormFields(ffname).Result = _
"Please enter data for " & ffname & "."
End If
End If
Next

This is the code link that errors - If Not IsNull(lstSites.List(j, i - 1))
Then

The first run it works great. I try to run it again on the document and it
fails. I have to close the form and reopen it to get it to work right.

"Could Not Get The List Property. Invalid Argument"

Thank you for your time,
Carlos
 | 
Pages: 1
Prev: Calculation from results of form fields in VBA
Next: Is possible to save a .pdf file to Office live with code?