Zandloper + MsgBox

Status
Niet open voor verdere reacties.

Crizke

Gebruiker
Lid geworden
11 feb 2013
Berichten
51
Hallo

Ik zou graag aan het begin van een macro een zandloper tonen, en op het einde van de macro zandloper weg en een msgbox dat zegt dat alles vernieuwd is...

Code:
Function Refresh ()

Dim MsgBox As String

DoCmd.Hourglass True

If IsObject(CurrentDb.TableDefs("Klanten")) = True Then
DoCmd.DeleteObject acTable, "Klanten"
End If

Call CreateEmail()
DoCmd.OpenQuery "QKlanten", acViewNormal, acEdit

DoCmd.Hourglass False

MsgBox (" ")

End Function

Hoe kan ik dit doen?

Grtz
 
Laatst bewerkt:
Uh. Je code ziet er goed uit. Wat gaat er niet goed dan?
 
Ja ik kreeg een foutmelding van objectvariabele enz... :) Maar bij deze is het opgelost :D :o
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan