Last Accessed?

[satty]

hello people,

im creating a form in MS Access 2000, and i have a login form on which i want to show when the database was last accessed.

doesn any1 know how to do this? i am aware of formulas like =NOW() which i can place in an unbound box, but i cant find anything about last accessed or something similar?

any help will be appreciated!

Thanx Guys

 

[mdmilner]

Well, I've never tried but have thought about it and *knew* I'd seen something similar. If you're talking about the mdb file itself, you can use the filesystemobject to look at various properties of any file.

Make sure the Microsoft Scripting Runtime has been added to your references first.

Try this:

Function rAppObject()
Dim fsoSysObj As FileSystemObject
Dim fdrFolder As Folder
Dim filFile As File
Dim strPath As String

strPath = path_to_file_in_double_quotes

  Set fsoSysObj = New FileSystemObject
  Set fdrFolder = fsoSysObj.GetFolder(strPath)

  For Each filFile In fdrFolder.Files
      Debug.Print filFile.DateLastAccessed & " " & filFile.Name
  Next

End Function

 

[satty]

hey peeps

is there any simpler ways of doing this? im kind of very, VERY new to access and im not sure how to exactly carryout the above procedure.


and what is Microsoft Scripting Runtime. nad how do i add it to my reference first?

anyways anytihng will do?

 

[bat17]

To add the Microsoft Scripting Runtime goto modules and open or create a new module.
then Tools>Reerences.... and scroll down the list until you fin one called "Microsoft Scripting Runtime" check this one and click OK.

I am not sure if the code above will work or not and cannot test it at the moment but I suspect it will give the last accesed date as when you just opend the file!

Another method may be to have your form save a Date/Time to a table when it closes and load that when it opens again.

HTH

Peter

 

[mdmilner]

I found this within the Access VBA help.

But, as Bat said, yes it does just give you the current time and the far simpler solution is to just record a time/date stamp when you close the database, then you could use your Now() function.

Sub test()

Call ShowFileAccessInfo("c:\temp1.mdb") 'use yourfile name

End Sub

Sub ShowFileAccessInfo(filespec)
    Dim fs, d, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(f.Path) & vbCrLf
    s = s & "Created: " & f.DateCreated & vbCrLf
    s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
    s = s & "Last Modified: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub

 

[satty]

hey,

i bet u think what a dope. ehehhe, but im very new to this and am kind wanting to do things im not yet very capable of doing,

i was kind of hoping somebody will tell me how i can make it so that the form will open the last accessed (in this case closed) date, if i do use 'Bats' solution of =NOW()

Another method may be to have your form save a Date/Time to a table when it closes and load that when it opens again. Bat17

Thanx

 

[bat17]

Create a table called tblLastUsed and in it create a field called LastUsed, set this field to a date field and save. add a date in the table, any date will do as the code will update it
in the On Open event of your form add the following code

Private Sub Form_Open(Cancel As Integer)
Me.txtLastUsed = DMax("[LastUsed]", "tblLastUsed")
End Sub

In the On Close event add the following code

Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
CurrentDb.Execute "UPDATE tblLastUsed SET tblLastUsed.LastUsed = Now();"
DoCmd.SetWarnings True
End Sub

HTH

Peter