Replicate 2 fields

[access2010]

Could I please receive assistance on how, when we click the Replicate Button on the Data Base Form copy and replace any data into the two fields as below?

Copy from WebDate to WebDate_Previous
Copy from Advice to Advice_Previous

Could the click of the Replicate Button, place To-Day’s Date into the WebDate field?

The DataBase that we are using is MsAccess 2003

Thank you for your suggestions

Crystal

 

[essaytee]

Could I please receive assistance on how, when we click the Replicate Button on the Data Base Form copy and replace any data into the two fields as below?

Copy from WebDate to WebDate_Previous
Copy from Advice to Advice_Previous

Could the click of the Replicate Button, place To-Day’s Date into the WebDate field?

The DataBase that we are using is MsAccess 2003

Thank you for your suggestions

Crystal

Try this:

Private Sub Replicator_Click()
    Me.WebDate_Previous = Me.WebDate
End Sub

 

[access2010]

98% = essaytee

Thank you for your suggestion which WORKS on the main form, but is not copying the Advice Field Data in the SubForm.
===
Private Sub Replicator_Click()
' == Button Name
Dim lngCurrent As Long
Dim rs As DAO.Recordset
On Error GoTo ErrHandler
Set rs = Me.RecordsetClone
lngCurrent = Me.CurrentRecord
rs.MoveFirst
rs.Move lngCurrent - 2
Me.WebDate_Previous = Me.WebDate
' == Copy to [WebDate_Previous] From [WebDate] and Overwrite Any Data == Main Form
Me.Advice_Previous = Me.Advice
' == Copy to [Advice_Previous] From [Advice] and Overwrite Any Data == Sub Form
ErrHandler:
rs.Close
Set rs = Nothing
End Sub

===
Can you please offer a suggestion on how to copy the data on the Sub Form?
Thank you
Nicole

 

[essaytee]

Create an Update Query as follows:

UPDATE Investments01_tbl_SubForm SET Investments01_tbl_SubForm.Advice_Previous = [Investments01_tbl_SubForm].[Advice]
WHERE (((Investments01_tbl_SubForm.Symbol_Stock)=[Forms]![Investments_StockBrowse_WebLinks_F]![Symbol_Stock]));

I named it qry_UpdateAdvice

The click event in full is as follows:

Private Sub Replicator_Click()
    If Not Me.NewRecord Then
        Me.WebDate_Previous = Me.WebDate
        Me.WebDate = Date
        
        If Not IsNull(Me.Symbol_Stock) Then
            DoCmd.OpenQuery "qry_UpdateAdvice"
        End If
    Else
        MsgBox "Can not perform this function, we are at a New Record"
    End If
End Sub