Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim sql As String
Set dbs = CurrentDb
'
' Check to see if product is new, or old
'
sql = "Select * " & _
"From YourTable " & _
"Where ProductName = '" & Me.NewProduct & "'"
Set rst = dbs.OpenRecordset(sql)
If rst.EOF and rst.BOF Then
' New Product
rst.AddNew
rst.ProductName = Me.ProductName
rst.NewFunding = Me.NewFunding
rst.Update
Else
' Existing product
rst.Edit
rst.NewFunding = rst.NewFunding
rst.Update
End If