Skip to Content
0
Former Member
Sep 22, 2008 at 10:13 AM

Updating exisiting system form field

23 Views

Hi,

On the quotations form there is a tax date field.

I have renamed the caption "last updated" and wish everytime the form loads for the data to read the same as the server date as below:

'Move "Document Date" Caption and rename "Last Updated"

oXPlaneItem = oForm.Items.Item("85")

oYPlaneItem = oForm.Items.Item("13")

oItem = oForm.Items.Item("86")

With oItem

.Height = oYPlaneItem.Height

.Width = oYPlaneItem.Width

.Left = oYPlaneItem.Left

.Top = oXPlaneItem.Top

End With

oLabel = oItem.Specific

oLabel.Caption = "Last Updated"

'Move "Predicted Closing Date" edit box to centre

oXPlaneItem = oForm.Items.Item("13")

oItem = oForm.Items.Item("12")

With oItem

.Left = oXPlaneItem.Left + oXPlaneItem.Width

.Top = oXPlaneItem.Top

End With

'Move "Document Date" EditBox Always equal server date

oXPlaneItem = oForm.Items.Item("85")

oYPlaneItem = oForm.Items.Item("12")

oItem = oForm.Items.Item("46")

With oItem

.Height = oYPlaneItem.Height

.Width = oYPlaneItem.Width

.Left = oYPlaneItem.Left

.Top = oXPlaneItem.Top

End With

oEdit = oItem.Specific

oEdit.String = oApp.Company.ServerDate

This works for User defined edit boxes if the databind is definded.

Is it possible to acheive what I am trying to do? At present the dit box constaly reads what is in the table and does update to the server date.