access-vba
테이블이 현재 DB에 존재하는지 확인

.NET Framework C# Language excel-vba HTML MySQL Regular Expressions SQL Microsoft SQL Server Visual Basic .NET Language VBA
수색…


비고

이 코드를 다른 프로 시저에서 호출 할 수있는 공용 모듈로 배치하기 만하면됩니다. 코드를 호출 할 때 괄호 안에 조회하려는 테이블의 이름을 추가하십시오. 코드는 테이블이 이미 존재하는지 여부에 대해 참 / 거짓 값을 반환합니다. 이 기능은 추가 코드를 수행하기 전에 테이블을 삭제 / 제거해야하는지 또는 이미 테이블이 있는지 확인해야하는 경우에 유용합니다.

예

Public Function TblExists(sTable As String) As Boolean
    
    On Error Resume Next
    Dim tdf As TableDef
  
    Set tdf = CurrentDb.TableDefs(sTable)

    If Err.Number = 0 Then
        TblExists = True
    Else
        TblExists = False
    End If
End Function

한 줄에서 사용할 수있는 다소 단순한 함수

Public Function TableExists(value as String) as Boolean

    On Error Resume Next
    TableExists = Len(CurrentDb.Tabledefs(value).Name & "") > 0

End Function


Modified text is an extract of the original Stack Overflow Documentation
아래 라이선스 CC BY-SA 3.0
와 제휴하지 않음 Stack Overflow