Avatar billede pjoh Nybegynder
29. september 2006 - 09:27 Der er 3 kommentarer og
1 løsning

Slette flere tabeller, hvor tabelnavnet ikke er entydigt

Hej

Jeg har en DB, hvor brugere indlæser en txt-fil. Txt-filens indhold har det samme format / indhold, men gemmes med forskellige navne i et ERP-system.

Når filen er indlæst, dannes der en tabel med Error-fejl fra txt-filen, disse tabeller kan f.eks. hedde ssveb_ImportErrors.

Disse tabel skal slettes da disse Import-Errors er OK.

Jeg har brug for VBA-kode der kigge på en del af tabel-navnet, f.eks. hvis der i tabelnavnet indgår "ImportError" skal den slettes....... Kan det lade sig gøre ??

Jeg ville bruge "DoCmd.DeleteObject acTable", men her skal vide hele tabelnavnet ...
Avatar billede fdata Forsker
29. september 2006 - 10:28 #1
(Tag lige en kopi af din base før du tester)

Sub SletTabel()
  Dim Tdf As TableDef
 
  For Each Tdf In CurrentDb.TableDefs
    If InStr(1, Tdf.Name, "ImportError") > 0 Then
      DoCmd.DeleteObject acTable, Tdf.Name
    End If
  Next Tdf
End Sub
Avatar billede pjoh Nybegynder
29. september 2006 - 12:10 #2
Hej .... det var fedt med et hurtigt svar og det virker perfekt og DB spiller max :-)
Avatar billede fdata Forsker
30. september 2006 - 23:00 #3
Lækkert. Husk at lukke spm.
Avatar billede pjoh Nybegynder
02. oktober 2006 - 07:23 #4
Ups ... hermed lukket :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester