date creation property vba (1 Viewer)

[Kuhn]

hi all,

I would like to find a solution for the following problem:
on a form I have a command button to load a subform, based on a certain table. the table is an imported table, with saved import procedure.
when clicking the button I want access to check the date of creation of the table and if it's <> current date, run the import procedure.
I've come up with this function to check the date, but it doesn't do the trick.

Public Function toplevelcheck()
If CurrentDb.TableDefs("table_FOX").Properties("DateCreated").Value <> Date Then
MsgBox "update table"
    DoCmd.RunSavedImportExport "Import-New Selection 1"
End If

End Function

what am I doing wrong?

 

[Roku]

DateCreated contains date and time, so it will not match with Date. A simple way to achieve the check is to take the integer part of DateCreated for the comparison, like this:

If Int(CurrentDb.TableDefs("tFiles").Properties("DateCreated").Value) <> Date Then

 

[pr2-eugin]

Hello Kuhn, Welcome to AWF..

The problem is the DateCreated has a Time value stuck to it.. So try..

Public Function toplevelcheck()
    If [URL="http://www.techonthenet.com/access/functions/date/datevalue.php"]DateValue[/URL](CurrentDb.TableDefs("table_FOX").Properties("DateCreated")) <> Date Then
        MsgBox "update table"
        DoCmd.RunSavedImportExport "Import-New Selection 1"
    End If
End Function

 

[Kuhn]

superb - works fine now. thanks for the quick help!

 

[pr2-eugin]

Glad to be of help. Good Luck !