Free for PREMIUM members
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
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.