?
Solved

Delete Multiple Tables from VBA in Ms Access

Posted on 2008-06-15
7
Medium Priority
?
962 Views
Last Modified: 2013-12-25
Hi,

My access DB has a number of functions that import data from external sources such as text files. The import operations work well; however, sometimes, ImportError tables are generated. I need a way to delete mutiple ImportError tables within the function.

Below is the code that performs the import operations. As you can see it cycles through top determine if there is more than one file called prof.txt. Generally, they are named, prof.txt, prof1.txt, prof2.txt and so on.

The following error tables have been created most recently.

prof1_ImportErrors
prof2_ImportErrors
prof3_ImportErrors
prof4_ImportErrors
prof5_ImportErrors

Thanks
Kev

Function Import_PMKEYS_Proficiencies()
On Error GoTo ImportError_Err
'Imports Proficiencies data from PMKeyS Output Text File
    Dim strFile As String
'Calculate PMKeyS data file path
    varPMKeySFilePath = DLookup("ImportPMKeySPath", "systblSettings", "")
    DoCmd.SetWarnings False
 
'Delete current data set
    DoCmd.RunSQL "DELETE tblpmkProficiencies.* FROM tblpmkProficiencies;"
'Import new data set
    strFile = Dir(varPMKeySFilePath & "prof*.txt", vbNormal)
    Do While strFile <> ""
        If strFile <> "." And strFile <> ".." Then
        DoCmd.TransferText acImportDelim, "ImportSpec_PMKeyS_Proficiencies", "tblpmkProficiencies", varPMKeySFilePath & strFile, False, ""
        End If
        strFile = Dir()
    Loop
 
'Delete ImportError tables if created
    DeleteTable ("Prof_ImportErrors")
 
'Clean up unwanted records
    DoCmd.RunSQL "DELETE tblpmkProficiencies From tblpmkProficiencies WHERE (((tblpmkProficiencies.[Unit Id]) Is Null));"
 
'Update PMKeyS Update Info
    With Form_frmMenuMain
        .ProfBy.Value = .varCurrentUser
        .ProfUpdate.Value = Now()
    End With
 
    MsgBox "Data Transfer Complete"
    
ImportError_Exit:
    DoCmd.SetWarnings True
    Exit Function
 
ImportError_Err:
    MsgBox Error$
    Resume ImportError_Exit
End Function

Open in new window

0
Comment
Question by:Kev
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 3
7 Comments
 
LVL 46

Accepted Solution

by:
tbsgadi earned 2000 total points
ID: 21787978
Hi budorat,

Use something like:

Good Luck!

Gary
Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject 
    For Each obj In dbs.AllTables
  if obj.Name like "*ImportErrors" then  DoCmd.DeleteObject acTable, obj.Name
Next obj

Open in new window

0
 
LVL 5

Author Comment

by:Kev
ID: 21787985
Hi,

Firstly, wow, thanks for a super fast response.

I get an error, "RunTime Error 438" "Object doesnt support this property or method"

I have a number of functions similar to the one above. As a result, I have used your code as a separate funciton that I can call. I am running the function directly rather than calling it.

Kev
0
 
LVL 46

Expert Comment

by:tbsgadi
ID: 21788040
budorat,

I'm glad to help.
Is it working?

Gary
0
How Blockchain Is Impacting Every Industry

Blockchain expert Alex Tapscott talks to Acronis VP Frank Jablonski about this revolutionary technology and how it's making inroads into other industries and facets of everyday life.

 
LVL 5

Author Comment

by:Kev
ID: 21788050
Gary, nope, not working.

I  get an error, "RunTime Error 438" "Object doesnt support this property or method". The Debug procedure highlights line "For Each obj In dbs.AllTables"

Kev
0
 
LVL 46

Assisted Solution

by:tbsgadi
tbsgadi earned 2000 total points
ID: 21788060
budorat,

Try  Set dbs = Application.CurrentData

Gary
0
 
LVL 5

Author Closing Comment

by:Kev
ID: 31467314
Gary,

Perfect. Thanks very much for your help.

Kev
0
 
LVL 46

Expert Comment

by:tbsgadi
ID: 21788222
Great!
0

Featured Post

Veeam Disaster Recovery in Microsoft Azure

Veeam PN for Microsoft Azure is a FREE solution designed to simplify and automate the setup of a DR site in Microsoft Azure using lightweight software-defined networking. It reduces the complexity of VPN deployments and is designed for businesses of ALL sizes.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
Code that checks the QuickBooks schema table for non-updateable fields and then disables those controls on a form so users don't try to update them.
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …
Suggested Courses
Course of the Month14 days, 3 hours left to enroll

801 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question