Adding comment programmatically

[Carl Rapson]

I have a spreadsheet that pulls some data from an Access database and
populates cells. Some of the cells have a comment that needs to be added.
The code I am trying is as follows (rs2 is the DAO recordset):

ActiveSheet.Cells(mrow, mcol).Value = rs2!

If Not IsNull(rs2![Comments]) Then
ActiveSheet.Cells(mrow, mcol).ClearComments
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
End If

When I execute this code, at the AddComment line I get the following error:

Run-time error '1004': Application-defined or object-defined error

I get this error sometimes when I attempt to add a comment to a field that
already has a comment, which is why I added the ClearComments line before
it -- but the presence or absence of the ClearComments line doesn't seem to
make any difference. I use some code similar to this successfully in another
place in my application, but I'm using the text from a textbox instead of a
recordset field to set the comment.

Does anyone see anything wrong with this code? Or is there something
additional I need to do to add the comment? If it makes any difference, the
Comments field from my database is a Memo field. I can use a MsgBox to see
the Comments field and it looks OK.

Thanks for any suggestions,

Carl Rapson

 

[Frank Kabel]

Hi Carl
your code looks o.k. for me. You may try the following:
Replace
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
with
ActiveSheet.Cells(mrow, mcol).AddComment CStr(rs2![Comments])

 

[Carl Rapson]

Frank,

Thank you very much, that did the trick. I guess there was a problem after
all with the database field being a memo field. I learn something every day
through these newsgroups.

Carl

Hi Carl
your code looks o.k. for me. You may try the following:
Replace
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
with
ActiveSheet.Cells(mrow, mcol).AddComment CStr(rs2![Comments])


--
Regards
Frank Kabel
Frankfurt, Germany

I have a spreadsheet that pulls some data from an Access database and
populates cells. Some of the cells have a comment that needs to be
added. The code I am trying is as follows (rs2 is the DAO recordset):

ActiveSheet.Cells(mrow, mcol).Value = rs2!

If Not IsNull(rs2![Comments]) Then
ActiveSheet.Cells(mrow, mcol).ClearComments
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
End If

When I execute this code, at the AddComment line I get the following
error:

Run-time error '1004': Application-defined or object-defined error

I get this error sometimes when I attempt to add a comment to a field
that already has a comment, which is why I added the ClearComments
line before it -- but the presence or absence of the ClearComments
line doesn't seem to make any difference. I use some code similar to
this successfully in another place in my application, but I'm using
the text from a textbox instead of a recordset field to set the
comment.

Does anyone see anything wrong with this code? Or is there something
additional I need to do to add the comment? If it makes any
difference, the Comments field from my database is a Memo field. I
can use a MsgBox to see the Comments field and it looks OK.

Thanks for any suggestions,

Carl Rapson[/QUOTE]
[/QUOTE]

 

[Frank Kabel]

Hi Carl
that was just a good guess - so glad it helped

--
Regards
Frank Kabel
Frankfurt, Germany

Frank,

Thank you very much, that did the trick. I guess there was a problem
after all with the database field being a memo field. I learn
something every day through these newsgroups.

Carl

Hi Carl
your code looks o.k. for me. You may try the following:
Replace
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
with
ActiveSheet.Cells(mrow, mcol).AddComment CStr(rs2![Comments])


--
Regards
Frank Kabel
Frankfurt, Germany

I have a spreadsheet that pulls some data from an Access database
and populates cells. Some of the cells have a comment that needs to
be added. The code I am trying is as follows (rs2 is the DAO
recordset):

ActiveSheet.Cells(mrow, mcol).Value = rs2!

If Not IsNull(rs2![Comments]) Then
ActiveSheet.Cells(mrow, mcol).ClearComments
ActiveSheet.Cells(mrow, mcol).AddComment rs2![Comments]
End If

When I execute this code, at the AddComment line I get the following
error:

Run-time error '1004': Application-defined or object-defined error

I get this error sometimes when I attempt to add a comment to a
field that already has a comment, which is why I added the
ClearComments line before it -- but the presence or absence of the
ClearComments line doesn't seem to make any difference. I use some
code similar to this successfully in another place in my
application, but I'm using the text from a textbox instead of a
recordset field to set the comment.

Does anyone see anything wrong with this code? Or is there something
additional I need to do to add the comment? If it makes any
difference, the Comments field from my database is a Memo field. I
can use a MsgBox to see the Comments field and it looks OK.

Thanks for any suggestions,

Carl Rapson[/QUOTE][/QUOTE][/QUOTE]