I'm wondering if someone out there can help me with my code. I have written a code that is supposed to determine if a checkbox has been checked in the document, then add 1 to the counter. It has been a few years since I tried to write any sort of code, so I have a feeling my problem may be relatively simple. I get a runtime error 438 when I try and run the code.

Sub addcheck()

Dim counter As Integer

counter = 0
With ActiveDocument
    If .formfieldscheck1066.Checked = True Then
    counter = counter + 1
    End If
    If .FormFieldscheck1070.Result = True Then
    counter = counter + 1
    End If
    If .FormFieldscheck1074.Result = True Then
    counter = counter + 1
    End If


.formfieldstext819.Result = counter

End With

End Sub


Thanks!

Hi

Try

If .FormFields("check1066").Result = True
  counter = counter +1
End if

This Should work

Cheers
Shasur

http://www.vbadud.blogspot.com

your problem is you need to reference the checkbox itself, (.checked is a property of the checkbox object)

ex

if chkCheckboxName.Checked = True Then
    counter = counter + 1
End If

if you use Rsult compare it to 1/0
other way
.FormFields("Name").ChekBox.Value - returns True/False

glm