Avatar billede martens Guru
18. marts 2015 - 20:58 Der er 5 kommentarer og
1 løsning

End sub.. hvad pokker sker der i denne kode ?

Jeg har fundet denne kode, som jeg synes er genial, men den driller lidt.
den siger : Compile error : Expected End Sub

jeg sætter den ind som hændelse på en knap på en form..

kode :

'---------------------------------------------------------------------------------------
' Procedure : DeleteAllQueries
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website  : http://www.cardaconsultants.com
' Purpose  : Deletes all the queries from the active database
' Copyright : The following may be altered and reused as you wish so long as the
'            copyright notice is left unchanged (including Author, Website and
'            Copyright).  It may not be sold/resold or reposted on other sites (links
'            back to this site are allowed).
'
' Revision History:
' Rev      Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1        2011-Jun-10                Initial Release
'---------------------------------------------------------------------------------------
Function DeleteAllQueries()
On Error GoTo Error_Handler
    Dim db              As DAO.Database
    Dim qdf              As DAO.QueryDef

    DoCmd.SetWarnings False
    Set db = CurrentDb
    For Each qdf In db.QueryDefs
        DoCmd.DeleteObject acQuery, qdf.Name
    Next

Error_Handler_Exit:
    DoCmd.SetWarnings True
    Set qdf = Nothing
    Set db = Nothing
    Exit Function
Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & _
          "Error Source: DeleteAllQueries" & vbCrLf & _
          "Error Description: " & Err.Description, _
          vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function
Avatar billede cht22 Professor
18. marts 2015 - 21:15 #1
Det drejer sig sikker om hvordan du kalder funktionen.

Prøv evt. med:

tmp = DeleteAllQueries()
Avatar billede store-morten Ekspert
18. marts 2015 - 21:41 #2
Eller lade knappen kalde Funktionen med: Call DeleteAllQueries
Avatar billede terry Ekspert
19. marts 2015 - 08:40 #3
other than I'm not sure I see the point in the use of &
the code looks ok.

Make sure you don't have any missing references.
(Tools+References)
Avatar billede terry Ekspert
19. marts 2015 - 08:51 #4
For the on Click event choose [Event Procedure] then in the event

enter

DeleteAllQueries


That should be enough
Avatar billede terry Ekspert
23. marts 2015 - 18:38 #5
thanks, hope you got it working
Avatar billede martens Guru
28. marts 2015 - 13:56 #6
jeg fjernede alt der havde med errorhandling at gøre og så havde jeg lige kommet til at smide et sub for meget ind i toppen af koden...

Så ja det kom til at virke... ;o)
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