Private Sub Command6_Click() 'Create a Catalog object Dim con As New ADODB.Connection con.Open CurrentProject.AccessConnection Dim Cat As New ADOX.Catalog Cat.ActiveConnection = con Dim oldn As String Dim newn As String Dim tbln As String tbln = "test" oldn = "dog101" newn = "dog" 'Create a table object Dim Tbl As ADOX.Table Set Tbl = New ADOX.Table Set Tbl = Cat.Tables(tbln) Tbl.Columns(oldn).Name = newn Set Cat = Nothing Set Tbl = Nothing End Sub
|i want to change the ADD_CAR table available to true and import the data to RETURN table. now the problem is the data can import into RETURN table but the ADD_CAR table the available still not change||8||50|
|ms/access ftp / SFTP||3||32|
|MS Access how to nest many values to one value when exporting query to XML format||8||44|
|URGENT: Need to Import XML file into ACCESS 2013 without using Application.ImportXML function||6||23|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!