ms 액세스 양식에 마지막으로 수정 한 시간을 표시하는 방법

XLSX 파일에 링크 된 묶음이있는 MS Access (2010) 양식 (모두 로컬로 저장 됨)이 있습니다. 기본 양식에는 내장 된 자동 업데이트 기능이 있습니다.이 기능은 본질적으로 모든 새 버전의 프런트 엔드 및 XLSX 파일을 중앙 서버에서 로컬로 (일일 자동으로 생성 됨) 복사합니다. 기본 양식의 로컬 XLSX 파일에서 date modified/last write 타임 스탬프를 추가 할 수 있습니까?ms 액세스 양식에 마지막으로 수정 한 시간을 표시하는 방법

이 나는 시도했다 :

제어 소스로

="Last Modified: " & DLookUp("[DateUpdate]","MSysObjects","[Name] = '***tablename***'") 그러나이 내가 필요한 데이터를 제공하지 않습니다.
나는 결과를 액세스 양식에 어떻게 묶을 수 있는지 알 수는 없지만 (Get-ItemProperty -Path $source).LastWriteTime.tostring("dd MMM yyyy HH:mm") 명령으로 원하는 결과를 얻을 수 있습니다. 어떤 아이디어?

주목할만한 : http://msdn.microsoft.com/en-us/library/windows/desktop/ms724926%28v=vs.85%29.aspx 날짜와 시간을 나타냅니다

출처

2013-06-29 user2535363

FileDateTime

이 변형 (날짜)를 반환 (C++는이 질문에 대한 적용도 반드시 나에게 외국과하지 않습니다) 파일 이 생성되었거나 마지막으로 수정되었습니다.

Dim dtLast As Date 
dtLast = FileDateTime("F:\Documents and Settings\student\Desktop\Book1.xlsx") 
Debug.Print dtLast  '29/06/2013 19:46:03

그런 다음 적절하게 값을 표시 Format를 사용하고, 아마도 Label의 Caption로 설정할 수 있습니다.

Debug.Print Format(dtLast, "ddd dd mmm") 'Sat 29 Jun

당신이 다음 Access 테이블에이 정보를 원하는 경우 :

Dim obj As AccessObject, dbs As Object 

    Set dbs = Application.CurrentData 
    Set obj = dbs.AllTables("tblStaff") 
    Debug.Print obj.Name; " "; obj.DateModified; " "; obj.DateCreated 
    'tblStaff 16/04/2013 14:50:46 28/02/2010 19:46:56

출처

2013-06-29 23:20:30

감사 앤디, 내가 코드를 배치해야합니까를? 'on event'내의 제어 소스/이벤트 빌더 또는 코드 빌더? 결과를 액세스 양식에 표시해야합니다. 타이 희미한 dT에 날짜 의 dT = FileDateTime ("F : \ 문서 및 설정 \ 학생 \ 바탕 화면 \ Book1.xlsx")로 을 Debug.Print dT에 '29/06/2013 19시 46분 3초 – user2535363

나는 그럭저럭 양식 코드에 래퍼에 추가하여이 작업 : 공공 기능 myFileDateTime (ByVal의 F 문자열로) myFileDateTime = FileDateTime (F) 끝 기능 그런 다음에 내 표현을 변경 : = myFileDateTime ("S : \ APPS \ AQMD \ data \ survey_results.csv "). – user2535363

ms 액세스 양식에 마지막으로 수정 한 시간을 표시하는 방법

답변

관련 문제