Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
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.
Dim rst As DAO.Recordset
Dim strMemo As String
Set rst = Me.RecordsetClone
While Not rst.EOF
If strMemo <> "" Then
strMemo = strMemo & vbNewLine
strMemo = strMemo & rst!YourMemoField.Value
Me!txtMemoHeader.Value = strMemo
Set rst = Nothing
Open in new window
Private Sub Remarks1_AfterUpdate()
Dim strMsg As String, strQry As String, strRemark As String
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_AllotQ set UpdatedDate = now(), UpdatedBy = """ & htboLoginName & """, Remarks = Remarks & '--" & strRemark & "'"
QuickQry strQry, False
MsgBox "Action cancelled."
Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.