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

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