Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
Private Sub Ensure_Table_Exists() Dim sSQL As String Dim dbs As DAO.Database Set dbs = CurrentDb If TableExists("LINKED_TABLE") = False Then Dim tbl As TableDef, fld As Field, fld2 As Field Set tbl = dbs.CreateTableDef("LINKED_TABLE") ' Creating the fields Set fld = tbl.CreateField("Table_Name", dbText, 255) With tbl .Fields.Append fld Set fld2 = tbl.CreateField("Linked_FileName", dbText, 255) .Fields.Append fld2 Set fld2 = Nothing End With Set fld = Nothing dbs.TableDefs.Append tbl Set tbl = Nothing Set dbs = Nothing End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.