Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.