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...
Hoe kan ik dit doen?
Grtz
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: