import af fil hvis din findes i en bestemt mappe

Der findes en egenskab for formularer der hedder timer - den kan ses på formularens egenskabsark, til sidst under hændelser fanen. Denne værdi skal sættes for at hændelsen indtræffer (1. gang)
Formularens ved timerudløb hændelse kunne se sådan ud:

Private Sub Form_Timer()
    Me.TimerInterval = 5000 'gør at hændelsen igen indtræffer om 5000ms
    Const fileName = "c:\windows\temp\import.txt"
    If Len(Dir(fileName)) Then
        DoCmd.TransferText acImportDelim, "signalimport", "signal", filename, False, ""
        Kill fileName
    End If
End Sub

Formularen kan åbnes af koden:

Function openHiddenFormSignal2DB()
    DoCmd.OpenForm "Signal2db", , , , , acHidden
End Function

Og denne kan kaldes af makroen Autoexec eller en hændelse i startformularen


Det er så lige spørgsmålet om noget kan afslutte formularen uventet, hvis det ligger i en databaseApp der laver alt muligt andet og måske fejler - det må komme an på en prøve.
At formularen kører (det åben form objekt eksisterer), kan man se ved at skrive:

---------immediate vinduet start
?forms("Signal2DB").Name
---------immediate vinduet slut

Den kan selfølgelig lukkes manuelt:

---------immediate vinduet start
docmd.Close acForm,"Signal2db"
?forms("Signal2DB").Name
---------immediate vinduet slut

et par småforsøg der viser den overlever visse ting:

denne er defineret
Function raiseError%(): raiseError = 1 / raiseError: End Function

---------immediate vinduet start
?forms("Signal2DB").Name
Signal2db
end 'clearer alle vaiable
?raiseError()
?forms("Signal2DB").Name
Signal2db
---------immediate vinduet slut

Hej kan du ikke skrive et svar så du kan få point ?

Når man har ventet mere end  1/2 år må man gerne lukke spørgsmålet med point til sig selv.

Oki