Append memo field to a different memo field 
Author Message
 Append memo field to a different memo field

How can I append the info in one memo field to another?

I've tried

    rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

appendchunk doesn't seem to work either.

Thanks.



Fri, 10 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
There's no special reason it shouldn't work, provided the recordset objects
are open and positioned at the appropriate records, and the field names are
correct, and you have used the .Edit method on rsttbl1 and will follow it
with the .Update method when you're done assigning values to it.

When you say it doesn't work, what do you mean?  You get an error (what
error)?  The value doesn't change?

Post more of the code and background information for a better diagnosis.

--

Dirk Goldgar
(remove NOSPAM from reply address)


Quote:
> How can I append the info in one memo field to another?

> I've tried

>     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> appendchunk doesn't seem to work either.

> Thanks.



Fri, 10 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
I appreciate your help.  The contents of the memo field are not being
copied.  Here's the code:

Private Sub Command0_Click()
    Dim db As Database
    Dim rstCon As Recordset
    Dim rstAct As Recordset
    Dim strSearch As String
    Dim strTemp As String

    Set db = CurrentDb
    Set rstCon = db.OpenRecordset("SELECT * FROM Contacts;")
    Set rstAct = db.OpenRecordset("SELECT * FROM Activity ORDER by
Activity.Contact, Activity.Date;")

    rstCon.MoveFirst
    Do While Not rstCon.EOF            ' loop through the Contacts table
        strSearch = rstCon!Key
        strSearch = "[Contact] = " & rstCon!Key
        rstAct.FindFirst strSearch        ' find the first matching activity
record. Update initial call date and other record info.
        'MsgBox (rstCon![Company Name])
        strTemp = rstAct!Key
        If rstAct!Contact = rstCon!Key Then
            rstCon.Edit
            rstCon!InitCallDate = rstAct!Date
            rstCon!DateOfLastCall = rstAct!Date
            If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented =
True
            rstCon!PresentationDate = rstAct!PresentationDate
            rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
            rstCon!PresentedResult = rstAct!PresentedResult
            'rstCon!Status = rstAct
            rstCon!AptDateSet = rstAct!AptDateSet
            rstCon!AptTimeSet = rstAct!AptTimeSet
            rstCon!NextCall = rstAct!NextCall
            rstCon!DateofNextContact = rstAct!NextCall
            'rstCon!TimeofNextCall =
            rstCon!InsExDate = rstAct!InsRenewHealth
            rstCon!WCExDate = rstAct!InsRenewWC
            rstCon!NoEmpHealth = rstAct!NoEmpHealth
            rstCon!NoEmpWC = rstAct!NoEmpWC
            rstCon.Update
        End If
            rstAct.MoveNext
        Do While rstAct!Contact = rstCon!Key 'find the Activity for the
Contact ' see if there's more activity for this contact.
            rstCon.Edit
            rstCon!DateOfLastCall = rstAct!Date
            If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented =
True
            rstCon!PresentationDate = rstAct!PresentationDate
            rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
            rstCon!PresentedResult = rstAct!PresentedResult
            'rstCon!Status = rstAct
            rstCon!AptDateSet = rstAct!AptDateSet
            rstCon!AptTimeSet = rstAct!AptTimeSet
            rstCon!NextCall = rstAct!NextCall
            rstCon!DateofNextContact = rstAct!NextCall
            'rstCon!TimeofNextCall =
            rstCon!InsExDate = rstAct!InsRenewHealth
            rstCon!WCExDate = rstAct!InsRenewWC
            rstCon!NoEmpHealth = rstAct!NoEmpHealth
            rstCon!NoEmpWC = rstAct!NoEmpWC
            rstCon.Update
            rstAct.MoveNext
        Loop
        rstCon.MoveNext
    Loop

    rstAct.Close
    rstCon.Close
    db.Close
End Sub

Thanks.


Quote:
> There's no special reason it shouldn't work, provided the recordset
objects
> are open and positioned at the appropriate records, and the field names
are
> correct, and you have used the .Edit method on rsttbl1 and will follow it
> with the .Update method when you're done assigning values to it.

> When you say it doesn't work, what do you mean?  You get an error (what
> error)?  The value doesn't change?

> Post more of the code and background information for a better diagnosis.

> --

> Dirk Goldgar
> (remove NOSPAM from reply address)



> > How can I append the info in one memo field to another?

> > I've tried

> >     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> > appendchunk doesn't seem to work either.

> > Thanks.



Fri, 10 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
Have you stepped through the code in Debug mode?  It looks to me as though
it should work, provided that (1) one or more matching records are found,
and (2) the field name in the Contacts table is really named "Coment", not
"Comment" as I'd expect.

Unrelated notes:
I think you should probably check rstAct.NoMatch after your call to
rstAct.FindFirst.  I can't recall offhand whether this is absolutely
essential since you're testing for the equality of your search key -- I'll
leave it to you to look it up.  Also, I don't see any reason to repeatedly
.Edit and .Update the same record if you have more than one matching rstAct
record.  I'd do something like

    rstAct.FindFirst ...
    If Not rstAct.NoMatch Then
        rstCon.Edit
        Do While rstAct!Contact = rstCon!Key
            ' ... set various fields in rstCon record ...
            rstAct.MoveNext
            If rstAct.EOF Then Exit Do
        Loop
        rstCon.Update
    End If

--

Dirk Goldgar
(remove NOSPAM from reply address)


Quote:
> I appreciate your help.  The contents of the memo field are not being
> copied.  Here's the code:

> Private Sub Command0_Click()
>     Dim db As Database
>     Dim rstCon As Recordset
>     Dim rstAct As Recordset
>     Dim strSearch As String
>     Dim strTemp As String

>     Set db = CurrentDb
>     Set rstCon = db.OpenRecordset("SELECT * FROM Contacts;")
>     Set rstAct = db.OpenRecordset("SELECT * FROM Activity ORDER by
> Activity.Contact, Activity.Date;")

>     rstCon.MoveFirst
>     Do While Not rstCon.EOF            ' loop through the Contacts table
>         strSearch = rstCon!Key
>         strSearch = "[Contact] = " & rstCon!Key
>         rstAct.FindFirst strSearch        ' find the first matching
activity
> record. Update initial call date and other record info.
>         'MsgBox (rstCon![Company Name])
>         strTemp = rstAct!Key
>         If rstAct!Contact = rstCon!Key Then
>             rstCon.Edit
>             rstCon!InitCallDate = rstAct!Date
>             rstCon!DateOfLastCall = rstAct!Date
>             If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented =
> True
>             rstCon!PresentationDate = rstAct!PresentationDate
>             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
>             rstCon!PresentedResult = rstAct!PresentedResult
>             'rstCon!Status = rstAct
>             rstCon!AptDateSet = rstAct!AptDateSet
>             rstCon!AptTimeSet = rstAct!AptTimeSet
>             rstCon!NextCall = rstAct!NextCall
>             rstCon!DateofNextContact = rstAct!NextCall
>             'rstCon!TimeofNextCall =
>             rstCon!InsExDate = rstAct!InsRenewHealth
>             rstCon!WCExDate = rstAct!InsRenewWC
>             rstCon!NoEmpHealth = rstAct!NoEmpHealth
>             rstCon!NoEmpWC = rstAct!NoEmpWC
>             rstCon.Update
>         End If
>             rstAct.MoveNext
>         Do While rstAct!Contact = rstCon!Key 'find the Activity for the
> Contact ' see if there's more activity for this contact.
>             rstCon.Edit
>             rstCon!DateOfLastCall = rstAct!Date
>             If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented =
> True
>             rstCon!PresentationDate = rstAct!PresentationDate
>             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
>             rstCon!PresentedResult = rstAct!PresentedResult
>             'rstCon!Status = rstAct
>             rstCon!AptDateSet = rstAct!AptDateSet
>             rstCon!AptTimeSet = rstAct!AptTimeSet
>             rstCon!NextCall = rstAct!NextCall
>             rstCon!DateofNextContact = rstAct!NextCall
>             'rstCon!TimeofNextCall =
>             rstCon!InsExDate = rstAct!InsRenewHealth
>             rstCon!WCExDate = rstAct!InsRenewWC
>             rstCon!NoEmpHealth = rstAct!NoEmpHealth
>             rstCon!NoEmpWC = rstAct!NoEmpWC
>             rstCon.Update
>             rstAct.MoveNext
>         Loop
>         rstCon.MoveNext
>     Loop

>     rstAct.Close
>     rstCon.Close
>     db.Close
> End Sub

> Thanks.



> > There's no special reason it shouldn't work, provided the recordset
> objects
> > are open and positioned at the appropriate records, and the field names
> are
> > correct, and you have used the .Edit method on rsttbl1 and will follow
it
> > with the .Update method when you're done assigning values to it.

> > When you say it doesn't work, what do you mean?  You get an error (what
> > error)?  The value doesn't change?

> > Post more of the code and background information for a better diagnosis.

> > --

> > Dirk Goldgar
> > (remove NOSPAM from reply address)



> > > How can I append the info in one memo field to another?

> > > I've tried

> > >     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> > > appendchunk doesn't seem to work either.

> > > Thanks.



Fri, 10 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
It's working.  Thanks!!


Quote:
> Have you stepped through the code in Debug mode?  It looks to me as though
> it should work, provided that (1) one or more matching records are found,
> and (2) the field name in the Contacts table is really named "Coment", not
> "Comment" as I'd expect.

> Unrelated notes:
> I think you should probably check rstAct.NoMatch after your call to
> rstAct.FindFirst.  I can't recall offhand whether this is absolutely
> essential since you're testing for the equality of your search key -- I'll
> leave it to you to look it up.  Also, I don't see any reason to repeatedly
> .Edit and .Update the same record if you have more than one matching
rstAct
> record.  I'd do something like

>     rstAct.FindFirst ...
>     If Not rstAct.NoMatch Then
>         rstCon.Edit
>         Do While rstAct!Contact = rstCon!Key
>             ' ... set various fields in rstCon record ...
>             rstAct.MoveNext
>             If rstAct.EOF Then Exit Do
>         Loop
>         rstCon.Update
>     End If

> --

> Dirk Goldgar
> (remove NOSPAM from reply address)



> > I appreciate your help.  The contents of the memo field are not being
> > copied.  Here's the code:

> > Private Sub Command0_Click()
> >     Dim db As Database
> >     Dim rstCon As Recordset
> >     Dim rstAct As Recordset
> >     Dim strSearch As String
> >     Dim strTemp As String

> >     Set db = CurrentDb
> >     Set rstCon = db.OpenRecordset("SELECT * FROM Contacts;")
> >     Set rstAct = db.OpenRecordset("SELECT * FROM Activity ORDER by
> > Activity.Contact, Activity.Date;")

> >     rstCon.MoveFirst
> >     Do While Not rstCon.EOF            ' loop through the Contacts table
> >         strSearch = rstCon!Key
> >         strSearch = "[Contact] = " & rstCon!Key
> >         rstAct.FindFirst strSearch        ' find the first matching
> activity
> > record. Update initial call date and other record info.
> >         'MsgBox (rstCon![Company Name])
> >         strTemp = rstAct!Key
> >         If rstAct!Contact = rstCon!Key Then
> >             rstCon.Edit
> >             rstCon!InitCallDate = rstAct!Date
> >             rstCon!DateOfLastCall = rstAct!Date
> >             If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented
=
> > True
> >             rstCon!PresentationDate = rstAct!PresentationDate
> >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> >             rstCon!PresentedResult = rstAct!PresentedResult
> >             'rstCon!Status = rstAct
> >             rstCon!AptDateSet = rstAct!AptDateSet
> >             rstCon!AptTimeSet = rstAct!AptTimeSet
> >             rstCon!NextCall = rstAct!NextCall
> >             rstCon!DateofNextContact = rstAct!NextCall
> >             'rstCon!TimeofNextCall =
> >             rstCon!InsExDate = rstAct!InsRenewHealth
> >             rstCon!WCExDate = rstAct!InsRenewWC
> >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> >             rstCon!NoEmpWC = rstAct!NoEmpWC
> >             rstCon.Update
> >         End If
> >             rstAct.MoveNext
> >         Do While rstAct!Contact = rstCon!Key 'find the Activity for the
> > Contact ' see if there's more activity for this contact.
> >             rstCon.Edit
> >             rstCon!DateOfLastCall = rstAct!Date
> >             If Not IsNull(rstAct!PresentationDate) Then rstCon!Presented
=
> > True
> >             rstCon!PresentationDate = rstAct!PresentationDate
> >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> >             rstCon!PresentedResult = rstAct!PresentedResult
> >             'rstCon!Status = rstAct
> >             rstCon!AptDateSet = rstAct!AptDateSet
> >             rstCon!AptTimeSet = rstAct!AptTimeSet
> >             rstCon!NextCall = rstAct!NextCall
> >             rstCon!DateofNextContact = rstAct!NextCall
> >             'rstCon!TimeofNextCall =
> >             rstCon!InsExDate = rstAct!InsRenewHealth
> >             rstCon!WCExDate = rstAct!InsRenewWC
> >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> >             rstCon!NoEmpWC = rstAct!NoEmpWC
> >             rstCon.Update
> >             rstAct.MoveNext
> >         Loop
> >         rstCon.MoveNext
> >     Loop

> >     rstAct.Close
> >     rstCon.Close
> >     db.Close
> > End Sub

> > Thanks.



> > > There's no special reason it shouldn't work, provided the recordset
> > objects
> > > are open and positioned at the appropriate records, and the field
names
> > are
> > > correct, and you have used the .Edit method on rsttbl1 and will follow
> it
> > > with the .Update method when you're done assigning values to it.

> > > When you say it doesn't work, what do you mean?  You get an error
(what
> > > error)?  The value doesn't change?

> > > Post more of the code and background information for a better
diagnosis.

> > > --

> > > Dirk Goldgar
> > > (remove NOSPAM from reply address)



> > > > How can I append the info in one memo field to another?

> > > > I've tried

> > > >     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> > > > appendchunk doesn't seem to work either.

> > > > Thanks.



Sat, 11 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
So you're not going to tell me *why* it wasn't working?  Hmm, makes me think
it was a spelling error ...

;-)

--

Dirk Goldgar
(remove NOSPAM from reply address)


Quote:
> It's working.  Thanks!!



> > Have you stepped through the code in Debug mode?  It looks to me as
though
> > it should work, provided that (1) one or more matching records are
found,
> > and (2) the field name in the Contacts table is really named "Coment",
not
> > "Comment" as I'd expect.

> > Unrelated notes:
> > I think you should probably check rstAct.NoMatch after your call to
> > rstAct.FindFirst.  I can't recall offhand whether this is absolutely
> > essential since you're testing for the equality of your search key --
I'll
> > leave it to you to look it up.  Also, I don't see any reason to
repeatedly
> > .Edit and .Update the same record if you have more than one matching
> rstAct
> > record.  I'd do something like

> >     rstAct.FindFirst ...
> >     If Not rstAct.NoMatch Then
> >         rstCon.Edit
> >         Do While rstAct!Contact = rstCon!Key
> >             ' ... set various fields in rstCon record ...
> >             rstAct.MoveNext
> >             If rstAct.EOF Then Exit Do
> >         Loop
> >         rstCon.Update
> >     End If

> > --

> > Dirk Goldgar
> > (remove NOSPAM from reply address)



> > > I appreciate your help.  The contents of the memo field are not being
> > > copied.  Here's the code:

> > > Private Sub Command0_Click()
> > >     Dim db As Database
> > >     Dim rstCon As Recordset
> > >     Dim rstAct As Recordset
> > >     Dim strSearch As String
> > >     Dim strTemp As String

> > >     Set db = CurrentDb
> > >     Set rstCon = db.OpenRecordset("SELECT * FROM Contacts;")
> > >     Set rstAct = db.OpenRecordset("SELECT * FROM Activity ORDER by
> > > Activity.Contact, Activity.Date;")

> > >     rstCon.MoveFirst
> > >     Do While Not rstCon.EOF            ' loop through the Contacts
table
> > >         strSearch = rstCon!Key
> > >         strSearch = "[Contact] = " & rstCon!Key
> > >         rstAct.FindFirst strSearch        ' find the first matching
> > activity
> > > record. Update initial call date and other record info.
> > >         'MsgBox (rstCon![Company Name])
> > >         strTemp = rstAct!Key
> > >         If rstAct!Contact = rstCon!Key Then
> > >             rstCon.Edit
> > >             rstCon!InitCallDate = rstAct!Date
> > >             rstCon!DateOfLastCall = rstAct!Date
> > >             If Not IsNull(rstAct!PresentationDate) Then
rstCon!Presented
> =
> > > True
> > >             rstCon!PresentationDate = rstAct!PresentationDate
> > >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> > >             rstCon!PresentedResult = rstAct!PresentedResult
> > >             'rstCon!Status = rstAct
> > >             rstCon!AptDateSet = rstAct!AptDateSet
> > >             rstCon!AptTimeSet = rstAct!AptTimeSet
> > >             rstCon!NextCall = rstAct!NextCall
> > >             rstCon!DateofNextContact = rstAct!NextCall
> > >             'rstCon!TimeofNextCall =
> > >             rstCon!InsExDate = rstAct!InsRenewHealth
> > >             rstCon!WCExDate = rstAct!InsRenewWC
> > >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> > >             rstCon!NoEmpWC = rstAct!NoEmpWC
> > >             rstCon.Update
> > >         End If
> > >             rstAct.MoveNext
> > >         Do While rstAct!Contact = rstCon!Key 'find the Activity for
the
> > > Contact ' see if there's more activity for this contact.
> > >             rstCon.Edit
> > >             rstCon!DateOfLastCall = rstAct!Date
> > >             If Not IsNull(rstAct!PresentationDate) Then
rstCon!Presented
> =
> > > True
> > >             rstCon!PresentationDate = rstAct!PresentationDate
> > >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> > >             rstCon!PresentedResult = rstAct!PresentedResult
> > >             'rstCon!Status = rstAct
> > >             rstCon!AptDateSet = rstAct!AptDateSet
> > >             rstCon!AptTimeSet = rstAct!AptTimeSet
> > >             rstCon!NextCall = rstAct!NextCall
> > >             rstCon!DateofNextContact = rstAct!NextCall
> > >             'rstCon!TimeofNextCall =
> > >             rstCon!InsExDate = rstAct!InsRenewHealth
> > >             rstCon!WCExDate = rstAct!InsRenewWC
> > >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> > >             rstCon!NoEmpWC = rstAct!NoEmpWC
> > >             rstCon.Update
> > >             rstAct.MoveNext
> > >         Loop
> > >         rstCon.MoveNext
> > >     Loop

> > >     rstAct.Close
> > >     rstCon.Close
> > >     db.Close
> > > End Sub

> > > Thanks.



> > > > There's no special reason it shouldn't work, provided the recordset
> > > objects
> > > > are open and positioned at the appropriate records, and the field
> names
> > > are
> > > > correct, and you have used the .Edit method on rsttbl1 and will
follow
> > it
> > > > with the .Update method when you're done assigning values to it.

> > > > When you say it doesn't work, what do you mean?  You get an error
> (what
> > > > error)?  The value doesn't change?

> > > > Post more of the code and background information for a better
> diagnosis.

> > > > --

> > > > Dirk Goldgar
> > > > (remove NOSPAM from reply address)



> > > > > How can I append the info in one memo field to another?

> > > > > I've tried

> > > > >     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> > > > > appendchunk doesn't seem to work either.

> > > > > Thanks.



Sat, 11 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
Nope. apparently it was working all along.  I just hadn't check it
completely.  The "Coment" field has been a spelling error I've been living
with for awhile.

Thanks for your help.


Quote:
> So you're not going to tell me *why* it wasn't working?  Hmm, makes me
think
> it was a spelling error ...

> ;-)

> --

> Dirk Goldgar
> (remove NOSPAM from reply address)



> > It's working.  Thanks!!



> > > Have you stepped through the code in Debug mode?  It looks to me as
> though
> > > it should work, provided that (1) one or more matching records are
> found,
> > > and (2) the field name in the Contacts table is really named "Coment",
> not
> > > "Comment" as I'd expect.

> > > Unrelated notes:
> > > I think you should probably check rstAct.NoMatch after your call to
> > > rstAct.FindFirst.  I can't recall offhand whether this is absolutely
> > > essential since you're testing for the equality of your search key --
> I'll
> > > leave it to you to look it up.  Also, I don't see any reason to
> repeatedly
> > > .Edit and .Update the same record if you have more than one matching
> > rstAct
> > > record.  I'd do something like

> > >     rstAct.FindFirst ...
> > >     If Not rstAct.NoMatch Then
> > >         rstCon.Edit
> > >         Do While rstAct!Contact = rstCon!Key
> > >             ' ... set various fields in rstCon record ...
> > >             rstAct.MoveNext
> > >             If rstAct.EOF Then Exit Do
> > >         Loop
> > >         rstCon.Update
> > >     End If

> > > --

> > > Dirk Goldgar
> > > (remove NOSPAM from reply address)



> > > > I appreciate your help.  The contents of the memo field are not
being
> > > > copied.  Here's the code:

> > > > Private Sub Command0_Click()
> > > >     Dim db As Database
> > > >     Dim rstCon As Recordset
> > > >     Dim rstAct As Recordset
> > > >     Dim strSearch As String
> > > >     Dim strTemp As String

> > > >     Set db = CurrentDb
> > > >     Set rstCon = db.OpenRecordset("SELECT * FROM Contacts;")
> > > >     Set rstAct = db.OpenRecordset("SELECT * FROM Activity ORDER by
> > > > Activity.Contact, Activity.Date;")

> > > >     rstCon.MoveFirst
> > > >     Do While Not rstCon.EOF            ' loop through the Contacts
> table
> > > >         strSearch = rstCon!Key
> > > >         strSearch = "[Contact] = " & rstCon!Key
> > > >         rstAct.FindFirst strSearch        ' find the first matching
> > > activity
> > > > record. Update initial call date and other record info.
> > > >         'MsgBox (rstCon![Company Name])
> > > >         strTemp = rstAct!Key
> > > >         If rstAct!Contact = rstCon!Key Then
> > > >             rstCon.Edit
> > > >             rstCon!InitCallDate = rstAct!Date
> > > >             rstCon!DateOfLastCall = rstAct!Date
> > > >             If Not IsNull(rstAct!PresentationDate) Then
> rstCon!Presented
> > =
> > > > True
> > > >             rstCon!PresentationDate = rstAct!PresentationDate
> > > >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> > > >             rstCon!PresentedResult = rstAct!PresentedResult
> > > >             'rstCon!Status = rstAct
> > > >             rstCon!AptDateSet = rstAct!AptDateSet
> > > >             rstCon!AptTimeSet = rstAct!AptTimeSet
> > > >             rstCon!NextCall = rstAct!NextCall
> > > >             rstCon!DateofNextContact = rstAct!NextCall
> > > >             'rstCon!TimeofNextCall =
> > > >             rstCon!InsExDate = rstAct!InsRenewHealth
> > > >             rstCon!WCExDate = rstAct!InsRenewWC
> > > >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> > > >             rstCon!NoEmpWC = rstAct!NoEmpWC
> > > >             rstCon.Update
> > > >         End If
> > > >             rstAct.MoveNext
> > > >         Do While rstAct!Contact = rstCon!Key 'find the Activity for
> the
> > > > Contact ' see if there's more activity for this contact.
> > > >             rstCon.Edit
> > > >             rstCon!DateOfLastCall = rstAct!Date
> > > >             If Not IsNull(rstAct!PresentationDate) Then
> rstCon!Presented
> > =
> > > > True
> > > >             rstCon!PresentationDate = rstAct!PresentationDate
> > > >             rstCon!Coment = rstCon!Coment & "; " & rstAct!Comments
> > > >             rstCon!PresentedResult = rstAct!PresentedResult
> > > >             'rstCon!Status = rstAct
> > > >             rstCon!AptDateSet = rstAct!AptDateSet
> > > >             rstCon!AptTimeSet = rstAct!AptTimeSet
> > > >             rstCon!NextCall = rstAct!NextCall
> > > >             rstCon!DateofNextContact = rstAct!NextCall
> > > >             'rstCon!TimeofNextCall =
> > > >             rstCon!InsExDate = rstAct!InsRenewHealth
> > > >             rstCon!WCExDate = rstAct!InsRenewWC
> > > >             rstCon!NoEmpHealth = rstAct!NoEmpHealth
> > > >             rstCon!NoEmpWC = rstAct!NoEmpWC
> > > >             rstCon.Update
> > > >             rstAct.MoveNext
> > > >         Loop
> > > >         rstCon.MoveNext
> > > >     Loop

> > > >     rstAct.Close
> > > >     rstCon.Close
> > > >     db.Close
> > > > End Sub

> > > > Thanks.



> > > > > There's no special reason it shouldn't work, provided the
recordset
> > > > objects
> > > > > are open and positioned at the appropriate records, and the field
> > names
> > > > are
> > > > > correct, and you have used the .Edit method on rsttbl1 and will
> follow
> > > it
> > > > > with the .Update method when you're done assigning values to it.

> > > > > When you say it doesn't work, what do you mean?  You get an error
> > (what
> > > > > error)?  The value doesn't change?

> > > > > Post more of the code and background information for a better
> > diagnosis.

> > > > > --

> > > > > Dirk Goldgar
> > > > > (remove NOSPAM from reply address)



> > > > > > How can I append the info in one memo field to another?

> > > > > > I've tried

> > > > > >     rsttbl1!memofield1 = rsttbl1!memofield1 & rsttbl2!memofield2

> > > > > > appendchunk doesn't seem to work either.

> > > > > > Thanks.



Sun, 12 Jan 2003 03:00:00 GMT  
 Append memo field to a different memo field
Really makes a person ponder the futility of it all.

Quote:

>Nope. apparently it was working all along.  I just hadn't check it
>completely.

[snip]


Sun, 12 Jan 2003 03:00:00 GMT  
 
 [ 8 post ] 

 Relevant Pages 

1. Memo fields - problems reporting 2 memo fields

2. Append Chunk Function never appends to memo field

3. Appending chr(13) to a memo field?

4. appending Chr(13) to memo fields?

5. different colors inside one memo field

6. Embed Fields within a memo field

7. HELP: linking txt field with a memo field

8. Displaying MS Access fields over 255 characters (Memo fields)

9. Mail Body field to Access memo field

10. get access-memo-field in an rtftext-field

11. How to populate memo field using SQL

12. Problem With Memo Fields And DAO

 

 
Powered by phpBB® Forum Software