Insert Values into Table

     

     

    Private Sub CMDInsertValues_Click()
    'www.Tricks12345.com
     Dim db As Database
    Set db = CurrentDb
    Dim tblname As String
    tblname = Me.TxtBox.Value
    db.Execute "Insert into " & tblname & " Values(1, 'Apple', 150, 6, 'Hyderabad')"
    db.Execute "Insert into " & tblname & " Values(2, 'Banana', 165, 15, 'Banglore')"
    MsgBox ("Hi Pavan Inserted Values into 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