Craete Table in Current Database

     

    Private Sub CMDButton_Click()
    Dim db As Database
    'to create in current database
     Set db = CurrentDb
    'to create table in another database
     'Set db = OpenDatabase("C:\Users\Pavan\Desktop\Access.accdb")
     Dim tblname As String
    tblname = Me.TxtBox.Value
    db.Execute ("Create Table " & tblname & "([ID] Integer, [Item] text, [Qty] integer, [Price] integer, [Location] string)")
    'DoCmd.RunSQL "CREATE TABLE Employees ([ID] Integer, [Item] text, [Qty] integer, [Price] integer, [Location] string)"
    MsgBox ("Hi Pavan Created Table")
    End Sub

     

Hi Everyone,
Welcome to Access Tutorial. In this tutorial i explained:
(i) How to insert the data into Access Database
(ii) how to extract the Data from Aceess Database to Excel
(iii) How to insert the data into Database by using FORMS by using VBA Macros.
This Tutorial provides comprehensive knowledge on the procedure how to connect\interact with Access Database. Hope it enhances your coding skills. If you like this web page kindly Share this to your near and dear. I Prepared this content as per my level of knowledge, if any changes required kindly bring to my notice. Thanks for visiting this web page

Thanks,
Pavan Kumar Gundlapalli