From babb6817920c6b8784acac0c301a1dae94a5c9c3 Mon Sep 17 00:00:00 2001
From: Alex Reed <alexreed1192@gmail.com>
Date: Sat, 26 Dec 2020 19:58:47 -0800
Subject: [PATCH] Add Access VBA Intro

---
 vba/vba-access/introduction.vbs | 62 +++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 vba/vba-access/introduction.vbs

diff --git a/vba/vba-access/introduction.vbs b/vba/vba-access/introduction.vbs
new file mode 100644
index 0000000..2b919f4
--- /dev/null
+++ b/vba/vba-access/introduction.vbs
@@ -0,0 +1,62 @@
+Option Compare Database
+
+Sub IntroductionToAccess()
+
+'Declare our variables.
+Dim accessApp As Application
+Dim accessDatabase As Database
+Dim accessTable As TableDef
+Dim accessRecord As Recordset
+
+'Grab the access application.
+Set accessApp = Application
+
+'Grab the Current Database in our application.
+Set accessDatabase = accessApp.CurrentDb
+Set accessDatabase = Application.DBEngine.Workspaces(0).Databases(0)
+
+Debug.Print "The Database Full Path is:" + accessDatabase.Name
+Debug.Print "The Number of tables in the database are: " + CStr(accessDatabase.TableDefs.Count)
+
+accessDatabase.TableDefs.Delete Name:="StockPrices"
+
+'Let's create a new table definition.
+Set accessTable = accessDatabase.CreateTableDef(Name:="StockPrices")
+
+'Take the new table and add some fields to it.
+With accessTable
+
+    'Add a field for the Date.
+    .Fields.Append .CreateField("date", dbDate)
+    
+    'Add a field for the open, close, high, low note that these are doubles.
+    .Fields.Append .CreateField("open", dbDouble)
+    .Fields.Append .CreateField("close", dbDouble)
+    .Fields.Append .CreateField("high", dbDouble)
+    .Fields.Append .CreateField("low", dbDouble)
+    
+End With
+
+'Add the new table to the Table Definitions Collection.
+accessDatabase.TableDefs.Append Object:=accessTable
+
+'Refresh the Table Definitions Collection database,
+accessDatabase.TableDefs.Refresh
+
+'Once we add the table, we can add records to it. Let's open a new recordset object.
+Set accessRecord = accessDatabase.OpenRecordset(Name:="StockPrices")
+
+'Use the `addNew` method to add a new record.
+accessRecord.AddNew
+
+'Specify the different fields we defined up above.
+accessRecord("date").Value = "12-26-2020"
+accessRecord("open").Value = 12
+accessRecord("close").Value = 12.2
+accessRecord("high").Value = 12.3
+accessRecord("low").Value = 11.99
+
+'Update the Recordset.
+accessRecord.Update
+
+End Sub
\ No newline at end of file