Hi Byron,
You have empty parens () in one of your TABLEUPDATES.
Mike
>The next block of code was added. the test was OK. but I am affraid that in two weeks discover that one or more records are missing in x1.
>
>
>Begin Transaction
>llError = (Txnlevel() = 0)
>If !llError
>Select X1
>If Getfldstate(-1) = Replicate("1", Fcount() + 1)
> =Setfldstate(2, 2)
>Endif
>llError = !Tableupdate()
>If !llError
> Select X2
> llError = !Tableupdate(.T.)
> If !llError
> Select X3
> llError = !Tableupdate(.T.)
> Endif
>Endif
>
>If !llError
> End Transaction
>Else
> Rollback
> =Aerror(laError)
> Thisform.Error(laError[1], laError[2], 0)
>Endif
>Endif
Regards,
Mike
"We try to solve the problem by rushing through the design process so that enough time is left at the end to uncover the errors that were made because we rushed through the design process."
- Glenford Myers
If you're going through hell, keep going. - Walt Disney