1084700863812019

updating online inventory from access

Private Sub compute_status()
  Dim Order_date As String
  Dim Receipt_date As String
  Dim resale_date As String
  Dim returned_date As String
  Dim cancelled_date As String
  
  Order_date = Nz(Me.Order_date, "NULL")
  Receipt_date = Nz(Me.Receipt_date, "NULL")
  resale_date = Nz(Me.resale_date, "NULL")
  returned_date = Nz(Me.returned_date, "NULL")
  cancelled_date = Nz(Me.order_cancelled_date, "NULL")

  If Order_date = "NULL" Then
    If resale_date = "NULL" Then
      Me.status = "In Stock"
    Else
      Me.status = "Sold"
      DoCmd.RunSQL ("UPDATE inventory1 SET sold = 1 WHERE inventory_id =" & Me.inventory_ID)
    End If
  Else
    If returned_date = "NULL" And cancelled_date = "NULL" Then
      If resale_date = "NULL" Then
        If Receipt_date = "NULL" Then
          Me.status = "On Order"
        Else
          Me.status = "In Stock"
        End If
      Else
        Me.status = "Sold"
        DoCmd.RunSQL ("UPDATE inventory1 SET sold = 1 WHERE inventory_id =" & Me.inventory_ID)
      End If
    Else
      Me.status = "Rescinded"
      DoCmd.RunSQL ("UPDATE inventory1 SET sold = 1 WHERE inventory_id =" & Me.inventory_ID)
    End If
  End If
End Sub