We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|Access Report Print Preview locking up the screen||14||49|
|MS Office 2016 Home & Business, Access Runtime 2013, on Citrix?||6||62|
|MS ACCESS VBA FORMATTING||9||59|
|How to build a logic for passwords according to initials?||13||37|
Join the community of 500,000 technology professionals and ask your questions.