Wrox Programmer Forums
|
Access Discussion of Microsoft Access database design and programming. See also the forums for Access ASP and Access VBA.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Access section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
 
Old December 22nd, 2003, 07:29 AM
Registered User
 
Join Date: Dec 2003
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default Help

Public Sub RapoarteTTT()

Dim recrap As Recordset
Dim rpt As Report
'purpose: at each open of database this sub



'DoCmd.OpenQuery ("stergrap") (_DELETE ALL RECORDS From TAB_Rapoarte table)

Set recrap = CurrentDb.OpenRecordset("TAB_Rapoarte") ' TAB_Rapoarte is a table with fields
' Nume-text 255
' Descriere - text 255

For Each rpt In Reports

recrap.AddNew
recrap!nume = rpt.Name
recrap!descriere = rpt.Caption
recrap.Update

Next rpt
recrap.Close
Set recrap = Nothing

End Sub

-----------
This sub don't work that i want, the table TAB_Rapoarte is empty after ai run it..
I use win 2000 / access 97 or win XP with access 2000
This sub don't work in no one..
Why?

Please excuse my bad english, i don't spek verry well ..










Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.