PC Review
Forums
Newsgroups
Microsoft Access
Microsoft Access VBA Modules
~TMPCLP
Forums
Newsgroups
Microsoft Access
Microsoft Access VBA Modules
~TMPCLP
![]() |
~TMPCLP |
|
|
Thread Tools | Rate Thread |
|
|
#1 |
|
Guest
Posts: n/a
|
I am using Access 2002. I have noticed in my list of class modules that there
are a number of files names like Report_######~tmpclp. I am unable to delete these files the usual way, and when I view their objects, they are old versions of reports. Does anyone know why these files are appearing and how I can get rid of them? Cheers, Murp -- Yo Yo Ma. |
|
|
|
#2 |
|
Guest
Posts: n/a
|
"Murp" <Murp@discussions.microsoft.com> wrote in message
news:E0BEB657-8AB0-45E7-8EA9-B6EBE4C1791E@microsoft.com... > I am using Access 2002. I have noticed in my list of class modules that there > are a number of files names like Report_######~tmpclp. I am unable to delete > these files the usual way, and when I view their objects, they are old > versions of reports. Does anyone know why these files are appearing and how I > can get rid of them? Compacting the database will *sometimes* get rid of them, but not always. Usually when this occurs, the only way to get rid of them is to create a new blank database and import all the database objects except those phantom temp objects into the new container. Make sure you immediately compile the database after importing the objects. Then compact. -- Jeff Conrad Access Junkie Bend, Oregon |
|
|
|
#3 |
|
Guest
Posts: n/a
|
You can also delete them with and Docmd.DeleteObject
this will delete temptables en debug.print other types so if you want you can include them also for deletion. - Raoul Public Sub DeleteTempObjects() Dim rs As DAO.Recordset dim strSQL as string strSQL="SELECT MSysObjects.Name, MSysObjects.Type " strSQL=strSQL &"FROM MSysObjects " strSQL=strSQL &"WHERE MSysObjects.Name Like '~sq_*' " strSQL=strSQL &"ORDER BY MSysObjects.Name" strSQL=Replace(strSQL,"'",chr(34)) Set rs = CurrentDb.OpenRecordset(strSQL) While Not rs.EOF Select Case rs("Type") Case 5 DoCmd.DeleteObject acQuery, rs("Name") Case Else Debug.Print rs("Type"), rs("Name") End Select rs.MoveNext Wend rs.Close Set rs = Nothing End Sub "Jeff Conrad" wrote: > "Murp" <Murp@discussions.microsoft.com> wrote in message > news:E0BEB657-8AB0-45E7-8EA9-B6EBE4C1791E@microsoft.com... > > > I am using Access 2002. I have noticed in my list of class modules that there > > are a number of files names like Report_######~tmpclp. I am unable to delete > > these files the usual way, and when I view their objects, they are old > > versions of reports. Does anyone know why these files are appearing and how I > > can get rid of them? > > Compacting the database will *sometimes* get rid of them, > but not always. > > Usually when this occurs, the only way to get rid of them is > to create a new blank database and import all the database > objects except those phantom temp objects into the new > container. Make sure you immediately compile the database > after importing the objects. Then compact. > > -- > Jeff Conrad > Access Junkie > Bend, Oregon > > > |
|
![]() |
|
| Thread Tools | |
| Rate This Thread | |
|
|

Main Page 

