>source

첫째, 나는 VBA로 코딩 할 때 훈련받지 못한다는 것을 인정해야합니다. MS Access 매크로 및 쿼리를 사용하여 응용 프로그램을 작성합니다. 일부 임시 가져 오기 파일을 사용하며 매크로 또는 일부 VBA를 실행하여 존재하는지 테스트 한 다음 해당하는 경우 삭제해야합니다.

내 테이블 이름은 "tempimport1"입니다.

Google 검색을 통해이 문제를 연구하고 일부 VBA를 통해 작동했지만 code를 모듈이나 클릭 하위 버튼에 넣는 방법을 알아냅니다. 나는 과거의 버튼 기능으로 VBA code를 자르거나 붙여 넣었으며, 이번에는 작동하지 않는 이유를 알아낼 수는 없습니다.

솔직히, 나는 그것이 내가 VBA를 모르는 사실뿐만 아니라 개인 대 공공 기능에 대한 이해가 부족하다고 확신합니다.

여기에 일하는 code가 있습니다.

Function IsTable(sTblName As String) As Boolean
    'does table exists and work ?
    'note: finding the name in the TableDefs collection is not enough,
    '      since the backend might be invalid or missing
    On Error GoTo TrapError
    Dim x
    x= DCount("*", sTblName)
    IsTable= True
    Exit Function
TrapError:
    Debug.Print Now, sTblName, Err.Number, Err.Description
    IsTable= False
End Function

이 함수는 테이블이 존재하는지 확인하려고합니다. 다음과 같이 호출합니다. myTest= iStable ( "table_name") 및이 함수는이 테이블의 레code 수를 계산하려고 시도합니다. 테이블이 있으면 함수가 count를 만들 수 있도록 istable= true를 반환 할 수 있습니다. 그렇지 않은 경우 위의 오류 처리가 오류를 잡고 ISTable= False를 설정합니다. 그래서 당신이 그것을 사용해야하는 방법은 code에서 테스트하는 것입니다 : istable ( "yourtable") 그때 ... 뭔가를하십시오 .... 다른 것 .... 다른 것을하십시오.

Matteo NNZ2021-07-21 17:39:09
  • 이전 Spring 부팅에서는 엔티티의 기본 키 (_id)로 24 길이의 임의의 문자열을 어떻게 생성 할 수 있습니까?
  • 다음 python : URL 잘못 뷰로드 -Django.