Link to home
Start Free TrialLog in
Avatar of Jass Saini
Jass Saini

asked on

Can you join Memo fields on a Continous form

Can you join Memo fields on a continous form??
Avatar of Phillip Burton
Phillip Burton

You can join memo fields in a query which is the Source for continuous forms.
Avatar of Jass Saini

ASKER

How?
Avatar of Rey Obrero (Capricorn1)
what do you mean by joining memo fields?
Yes for all the records in the query results
do you mean like this

select [memo1] & " " & [memo2]
from tablex
Sorry Rey,

Maybe I am not clear enough...I have the continous form which if I have the memo field in the detail section..it will need a input in each record...I am trying to do the memo field in the header so it capture the memo for all the records and not each individual one...hope that is clear as to what I want.
ASKER CERTIFIED SOLUTION
Avatar of Gustav Brock
Gustav Brock
Flag of Denmark image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Hello Gustav,

How would the memo be stored??
The parts of the concatenated memo are stored in the individual records.
The concatenated (joined) memo is for display only.

/gustav
Ok...I will try it and also where am I suppose to place this event
In the OnCurrent event.
If you are nitty-gritty, also in the AfterUpdate and Delete events.

/gustav
That's wierd..it locks up the program
No, the movenext is missing, sorry:

While Not rst.EOF
    If strMemo <> "" Then
        strMemo = strMemo & vbNewLine
    End If
    strMemo = strMemo & rst!YourMemoField.Value
    rst.MoveNext
Wend

/gustav
Hello,

I tried this...but it is populating only the first record..In my query I have seventeen records.

Here is what I am using...I want to be able to use one memo box...enter in my comment and it populate the rest of the records.

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
            Me.Requery
        End If
    Else
        MsgBox "Action cancelled."
    End If
    
End Sub

Open in new window

That's the other way around.
I think you need to rephrase what you are trying to do.

/gustav
Thanks