On Load VBA

[sparker75]

Hello,

I currently store a date in a table when I run my import macro. I would like to display this date on my navigation form as a Data Date. I tried this but it does not work Me.DataDate = [tblObjectImport]![TimeStamp]

This is what I have for on load event

Private Sub Form_Load()
Dim Security As Integer
Me.Text362 = Environ("USERNAME")
Me.DataDate = [tblObjectImport]![TimeStamp]
Security = DLookup("AccessID", "tblObjectUser", "[USERNAME] = '" & Me.Text362 & "'")
If Security = 2 Then
Me.NavigationButton53.Enabled = True 'Admin'
Else
Me.NavigationButton53.Enabled = False 'Admin'
End If


End Sub

[ranman256]

add a ImportDate field to the table , set the DEFAULT = DATE()
no code needed.

[sparker75]

This date is static and not necessarily today. This is why I put it in a table.

[Minty]

Then use a DLookup() to get it's value.
Currently it won't know what [tblObjectImport]![TimeStamp] is or evaluates to.

[sparker75]

Sorry but how exactly? If the table is [tblObjectImport]![TimeStamp] and the field that I want to populate is DataDate

[June7]

If date is static but not necessarily today then where does it come from? If it's already in a record then what criteria can be used to search for it? The most recent?

[sparker75]

There is only one record which is replaced each time the update macro is updated.

[June7]

A one-record table?

Me.DataDate = DLookup("TimeStamp", "tblObjectImport")

[sparker75]

Work thank you very much!