[AccessD] error in code

On 19 Apr 2004 at 0:17, Pedro Janssen wrote:

> why isn't this part of a code not working
> 
> for i  = 1 To 9
> If "chb" & i & "c31") = True Then
>     .Item("Code" & i).Value = "**     geen code"
> End If
> Next i

Pedro,

I am assuming that chb* are checkboxes. If so, try:

If me.controls("chb" & i & "c31") = True Then

You also have a closing ) on the ofiginal If Then line.

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
I am a nobody, and nobody is perfect; therefore, I am perfect.