UNION of Memo (2nd time, sorry)

  • Thread starter Thread starter an
  • Start date Start date
A

an

Thanks to G Mandeno for your replay, but...

To concatenate the Memo1 with Memo1, of the two differents
records, I tryed insert the next code with Event Procedure
in OnOpen of the FORM:

Dim db as DAO.Database
Dim rs as DAO.Recordset
Dim sText as String
Set db = CurrentDb
Set rs = db.openRecordset("Select [Memo1] from [T_General]
Order by [Date]")"
Do Until rs.EOF
sText = sText & rs![Memo1] & " "
rs.MoveNext
Loop
rs.Close
Me.[Name] = sText

Returned next errors in lines:

Error1:
Set rs = db.openRecordset ... ... ")"
With red color. Because second " ?
If abolish that " after ) change to black color. Acepted
but didn't work, because

Error2:
Message with "Used define type not defined" in first line
of code.

Please, why?
So long...

I have Access is 2000. The DAO is problematic in this
version?
Thanks in advance.
an
 
Message with "Used define type not defined" in first line
of code.

Please, why?
So long...

I have Access is 2000. The DAO is problematic in this
version?
Click to expand...

Bang on. 2000 defaults to using the newer ADO object model.

Select Tools... References in the VBA editor; if you don't need ADO
uncheck Microsoft ActiveX Data Objects. Browse down and find Microsoft
DAO Object Library x.xx (highest version) and check it instead.
 
Back
Top