title: Access VBA Object Required Error
body: <p>This has probably been answered before, but in looking, I could not find an answer that suited my situation.  I am coding an Access 2003 form button to run an If/Then and do some commands based on that statement when clicked.  However I am getting the 'Object Required' error on every click.  I am still relatively new to VBA code, so please be gentle.</p>
  
  <p>Here is the code:</p>
  
  <pre><code>Private Sub Button_Click()
  On Error GoTo Err_Button_Click
  
  Dim Db As Object
  
  Set Db = CurrentDb
  
  Dim waveset As DAO.Recordset
  
  Set waveset = Db.OpenRecordset("SELECT countervalue FROM dbo_tblSettings")
  
  Dim orderfile As String
  
  orderfile = "\\serverfolder\serverfile.csv"
  
  If Value.waveset &gt; 0 Then
  
  MsgBox "Orders Already Imported; Please Proceed to Next Step", vbOKOnly, "Step Complete"
  
  GoTo Exit_Button_Click
      ElseIf Value.waveset = 0 Then
  
      DoCmd.RunSQL "DELETE FROM dbo_tblOrders", True
  
      DoCmd.TransferText acImportDelim, , "dbo_tblOrders", orderfile, True
  
      DoCmd.RunSQL "UPDATE dbo_tblOrders INNER JOIN dbo_MainOrderTable ON dbo_tblOrders.[channel-order-id]=dbo_MainOrderTable.[order-id] " _
      &amp; "SET dbo_MainOrderTable.[order-id] = dbo_tblOrders.[order-id], dbo_MainOrderTable.[channel-order-id] = dbo_tblOrders.[channel-order-id], " _
      &amp; "dbo_MainOrderTable.[Order-Source] = 'Amazon'" _
      &amp; "WHERE dbo_tblOrders.[sales-channel]='Amazon';", True
  
      DoCmd.RunSQL "UPDATE dbo_AmazonOrderTable INNER JOIN dbo_tblOrders ON dbo_AmazonOrderTable.[order-id]=dbo_tblOrders.[channel-order-id] " _
      &amp; "SET dbo_AmazonOrderTable.[order-id] = dbo_tblOrders.[order-id], dbo_AmazonOrderTable.[channel-order-id] = dbo_tblOrders.[channel-order-id], " _
      &amp; "dbo_AmazonOrderTable.[sales-channel] = 'Amazon' " _
      &amp; "WHERE dbo_tblOrders.[sales-channel]='Amazon';", True
  
      DoCmd.RunSQL "UPDATE dbo_tblSettings SET countervaule=1", True
  Else
  GoTo Exit_Button_Click
  End If
  
  Exit_Button_Click:
  Exit Sub
  
  Err_Button_Click:
  MsgBox Err.Description
  Resume Exit_Button_Click
  
  End Sub
  </code></pre>
  
  <p>-OH! forgot to mention I want to do it this way because the tables are actually linked tables to a SQL server back-end...  I've also been trying to figure out how to open the connection to my SQL server and manipulate the tables via the VBA code without having to link them in Access... but that's another post altogether</p>
  
  <p>Any help will be greatly appreciated. Thanks</p>