Hi Mary,

I see no one has responded to this for a while.

Have you tried verifying that cols is still open? I noticed a couple of calls to methods on your form just before the command. Maybe something is closing cols?

Add:
if select("cols") < 1 then
wait window 'cols not open!'
suspend
endif

just before the line that fails.

Good luck!

>I am using a third party Active X Control from DBI Technology called Solutions Schedule 3.0. I first wrote code to query a database and then fill in fields in the control. This code worked fine until I set autoyield equal to .F. Now the code fails with the following error...
>
>Alias 'COLS' is not found. Line #43
>
>Any suggestions would be helpful. Thanks in advance.
>
>This is the section of code that is failing...
>
>SELECT Collections.col_date, Collections.employeeno;
>FROM park!Collections;
>WHERE ALLTRIM(Collections.route) = ALLTRIM(Sched.route);
>ORDER BY Collections.col_date;
>Into Cursor Cols
>
>If Reccount("Cols") > 0
>
>Go top
>
>Do While !EOF()
>
>*** THIS LINE EXECUTES SUCCESSFULLY ****
>nBarID = Thisform.ctSchedule1.AddKeyTimeBar(nIndexID, ;
> 0, ; 1440, ;
> Thisform.numdate(Cols.col_date), ;
> Thisform.numdate(Cols.col_date), 0)
>
>*** THIS IS LINE # 43 WHICH GENERATES
>*** "Alias 'COLS' is not found."
>*** WHEN autoyield is set to .F.
>
>cHHNum = SUBSTR(TRIM(Cols.employeeno), ;
> LENC(TRIM(Cols.employeeno))-2,3)
> thisform.ctSchedule1.BarText(nIndexID, nBarID ) = cHHNum
> thisform.ctSchedule1.BarTextAlign(nIndexID, nBarID ) = 2
>
>nCount = thisform.ctSchedule1.AddBarStyle(20, 0)
> thisform.ctSchedule1.StyleBackColor(nCount) = RGB(0,255,0)
> thisform.ctSchedule1.BarStyle(nIndexID, nBarID ) = nCount
>
>SKIP IN Cols
>ENDDO
>ENDIF