cAlias = Thisform.DataEnvironment.InitialSelectedAlias Select (cAlias) *GO bottom *APPEND BLANK Thisform.Refresh() thisform.command4.Caption ="Save" thisform.SetAll("Enabled", .T., "TextBox") thisform.SetAll("Value", "", "TextBox") this.enabled = .f. thisform.text1.SetFocus()where i can add this code to previous message
IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help APPEND BLANK ENDIF
>>Do Case >>Case This.Caption="Modify" >> This.Caption = "Save" >> Thisform.command1.Enabled = .T. >> Thisform.SetAll("Enabled",.T.,"textbox") >>Case This.Caption = 'Save' >> This.Caption = 'Modify' >> cAlias = Thisform.DataEnvironment.InitialSelectedAlias >> Select (cAlias) >> If CursorGetProp("Buffering")> 1 >> =Tableupdate(1,.T.,cAlias) >> Endif >> Thisform.command1.Enabled = .T. >> Thisform.SetAll("Enabled",.F.,"textbox") >>ENDCASE >> Thisform.command1.Enabled = .T. >> >> >> >>>>thanks
IF MESSAGEBOX("Are you Sure") = 6 && or whatever the return code is, check the help > APPEND BLANK >ENDIF