Choosing the right backup solution for your organization can be a daunting task. To make the selection process easier, ask solution providers these 10 key questions.
Dim mydb As Database, rsEnq As Recordset Dim sqlBarCode As String sqlBarCode = "SELECT DISTINCTROW tblInventory.BarCode, tblInventory.Description, tblInventory.SalePrice " sqlBarCode = sqlBarCode & "FROM tblInventory " sqlBarCode = sqlBarCode & "WHERE (tblInventory.BarCode ='" & Me.txtBarCode1.Text & "');" ' Create database. Set mydb = DBEngine.Workspaces(0).Databases(0) ' Create dynaset. Set rsEnq = mydb.OpenRecordset(sqlBarCode, DB_OPEN_SNAPSHOT) If rsEnq.NoMatch Then MsgBox ("BarCode was not recognised. Please write down your Name and the product taken in the book provided."), 0 + 64, "Error" GoTo endpgm End If ' Populate text box controls. On Error Resume Next Me![txtDesc1].Value = rsEnq.Fields("[Description]").Value Me![txtCost1].Value = rsEnq.Fields("[SalePrice]").Value mydb.Close endpgm: Me.txtBarCode2.Locked = False Me.txtBarCode2.SetFocus
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.