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.
Join the community of 500,000 technology professionals and ask your questions.