Microsoft KB Archive/185242

= PRB: Data Not Updated with ToolBar Navigation =

Article ID: 185242

Article Last Modified on 5/12/2003

-

APPLIES TO


 * Microsoft Visual FoxPro 3.0 Standard Edition
 * Microsoft Visual FoxPro 3.0b Standard Edition
 * Microsoft Visual FoxPro 5.0 Standard Edition
 * Microsoft Visual FoxPro 5.0a

-



This article was previously published under Q185242



SYMPTOMS
When navigating a table using the ToolBar, changes made to the table from a Visual FoxPro control, like a text box, are not saved when the record pointer is moved.



CAUSE
When buttons on the ToolBar are clicked, the focus does not move off the current control as it does when using command buttons.



RESOLUTION
Here are two possible workarounds:
 * Press the ENTER key before moving the record pointer. -or-


 * Assign the Text property of the text box to its Value property, before moving the record pointer. For more details, please see the MORE INFORMATION section of this article.



STATUS
This behavior is by design.



MORE INFORMATION
  Define a ToolBar class and a custom Navigation class by adding the following code to a Visual FoxPro program file, saved as Tbnav.prg: ****************************************************************     **** Top of Sample Code for ToolBar and Navigation Class **** **** Tbnav.prg ****

** Define the toolbar class. **     DEFINE CLASS skipbar AS toolbar Caption = "SkipBar" Height = 40 Left = 0 Top = 0 Width = 181 Name = "skipbar" oform = .F. && Will hold reference of calling object. ADD OBJECT cmdprev AS commandbutton WITH ; Top = 5, ; Left = 5, ; Height = 31, ; Width = 86, ; Caption = "Prev", ; Name = "cmdPrev" ADD OBJECT cmdnext AS commandbutton WITH ; Top = 5, ; Left = 90, ; Height = 31, ; Width = 86, ; Caption = "Next", ; Name = "cmdNext" PROCEDURE Init LPARAMETERS toForm && Get the calling objects reference. THIS.oForm = toForm ENDPROC PROCEDURE cmdnext.Click THIS.Parent.oForm.oNav.pNext && Call pNext in Navigation. THIS.Parent.oForm.Refresh ENDPROC PROCEDURE cmdprev.Click THIS.Parent.oForm.oNav.pPrev && Call pPrev in Navigation. THIS.Parent.oForm.Refresh ENDPROC ENDDEFINE

** Define the custom navigation class. **     DEFINE CLASS navigation AS custom Name = "navigation" nskiptable = .F.        PROCEDURE pNext SELECT (THIS.nSkipTable) SKIP IF EOF THEN SKIP -1 ENDIF ENDPROC PROCEDURE pPrev SELECT (THIS.nSkipTable) SKIP -1 IF BOF THEN SKIP ENDIF ENDPROC PROCEDURE first SELECT THIS.nSkipTable GO TOP ENDPROC PROCEDURE last SELECT THIS.nSkipTable GO BOTTOM ENDPROC PROCEDURE Init THIS.nSkipTable = SELECT(0) ENDPROC ENDDEFINE **** Bottom of Sample Code for ToolBar and Navigation Class **** ****************************************************************   Create and populate a table using the following code: CREATE TABLE customer (cust_id c(5), contact c(5)) INSERT INTO customer VALUES ("AAAAA","A1A1A") INSERT INTO customer VALUES ("BBBBB","B1B1B") INSERT INTO customer VALUES ("CCCCC","C1C1C") INSERT INTO customer VALUES ("DDDDD","D1D1D") INSERT INTO customer VALUES ("EEEEE","E1E1E") INSERT INTO customer VALUES ("FFFFF","F1F1F")  Create a Form and add the table to its Data Environment. Drag and drop each of the fields separately to create text box controls. Add two custom properties to the form, oSkipBar and oNav. These properties hold the references of the SkipBar and Navigation objects respectively.</li>  Place the following code in the INIT event of the form: **Specify file that contains SkipBar and Navigation Class Definitions

SET PROCEDURE TO Tbnav.prg

**Create SkipBar and pass current Forms reference to it. **Creat SkipBar object, save reference to Form's oSkipBar property. THIS.oSkipBar = CREATEOBJECT('SkipBar', THIS) THIS.oSkipBar.Visible = .T.

**Creat Navigation object, save reference to Form's oSkipBar property THIS.oNav = CREATEOBJECT('navigation') </li> Run the form and change the text displayed in one of the text boxes.</li> Click the Next button on the toolbar to go to the next record.</li> Click the Prev button on the toolbar to return to the previous record.

NOTE: The changes that you had made to the data are not saved.</li> Change the text displayed in one of the text boxes and press ENTER.</li> Repeat steps 9 and 10 and note that the changes are saved.</li></ol>

To fix the problem add the following lines of code to the beginning of the cmdnext.click and cmdprev.click procedures of the Skipbar class: tmpAC = THIS.Parent.oForm.ActiveControl tmpAC.Value = tmpAc.Text Make sure that the above two lines are the first two in the procedures.

Now, the changes are saved when the record pointer is moved using the navigation buttons in the ToolBar, whether the ENTER key is pressed or not.

Additional query words: vfoxwin

Keywords: kbprb KB185242

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.