Checking Table Exist in Access Database or Not

[littleiitin]

Option Explicit

Sub TableExits(strDBPath As String, strTable As String)
    
    Dim adoConn     As Object
    Dim rstRec      As Object
        
    Set adoConn = CreateObject("ADODB.Connection")
    Set rstRec = CreateObject("ADODB.Recordset")
    
    adoConn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & strDBPath & ";"
    On Error GoTo xxx:
    rstRec.Open "Select * from " & strTable, adoConn, 3, 3
xxx:
    If Err.Number = -2147217865 Then
        MsgBox "Table does not Exist.", vbInformation, "Table Exists or Not"
    Else
        MsgBox "Table Exists.", vbInformation, "Table Exists or Not"
    End If
    
End Sub

How to Use:

Sub test()

    Dim strDBPath   As String
    Dim strTable    As String
    '===========DB Path======
    strDBPath = "K:\xys\XYZDB.mdb"
    '=======================
    '=====Table Name=========
    strTable = "abc"
    '=======================
    Call TableExits(strDBPath, strTable)
    
End Sub

[LalitPandey87]

Its Working!
Cheers...............




https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK75iCEaGN
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iK7XF33njy
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCSgpAqA1
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iKCy--3x8E
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwNaJiNATXshvJ0Zz94AaABAg.9iEktVkTAHk9iF9_pdsh r6
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgykemWTw-fGoPwu8E14AaABAg.9iECYNx-n4U9iFAZq-JEZ-
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgxV2r7KQnuAyZVLHH54AaABAg.9iDVgy6wzct9iFBxma9z XI
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugx12mI-a39T41NaZ8F4AaABAg.9iDQqIP56NV9iFD0AkeeJG
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwnYuSngiuYaUhEMWN4AaABAg.9iDQN7TORHv9iFGQQ5z_ 3f
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwJ3yzdk_EE98dndmt4AaABAg.9iDLC2uEPRW9iFGvgk11 nH
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgyDWAVqCa4yMot463x4AaABAg.9iH3wvUZj3n9iHnpOxOe Xa
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=UgwvLFdMEAba5rLHIz94AaABAg.9iGReNGzP4v9iHoeaCpT G8
https://www.youtube.com/watch?v=ITI1HaFeq_g&lc=Ugy_1xkcndYdzUapw-J4AaABAg.9iGOq_leF_E9iHpsWCdJ5I