Snippet of code to get the recordset of a form or report

If [Type] = 5 Then ' Query
Call MergeAllWord(CurrentDb.QueryDefs(ObjName).SQL)
ElseIf [Type] = 6 Then ' Tables
Call MergeAllWord("", CurrentDb.TableDefs(ObjName).OpenRecordset)
ElseIf [Type] = -32768 Then ' Forms
DoCmd.OpenForm ObjName, , , , acFormReadOnly, acHidden, "Hidden"
Set Frm = Forms(ObjName)
Call MergeAllWord("", Frm.RecordsetClone)
Set Frm = Nothing
DoCmd.Close acForm, ObjName
ElseIf [Type] = -32764 Then ' Reports
DoCmd.OpenReport ObjName, acViewPreview, , , acHidden, "Hidden"
Set Rpt = Reports(ObjName)
Call MergeAllWord("", Rpt.Recordset)
Set Rpt = Nothing
DoCmd.Close acReport, ObjName
Else
MsgBox "Unknown object type - Can't do a mail merge", vbInformation
End If

The bit for the form works correctly, but the line Call MergeAllWord("",
Rpt.Recordset) gives error 32585 "This feature is only available in an ADP"

How do I get either the recordset or the SQL to pass to the MergeAllWord
routine?

probably being a bit thick

Thanks

Phil

Phil wrote:

strSQL = Frm.RecordSource
then pass the strSQL variable?

You might have to determine if there is an FilterOn/OrderByOn and
concatenate but I doubt since you are simply opening and closing, not
operating on an already open form.

Heck, why not open the form in acDesign and forget the set stuff.

On 08/10/2010 17:18:05, Salad wrote:
Thanks Salad - solved it

Call MergeAllWord(CurrentDb.QueryDefs(Rpt.RecordSource) .SQL)

Can't open AcDesign as the Db ends up as an AccDE

Phil

Hello Dear
I saw your email in your profile here( www.eggheadcafe.com ) and become interested; my name is;Kate please send me your email address (kategur90 (AT) yahoo (DOT) in) to my box now so that i can send you my picture then we will know each other more;
Thanks Kate
kategur90 (AT) yahoo (DOT) in

Submitted via EggHeadCafe - Software Developer Portal of Choice
SharePoint Create List Add/Edit Form Web Part With Custom Toolbar and Attachments Option
http://www.eggheadcafe.com/tutorials...ts-option.aspx