Last Date Modified 2

[Elvis72]

OK, I have searched and searched, while I have found helpful posts I can't find one that hits home with what my end goal is.

I have a Main Form, then I have multiple SubForms, I need to have a field on the Main Form that shows the date something on the Main Form or Subforms was last updated.

I can't seem to find something that would recognize when the subforms were changed?

Whatever information you need please let me know!~

Thanks so much!~

 

[Elvis72]

There are no event procedures on the form its self.

 

[Remou]

Can you zip the db and attach it, please.

 

[Elvis72]

I will need to spend some time stripping the database of table information, as soon as I can get that done I will post again.

 

[Remou]

There is no need to do that, just copy the troublesome form to a fresh database and zip that, do not include any tables, they are not necessary.

 

[Elvis72]

Well, I did this but I have no idea where to post it?

 

[Remou]

There is a link below the posting box:

Need File Storage?
Upload to box.net

 

[Elvis72]

Well, the powers that be governing where I can and can't go at work will not let me go there.

I will post it tonight when I get home!~

Thanks so much!~

 

[Elvis72]

OK, I just posted the file.

 

[Remou]

My fault, you need the Before Update event:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Me.Parent.txtLastUpdate = Now()
End Sub

 

[jamaarneen]

Hi Remou,

Sorry for interupting, but i followed this thread - and I can't imagine, why should the 'After Update' event trow an error about a macro called '.'???
and why is the 'Before Update' better???

I would very appreciate if somebody could explain this...

Thanks, Ja

 

[Elvis72]

Good Morning -

When I move the code to the Before Update Event, and I make an edit in a text field I get this:

Run-time error '-2147352567 (80020009

You can't assugn a value to this object.

This is what I did:

Private Sub Form_BeforeUpdate(Cancel As Integer)
[highlight]Me.Parent.txtLastUpdate = Now()[/highlight]
End Sub

And I'm still getting the Can't Find '.' Macro error when I add a record to the Notes subform?

 

[Remou]

Hi Ja
You are right and I am due for the mad-house.

Elvis72
The only way I could get this to work was to cut-and-paste the whole tabcontrol with the subforms into a new form. Decompile did not work, a new db did not work, deleting code did not work, so there you are.

I think I need a rest.

 

[Elvis72]

WooooHoooo!~

Any reason it had to be in a different form? Just curious, try to avoid next time?

Thanks sooo very much!~