Access issue

This is doable with the help of  generic function.
Tables are represented by the TableDefs collection who's table name is the key.
So to check if the key is present, we can just attempt to retrieve it, if it fail, the table do not exist, and an error will be raised. We intercept it with an error handler:

Public Function ExistInCollection(ByRef Col as Object, ByVal Key As String) As Boolean
    ExistInCollection = ExistInCollectionByVal(Col, Key) Or ExistInCollectionByRef(Col, Key)
End Function

Private Function ExistInCollectionByVal(ByRef Col AsObject, ByVal Key As String) As Boolean
On Error Goto Error
    Dim Item As Variant
    Item = Col(Key)
    ExistInCollectionByVal = True
Exit Function
Error:
    ExistInCollectionByVal  = False
End Function

Private Function ExistInCollectionByRef(ByRef Col AsObject, ByVal Key As String) As Boolean
On Error Goto Error
    Dim Item As Variant
    Set Item = Col(Key)
    ExistInCollectionByRef = True
Exit Function
Error:
    ExistInCollectionByRef = False
End Function

Select allOpen in new window

To use it, just pass the TableDefs collection and table name arguments to the function:

Public Sub Test()
    Const TableName As String = "myTable"
    Dim Db As DAO.Database
    Set Db = CurrentDb

    If Not(ExistInCollection(Db.TableDefs, TableName) Then
        '// The table Do Not exist, do whatever you like here.
    Else
        '// The table exist
    End If
End Sub

Select allOpen in new window

Hi,
Thanks a lot. How to run "select * into otherTab from ..." against Access DB?

Gustav answered this question:
Solved: Issue to code | Experts Exchange (experts-exchange.com) 

Sorry, I do not see the way to duplicate one table, from that.

Can you also advise to code below?

It is just a matter of running a query:

SELECT *
INTO Table2
FROM [C:\Test\Test.accdb].Table1;

Select allOpen in new window

Function for testing table existance:

Public Function TblExists(ByVal strTableName As String) As Boolean
    Dim tblN As Object
    TblExists = False
    For Each tblN In CurrentDb.TableDefs
        If tblN.Name = strTableName Then
            TblExists = True
            Exit For
        End If
    Next tblN
End Function

Select allOpen in new window

You can also use docmd for object copy

Sub tst()
If TblExists("Table2") Then
' Delete Table2
    DoCmd.DeleteObject acTable, "Table2"
End If
' Copy Table1 toTable 2 in CurrentDB
DoCmd.CopyObject , "Table2", acTable, "Table1"
End Sub

Select allOpen in new window

Fabrice,
Do you see file below? Can you help?
1f.png

Als,
I've got attached error, like1g.png

due to For Each line below.

Public Function TblExists(ByVal strTableName As String) As Boolean
    Dim tblN As Object
    TblExists = False
    For Each tblN In Adb.TableDefs
        If tblN.Name = strTableName Then
            TblExists = True
            Exit For
        End If
    Next tblN
End Function


    Dim Adb As Object: Set Adb = CreateObject("Access.Application")
    Call Adb.OpenCurrentDatabase(F1)
    Adb.Visible = False

Select allOpen in new window

Try other version of function (without objects):

Public Function TblExists(ByVal strTableName As String) As Boolean
TblExists = False
If Not IsNull(DLookup("Name", "MSysObjects", "Name = " & Chr(34) & strTableName & Chr(34) & " AND Type = 1")) Then TblExists = True
End Function

Select allOpen in new window

I got

Sub or Function not defined

to DLookup in your code.

Could you make screenshot with references (VBA Editor Tools-References)?

Yes, I checked that OLE Automation was already selected in the reference.

Here's my article on object existence:
https://www.experts-exchange.com/articles/6670/Object-Existence.html

You had to have Microsoft Access XX Object library checked

Sorry, which is the option per attached file?1k.png

Look for "Microsoft Access 16.0 Object Library"

Try attached sample
Database2.accdb

Many thanks.
When writing to Access DB, is details of current active worksheet going to the table having same name of current work sheet?

Nope, you never mentionned such detail.
It goes to T1 table.

The function I wrote can write data to an,y table. Adjust to fit your needs.

Are you trying to copy table from Excel VBA?