Dan,
Tried that, didn't work. The THIS.ENDIF is just a property on the toolbar that is .T. or .F.
Pete
>>>I have a form that has a copy of the WIZARD txtbutn class for database control on it. The ADD button, clears the fields, appends a blank record and puts the cursor in the first field.
>>>
>>>I need to modify the ADD button to control a special record number add and when I started playing with it on my form, it stopped working. Here is what I did in the CLICK property of the ADD button on my form....
>>>
>>>IF This.AddMode
>>> MESSAGEBOX("In AddMode")
>>>ENDIF
>>>DODEFAULT()
>>>
>>>
>>>This.AddMode is a flag set by the class.
>>>
>>>When I add the IF loop, the ADD button ceases to operate. I tried commenting out just the MESSAGEBOX line thinking it had something to do with a seperate window and all... that didn't work either.
>>>
>>>If I comment out the IF, MESSAGEBOX and ENDIF lines (leaving the DODEFAULT), the ADD button functions properly.
>>>
>>>
>>>WHY??????
>>>
>>>Thanks
>>
>>Since it works when you comment out the other lines, try putting a blank line between the ENDIF and the DODEFAULT. Maybe there's something about the ENDIF line it doesn't like. Try retyping that one line is another thing you could try.
>
>That's it. If the THIS.AddMode is erroring out, perhaps this is preventing the rest of the code from firing.
Peter Brama
West Pointe Enterprises
VFP is getting easier but STILL alot to learn!!