'Save' button (Command3) This.Parent.Command1.ENABLED = .T. <- Add button This.Parent.Command2.ENABLED = .T. <- Edit button This.Parent.Command3.ENABLED = .F. <- Save button *This.Parent.Command4.ENABLED = .T. <- Delete button, but the next line takes care of it, which has the code below as well ThisForm.CheckAuthForPerson(m.id) This.Parent.Command5.ENABLED = .T. <- Exit button This.Parent.Command6.ENABLED = .F. <- Esc button ThisForm.Command1.ENABLED = .T. <- another button to pop another form ThisForm.Command2.ENABLED = .T. <- same as preivous line ThisForm.List1.ENABLED = .T. ThisForm.text1.ENABLED = .F. ThisForm.text2.ENABLED = .F. ThisForm.text3.ENABLED = .F. ThisForm.text4.ENABLED = .F. ThisForm.List1.Requery() SEEK(m.id) ThisForm.List1.Value = person.id+" "+person.logon+" "+person.name ThisForm.List1.SetFocus() ThisForm.Refresh() ***************************************************** Form.CheckAuthForPerson (Form's Method) LPARAMETERS lcPersonID SELECT auth SEEK lcPersonID IF FOUND() ThisForm.CommandGroup1.Command4.Enabled = .F. authct = .T. ELSE ThisForm.CommandGroup1.Command4.Enabled = .T. authct = .F. ENDIF SELECT person