Need to edge out the competition for your dream job? Train for certifications today.
Private Sub Remarks1_Click()
Dim strMsg As String, strQry As String, strRemark As String
strMsg = "Update All Comments in the Current view. IMPORTANT!!! Will update a the Viewed 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 Remarks1 = Remarks1 & '--" & strRemark & "'"
QuickQry strQry, False
MsgBox "Action cancelled."
Open in new window
Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.