Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Import/Export Reports

1 view
Skip to first unread message

Mai Zhuang

unread,
Sep 29, 1997, 3:00:00 AM9/29/97
to

Mik Achton-Boel <a...@post8.tele.dk> wrote in article
<01bcccc8$4aa23080$0100007f@server>...
> I have made this line in a modul - Access 8.00 - , where I import some
> reports,
> which all begin with the same word.
>
> My question are, is there a way to use a jokersign like *
>
> DoCmd.TransferDatabase acImport, "Microsoft Access",
> "C:\Data\Access\MENU97.mdb", acReport, "repSelec*", "repSelect*"
>
> The line above does not work.
> Best Regards
>
Mik Achton-Boel,

My advice is if you know that all the reports have the same beginning loop
through the reports collection like this:

Dim rpt as report

For each rpt in myDB.reports
If rpt.Name like "rptSelec*" then
DoCmd.TransferDatabase acImport, "Microsoft Access",
"C\Data\Access\MENU97.mdb", acReport, rpt.Name, rpt.Name
End If
Next rpt

Hope this helps,

Mark Nitsche
Virtualogic, Inc.

Mik Achton-Boel

unread,
Sep 29, 1997, 3:00:00 AM9/29/97
to

I have made this line in a modul - Access 8.00 - , where I import some
reports,
which all begin with the same word.

DoCmd.TransferDatabase acImport, "Microsoft Access",
"C:\Data\Access\MENU97.mdb", acReport, "repSelectLetter01",
"repSelectLetter01"


DoCmd.TransferDatabase acImport, "Microsoft Access",

"C:\Data\Access\MENU97.mdb", acReport, "repSelectLetter02",
"repSelectLetter02"

My question are, is there a way to use a jokersign like *

DoCmd.TransferDatabase acImport, "Microsoft Access",
"C:\Data\Access\MENU97.mdb", acReport, "repSelec*", "repSelect*"

The line above does not work.


Best Regards

Mik Achton-Boel
Denmark

Mik Achton-Boel

unread,
Sep 29, 1997, 3:00:00 AM9/29/97
to

I have made this line in a modul - Access 8.0 - , where I import some

reports,
which all begin with the same word.

My question are, is there a way to use a jokersign like *

DoCmd.TransferDatabase acImport, "Microsoft Access",

"C:\Data\Access\MENU97.mdb", acReport, "repSelect*", "repSelect*"



The line above does not work.

I have recieved this advice

**********************


My advice is if you know that all the reports have the same beginning loop
through the reports collection like this:


Function ImportReport()

Dim rpt as report

For each rpt in myDB.reports
If rpt.Name like "rptSelec*" then

DoCmd.TransferDatabase acImport, "Microsoft Access",

"C\Data\Access\MENU97.mdb", acReport, rpt.Name, rpt.Name
End If
Next rpt

End Function


But it does not work, and I don't know why. I am using MS Access 8.0

Are there anybody who can help me.
Best regards

Mik Achton-Boel
Denmark

0 new messages