Timer zum ausführen von code, der alle 30 Minuten

Da bin ich im entwickeln-Modus und meine front-ends erfordert eine Menge updates.
Dies ist meine Funktion zum überprüfen der version, wenn der Benutzer zu öffnen versuchen auf der front-end:

Public Function FEPath(DBName As String)

Dim Conn As New ADODB.Connection
Dim DataConn As New ADODB.Recordset
Dim Comm As String
Dim strPath As String
Dim strDB As String
Dim strVer As String
Dim strExt As String

Comm = " SELECT tblFE.Database, tblFE.Version, tblFE.Extension " & _
        " FROM tblFE WHERE tblFE.[Database] = '" & DBName & "';"

Set Conn = CurrentProject.Connection
DataConn.Open Comm, Conn, adOpenKeyset, adLockOptimistic

With DataConn
    strDB = ![Database]
    strVer = ![Version]
    strExt = ![Extension]

    strPath = "C:\Databases\" & strDB & " " & strVer & strExt

    .Close
End With

Set Conn = Nothing

Ich muss ja irgendwie laufen ein Stück code, der alle 30 Minuten, während das vordere Ende offen ist, zu überprüfen, um zu sehen, ob es eine neue front-end-version zur Verfügung für den upload. Ich würde Sie dann Benachrichtigen Sie die Benutzer, schließen Sie die Datenbank, und die Aktualisierung auf die neue version. Jetzt version aktualisieren passiert immer wenn die Datenbank geöffnet wird. Wie kann das getan werden?

Danke.

InformationsquelleAutor Challenger | 2014-05-20
Schreibe einen Kommentar