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 ..
|