Forms- getting last instant of data and putting it into next, in a one to many relationship using VBA

[farmerscott]

Hi Guys,

Using Access 2007 with low to intermediate skills in VBA.

I have a situation where I enter a lot of data that often repeats itself, but I can't "hard wire" the values. I hope that makes sense.

I want to be able to click over (on the many side of the form) and have a checkbox that says "Do you want to repeat the values?" The values would be pasted in and I could then make any minor adjustments. The start of the code might look like-

Private Sub Check58_Click()
Dim DateFilled As Date
Dim DateSprayed As Date

If Check58 = True Then
DateFilled = Date_Filled.Value 'get last instance from previous entry.
DateSprayed = Date_Sprayed.Value 'get last instance from previous entry.

End If
End Sub

Any thoughts on how you might approach this? I am thinking I can save the data (in VBA) and then paste it into the new/empty form.

cheers

FarmerScott

 

[farmerscott]

Guys,

the code below is working well. The after update change event on the form seemed to work the best option. I put the background colour in as a visual effect.

Private Sub Form_AfterUpdate()
Me![Date1].DefaultValue = """" & Me![Date2].Value & """"
        Me![Date1].BackColor = RGB(0, 255, 0)
        Me![Start Time].DefaultValue = """" & Me![End Time].Value & """"
        Me![Start Time].BackColor = RGB(0, 255, 0)
        Me![Start Temp].DefaultValue = """" & Me![End Temp].Value & """"
        Me![Start Temp].BackColor = RGB(0, 255, 0)
End Sub

cheers

FarmerScott