Avatar billede lbc Seniormester
18. januar 2005 - 21:25 Der er 8 kommentarer og
1 løsning

Slet tabel, hvis den findes

Hvordan får jeg følgende kommnando gjort afhængig af om tabellen findes, altså skriv venligst syntaksen på:

Hvis tabellen "LevFraPBS" findes så doCmd.DeleteObject acTable, "LevFraPBS"
Avatar billede mugs Novice
18. januar 2005 - 21:43 #1
Du ka lave en fejlhåndteringsrutine:

On Error GoTo errorhandler
DoCmd.DeleteObject acTable, "Tabel1"
errorhandler:
If Error = 7874 Then
Resume Next
End If
Avatar billede lbc Seniormester
18. januar 2005 - 22:59 #2
Det burde virke, men gør det ikke?? Jeg har løst problemet ved at undlade at slette tabellen, men kun slette alle dataene. Så er tabellen der permanent. Måske ikke det smarteste, men det virker
Avatar billede mugs Novice
18. januar 2005 - 23:03 #3
Det fungerer 100% her. Har du husket at ændre denne linie:

DoCmd.DeleteObject acTable, "Tabel1"

til navnet på din aktuelle tabel.
Avatar billede nih Novice
18. januar 2005 - 23:03 #4
Hvis det er en temptabel du tit bruger er det en god ide at komprimere din db hver gang den lukkes, ellers vil den vokse helt vildt.

hver gang du sletter data i tabellen reduceres databasens størrelse ikke før den komprimeres.
Avatar billede mugs Novice
18. januar 2005 - 23:03 #5
Ps.: Hvis min kode ikke fungerer, bør du ikke acceptere mit svar. Får du nogle fejlmeldinger?
Avatar billede lbc Seniormester
19. januar 2005 - 09:00 #6
Mugs, Jeg indsatte din kode. Der kom ingen fejlmeldinger, men da den skulle sammenkædes med en anden fejhåndtering kunne jeg ikke få den til at virke. (Jeg har ændret tabelnavn). Men derfor mener jeg at din sætning virker - isoleret set, bare ikke lige i den forbindelse, hvor jeg har fået den lagt ind.
nih, Jeg komprimerer altid db ved lukning.
Avatar billede mugs Novice
19. januar 2005 - 10:51 #7
Må vi se din fejlhåndteringsrutine? Det må kunne lade sig gøre at koble dem sammen.
Avatar billede lbc Seniormester
19. januar 2005 - 11:09 #8
Dette er ikke den "rigtige", men den virker heller ikke. Jeg kan ikke få "resume next" til at virke, dvs. der importeres ikke!
Sub Test()
On Error GoTo Errorhandler
DoCmd.DeleteObject acTable, "LevFraPBS"
DoCmd.TransferText acImportFixed, "Sek-211-Importspecifikation", "LevFraPBS", Filnavn, False, "", 850
GoTo Afslut
Errorhandler:
If Error = 7874 Then
Resume Next
Else
msg "Ikke fejl 7874"
End If
Afslut:
End Sub
Avatar billede mugs Novice
19. januar 2005 - 11:50 #9
Resume Next sender dig videre til den linie der ligger efter den linie der fejler. D.v.s. at den prøver at importere, selv om "LevFraPBS" ikke findes. Så spørgsmålet er nu, om Access opretter LevFraPBS, hvis den ikke findes?
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