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 UpdateAllComments_Click() Dim strMsg As String, strQry As String, strRemark As String strMsg = "Update All Comments in the Current view. IMPORTANT!!! Will update a the filtered records." If vbYes = MsgBox(strMsg, vbYesNo, "IMPORTANT!! Confirmation") Then strMsg = "Please enter the remark" strRemark = InputBox(strMsg, "Remark") If Len(strRemark) > 0 Then strQry = "Update Final_Table set UpdatedDate = now(), UpdatedBy = """ & txtWelcome & """, Final_Table.Remarks1 = Allot_Q.Remarks1" '& '--" & strRemark & "'" QuickQry strQry, False Me.Requery End If Else MsgBox "Action cancelled." End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Differences Between Access 2013 Runtime and 2013 Full Version?||33||66|
|Why would a IF THEN result jump up to a prior line in the VBA code||12||49|
|Word 2010 - Search and replace? or VBA? Change attributes of Graphic images||4||16|
|Some sheets won't re-calculate unless you stop and step through the code||3||14|