Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.
Private Sub FlipTag() Dim TheTable As String: TheTable = "[tblCreate StockItems]" Dim TheTag As String: TheTag = "[Tag_CreateStockItem]" Dim TheStockNum As String: TheStockNum = "[Stocknum]" Dim strNewValue As String: strNewValue = IIf(Nz([Tag_CreateStockItem], "") = "Y", "Null", "'Y'") Dim TheStr As String TheStr = "UPDATE " & TheTable & " Set " & TheTag & " = " & strNewValue & " where " & TheStockNum & " = " & [StockNum] CurrentDb.Execute TheStr Application.Echo False Me.Refresh Application.Echo True End Sub
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.